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]