home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
DP Tool Club 13
/
CD_ASCQ_13_0494.iso
/
maj
/
1697
/
samples
/
frmrepla.frm
< prev
next >
Wrap
Text File
|
1993-10-15
|
3KB
|
101 lines
VERSION 2.00
Begin Form frmReplaceConfirm
Caption = "Replace Confirm"
Height = 1575
Left = 975
LinkTopic = "Form1"
ScaleHeight = 1170
ScaleWidth = 4470
Top = 705
Width = 4590
Begin CommandButton cmdCancel
Cancel = -1 'True
Caption = "&Cancel"
Height = 345
Left = 3570
TabIndex = 4
Top = 660
Width = 855
End
Begin CommandButton cmdAll
Caption = "&All"
Height = 345
Left = 2700
TabIndex = 3
Top = 660
Width = 855
End
Begin CommandButton cmdOne
Caption = "&One"
Height = 345
Left = 1830
TabIndex = 2
Top = 660
Width = 855
End
Begin CommandButton cmdNo
Caption = "&No"
Height = 345
Left = 960
TabIndex = 1
Top = 660
Width = 855
End
Begin CommandButton cmdYes
Caption = "&Yes"
Default = -1 'True
Height = 345
Left = 90
TabIndex = 0
Top = 660
Width = 855
End
Begin Label Label1
Alignment = 2 'Center
Caption = "Replace this occurrence?"
Height = 285
Left = 0
TabIndex = 5
Top = 120
Width = 4485
End
End
Option Explicit
Sub cmdAll_Click ()
Dim FoundIt As Integer
Unload Me ' unload this form
gfRecursiveSearch = 2'replace all
frmMDI.ActiveForm.Text1.SelText = gNewText
'frmMDI.ActiveForm.Text1.Redraw = False
'SendKeys gNewText, True ' replace found text
'frmMDI.ActiveForm.Text1.Redraw = True
End Sub
Sub cmdCancel_Click ()
Unload Me
End Sub
Sub cmdNo_Click ()
Unload Me ' unload this form
gfRecursiveSearch = 1'repeat the operation
End Sub
Sub cmdOne_Click ()
Unload Me ' unload this form
frmMDI.ActiveForm.Text1.SelText = gNewText
'frmMDI.ActiveForm.Text1.Redraw = False
'SendKeys gNewText, True ' replace found text
'frmMDI.ActiveForm.Text1.Redraw = True
End Sub
Sub cmdYes_Click ()
Unload Me ' unload this form
frmMDI.ActiveForm.Text1.SelText = gNewText
'frmMDI.ActiveForm.Text1.Redraw = False
'SendKeys gNewText, True ' replace found text
'frmMDI.ActiveForm.Text1.Redraw = True
gfRecursiveSearch = 1'repeat operation
End Sub