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

Option Explicit

Private Sub CancelButton_Click()

OKButton_Click

Form1.Text1.SelText = Text2.Text

End Sub

Private Sub Command1_Click()

If Fstring = "" Then

Fstring = Text1.Text

Else

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

Fstring = Text1.Text

End If

End If

For StartPos = 0 To Len(Form1.Text1)

If Check1.Value = 1 Then

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

Else

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

End If

If FoundPos <> -1 Then

Form1.Text1.SelText = Text2.Text

End If

Next StartPos

End Sub

Private Sub Command2_Click()

Unload Me

End Sub

Private Sub Form_Load()

OKButton.Enabled = False

CancelButton.Enabled = False

Command1.Enabled = False

End Sub

Private Sub OKButton_Click()

If Fstring = "" Then

Fstring = Text1.Text

Else

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

Fstring = Text1.Text

End If

End If

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

'Gstring = Fstring

End Sub

Private Sub Text1_Change()

If Text1.Text <> "" Then

OKButton.Enabled = True

CancelButton.Enabled = True

Command1.Enabled = True

Else

OKButton.Enabled = False

CancelButton.Enabled = False

Command1.Enabled = False

End If

End Sub