Option expedition
Private sub canverton_click () okbutton_clickform1.text1.seltext = text2.textend Sub
Private sub fascist1_click () if fstring = "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" TEXT1) if check1.value = 1 weightpos = form1.text1.Find (FString, StartPos,, 4) Else Foundpos = form1.text1.Find (FString, StartPOS) Endiff1.text1. SELTEXT = TEXT2.TEXT End IfNext StartPosend Sub
Private submmand2_click () unload mend Sub
Private sub flow_load () okbutton.enabled = falsecancelButton.enabled = falseCommand1.enabled = false
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 dam1.find (fstring, startpos, endpos, 4) else foundpos = form1.text1.find (fstring, startpos, endpos) end if fixpos < > -1 Ten 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.ENABED = True CancelButton.enabled = true command1.enabled = trueElse okbutton.enabled = false cycutton.enabled = false command1.enabled = false endness subsend