# 请问各位高手如何用让驻点在form2而让form1中的RichTextBox一段文字同时变成反白(被选取)?? VB6.0

Posted by 不懂的VB新手 on July 16, 1999 at 02:38:58:

在WordPad里用搜寻的功能时,会迸出一个表单要你输入欲搜寻的字串,
打入要搜寻的字串后按搜寻键,你要搜寻的自就会在WordPad以反白状态
显示...但是给你输入要搜寻的那个表单还在...
现在问题来了...要怎么让那个表单存在,而同时在WordPad也能显示出
所找到的字串呢??
我程式写一写,找到欲搜寻的字串后,却一定要回到主要表单,也就是显示
文章的那个表单,我所找到的字串才会以反白显示...然后只要一离开那
个主表单...反白的区域就不见了 ~>_<~
这是我的程式:
Private Sub cmdFindNext_Click() '搜寻
Static txtSearchLen As Integer
Static txtSearchStart As Integer
Static txtSearchFindNext As Integer
txtSearchLen = Len(txtSearch.Text)
txtSearchStart = InStr(txtSearchFindNext + _
1,frmMain.rtfData.Text,txtSearch.Text)
If txtSearchStart = 0 Then
MsgBox "已完成文件搜寻", vbExclamation + vbOKOnly, "笔记本"
Else
frmMain.rtfData.SelStart = txtSearchStart - 1
frmMain.rtfData.SelLength = txtSearchLen
txtSearchFindNext = frmMain.rtfData.SelStart + txtSearchLen
End If
frmMain.Show
frmSearch.Show
End Sub

请各位高手帮忙解答

Follow Ups: