n strText = "编辑菜单" ElseIf sender Is mFile Then strText = "文件菜单" ElseIf sender Is mFind Then strText = "显示查找面板。。" ElseIf sender Is mFindnext Then strText = "查找下一个" ElseIf sender Is mFont Then strText = "显示字体设置对话框" ElseIf sender Is mOpen Then strText = "打开菜单" ElseIf sender Is mEdit Then strText = "编辑菜单" ElseIf sender Is mPagesetup Then strText = "页面设置选项" ElseIf sender Is mEdit Then strText = "编辑菜单" ''''......... ''''........ ''''........
Else strText = String.Empty End If
WriteToStatusBar(strText) End Sub
Public Sub WriteToStatusBar(ByVal Text As String) StatusBar1.Text = Text End Sub
Private Sub MenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem2.Click ColorDialog1.ShowDialog() rtbox.ForeColor = ColorDialog1.Color End Sub ''''*********************************************************************************************** ''''下面是关于实现查找功能 Dim MyPos As Integer ''''先声明一个全局变量
Private Sub FindText(ByVal start As Integer) ''''创建findtext函数 Dim pos As Integer Dim target As String ''''获取用户输入的要查找的字符串 target = txtbox.Text pos = InStr(start, rtbox.Text, target) If pos > 0 Then ''''找到了匹配字符串 MyPos = pos rtbox.SelectionStart = MyPos - 1 ''''高亮显示 rtbox.SelectionLength = Len(txtbox.Text) rtbox.Focus() Else MsgBox("没找到!")
End If End Sub
Private Sub find_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles find.Click FindText(1) End Sub
Private Sub findnext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles findnext.Click FindText(MyPos + 1) End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles closepanel.Click Panel1.Visible = False End Sub
''''************************************************************************************************************* ''''下面这段程序,用作拖拽“查找面板”使用 Dim dragging As Boolean Dim mousex As Integer Dim mousey As Integer Private Sub panel1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Panel1.MouseDown If e.Button = MouseButtons.Left Then dragging = True mousex = -e.X mousey = -e.Y Dim clipleft As Integer = Me.PointToClient(MousePosition).X - Panel1.Location.X Dim cliptop As Integer = Me.PointToClient(MousePosition).Y - Panel1.Location.Y Dim clipwidth As Integer = Me.ClientSize.Width - (Panel1.Width - clipleft) Dim clipheight As Integer = Me.ClientSize.Height - (Panel1.Height - cliptop) Cursor.Clip = Me.RectangleToScreen(New Rectangle(clipleft, cliptop, clipwidth, clipheight)) Panel1.Invalidate() End If End Sub
Private Sub panel1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Panel1.MouseMove If dragging Then ''''移动控件到新的位置 Dim MPosition As New Point() MPosition = Me.PointToClient(MousePosition) MPosition.Offset(mousex, mousey) ''''确实控件不能离开主窗口 Panel1.Location = MPosition End If End Sub
Private Sub panel1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Panel1.MouseUp If dragging Then ''''结束拖拽 dragging = False Cursor.Clip = Nothing Panel1.Invalidate() End If End Sub ''''****************************************************************************************************************
Private Sub replace_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mpreplace.Click rtbox.Text = rtbox.Text.Replace(txtbox.Text, rpbox.Text) End Sub
Private Sub mFind_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mFind.Click Panel1.Visible = True
End Sub
Private Sub mFindnext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mFindnext.Click FindText(MyPos + 1) End Sub
Private Sub mReplace_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mReplace.Click rtbox.Text = rtbox.Text.Replace(txtbox.Text, rpbox.Text) End Sub End Class
''''完。
上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] 没有相关教程
|