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