★★★敬请留意★★★：和微软一模一样的记事本的源代码（2）

Public Sub Command1_Click()

Dim FoundPos As Integer

If Fstring = "" Then

Fstring = Text1.Text

Else

If Text1.Text <> Fstring And Text1.Text <> "" Then

Fstring = Text1.Text

End If

End If

If Option1.Value = True Then

EndPos = Form1.Text1.SelStart

Form1.Text1.SelStart = 0

StartPos = 0

Do While FoundPos <> -1

If Check1.Value = 1 Then

FoundPos = Form1.Text1.Find(Fstring, StartPos, EndPos, 4)

If FoundPos <> -1 Then StartPos = FoundPos + Len(Fstring)

Else

FoundPos = Form1.Text1.Find(Fstring, StartPos, EndPos)

If FoundPos <> -1 Then StartPos = FoundPos + Len(Fstring)

End If

Loop

If StartPos = 0 Then

' StartPos = StartPos - Len(Fstring)

' Else

MsgBox "find not " + Chr(34) + Fstring + Chr(34)

End If

Else

StartPos = Form1.Text1.SelStart + Form1.Text1.SelLength

EndPos = Len(Form1.Text1)

If Check1.Value = 1 Then

FoundPos = Form1.Text1.Find(Fstring, StartPos, EndPos, 4)

Else

FoundPos = Form1.Text1.Find(Fstring, StartPos, EndPos)

End If

If FoundPos <> -1 Then

StartPos = FoundPos + 1

Else

MsgBox "find not " + Chr(34) + Fstring + Chr(34)

End If

End If

End Sub

Private Sub Command2_Click()

Form2.Visible = False

End Sub

Private Sub Form_Load()

Command1.Enabled = False

Tchange = False

EndPos = LenB(Form1.Text1)

End Sub

Private Sub Text1_Change()

If Text1.Text <> "" Then

Command1.Enabled = True

Else

Command1.Enabled = False

End If

Tchange = True

End Sub