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

Option Explicit

Private Sub CancelButton_Click()OKButton_ClickForm1.Text1.SelText = Text2.TextEnd Sub

Private Sub Command1_Click() If Fstring = "" Then    Fstring = Text1.TextElse    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 IfNext StartPosEnd Sub

Private Sub Command2_Click()Unload MeEnd Sub

Private Sub Form_Load()OKButton.Enabled = FalseCancelButton.Enabled = FalseCommand1.Enabled = FalseEnd Sub

Private Sub OKButton_Click()

   If Fstring = "" Then    Fstring = Text1.TextElse    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 = FstringEnd Sub

Private Sub Text1_Change()

If Text1.Text <> "" Then    OKButton.Enabled = True    CancelButton.Enabled = True    Command1.Enabled = TrueElse    OKButton.Enabled = False    CancelButton.Enabled = False    Command1.Enabled = False    End If

End Sub