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
没有相关教程
|