从Form1 中调用ReplaceForm,按 ReplaceForm的"替换"按钮,代码如下:
Private Sub BtReplace_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtReplace.Click
If ob_form.RTextBox.SelectionLength > 0 Then
ob_form.RTextBox.Text = Replace(ob_form.RTextBox.Text, ob_form.RTextBox.SelectedText, TxtReplace.Text, 1, 1)
End If
If CheckBox1.Checked = True Then '判断是否区分大小写
k = InStr(Mid(ob_form.RTextBox.Text, i), TxtFind.Text, CompareMethod.Binary)
Me.Find()
Else
k = InStr(Mid(ob_form.RTextBox.Text, i), TxtFind.Text, CompareMethod.Text)
Me.Find()
End If
End Sub
这是我已经写了的代码.
其中
public ob_form as new form1 '已定义了一个全局对象
dim i=1,k as integer