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

 

Public Sub Command1_Click()Dim FoundPos As IntegerIf Fstring = "" Then    Fstring = Text1.TextElse    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 IfElse    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 IfEnd If

End Sub

Private Sub Command2_Click()Form2.Visible = FalseEnd Sub

Private Sub Form_Load()Command1.Enabled = FalseTchange = FalseEndPos = LenB(Form1.Text1)End Sub

Private Sub Text1_Change()

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

End Sub