syntax nya yaitu :
Public Class Form1
Private intPosition As Integer
Private Sub cmdFile_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles cmdFile.Click
OpenFileDialog1.Filter = "Text Documents (*.txt)|*.txt|All Files (*.*)|*.*"
OpenFileDialog1.Title = "Select a Text Document"
Try
If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
Dim sr As New System.IO.StreamReader(OpenFileDialog1.FileName)
txtText.Text = sr.ReadToEnd
sr.Close()
End If
Catch eror As Exception
MessageBox.Show(Err.Description, "Search", MessageBoxButtons.OK, MessageBoxIcon.Information)
End Try
End Sub
Private Sub cmdSearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdSearch.Click
If Me.txtSearch.Text = "" Then
MessageBox.Show("Enter Search String.", "Search", MessageBoxButtons.OK, MessageBoxIcon.Information)
Me.txtSearch.Focus()
Exit Sub
End If
Static intStart As Integer
Dim objType As Object
If optInsensitive.Checked = True Then
objType = CompareMethod.Text
ElseIf optSensitive.Checked = True Then
objType = CompareMethod.Binary
End If
Select Case UCase(Me.cmdSearch.Text)
Case "SEARCH"
Me.cmdSearch.Text = "Search Next"
intPosition = 1
intStart = InStr(intPosition, Me.txtText.Text, Me.txtSearch.Text, objType)
Case "SEARCH NEXT"
intPosition = intStart + Me.txtSearch.Text.Length
intStart = InStr(intPosition, Me.txtText.Text, Me.txtSearch.Text, objType)
End Select
If intStart > 0 Then
Me.txtText.SelectionStart = intStart - 1
Me.txtText.SelectionLength = Me.txtSearch.Text.Length
Me.txtText.Select()
Me.txtText.ScrollToCaret()
Else
Call OptionsChanged(Me, Nothing)
MessageBox.Show("Search String NOT Found.", "Search", MessageBoxButtons.OK, MessageBoxIcon.Information)
Me.txtSearch.SelectAll()
End If
End Sub
Private Sub OptionsChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles optInsensitive.CheckedChanged, optSensitive.CheckedChanged, txtSearch.TextChanged
If UCase(Me.cmdSearch.Text) = "SEARCH NEXT" Then
Me.txtText.Select(1, 0)
Me.txtText.ScrollToCaret()
Me.cmdSearch.Text = "Search"
intPosition = 1
Me.txtSearch.Focus()
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.Close()
End Sub
End Class
kalo susah download aja file nya disini Sylvia
0 komentar: