Question

VB里有两个窗体，一个放text，另外一个窗体用做记事本那样的查找框，求代码！

第二个窗体如何调用对象查找第一个窗体里的text的内容，只要是这里不会
都不理解我的提问啊，我要的是查找窗口一直在，并且有“查找下一个”的功能，打开个记事本再”Ctrl+F“ 看看那个啊，我就是要那样的，替换功能就不用了

Answer 1

Form1的代码:

Option Explicit

Private Sub Command1_Click()

   Form2.Show vbModal

End Sub

Form2的代码:

Option Explicit

Private n As Long    '记忆开始位置

Private Sub Command1_Click()

Dim nStar As Long

Dim nEnd As Long

Dim SLen As Integer

Dim SKey As String

SKey = Trim(Text1.Text)

n = InStr(n + Form1.Text1.SelLength, Form1.Text1.Text, SKey)

If n = 0 Then

   MsgBox "找不到查找字符！"

   n = 1

Else

   Label2.Caption = n

   nStar = n - 1

   SLen = Len(SKey)

   Form1.Text1.SelStart = nStar

   Form1.Text1.SelLength = SLen

End If

End Sub

Private Sub Command2_Click()

Unload Me

End Sub

Private Sub Text1_Change()

n = 1

End Sub

可以多次查找!!!你没有用怎么知道?

追问

Label2 是哪个

追答

在窗体Form2上放一个就是了

追问

查找出来的是数字，第一个窗口查找出来的内容都没有选中

追答

这个数字是,表示开始的是第几位.
你一提出这个问题,我就知道你会要求,象Word那样,找到要高亮度背景显示,但是你要知道这个在文本框里是做不到的,这个可以使用RichTextBox控件才能做到.

追问

你这个有点麻烦，俺刚学VB不会代码，不过在网上搜了几个代码，凑合着被我弄出来了，弄两个窗体然后调用对象就行了，除了不能向上、向下查找，其他的基本和记事本的那个一样

Answer 2

不需要两个窗体
Dim k
Private Sub Form_Load()
k = 1
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 6 Then ‘’‘’‘’‘’ctrl+“F”
a = InputBox("需要查找的内容", "查找")
Form1.Text1.SelStart = InStr(k, Text1.Text, a, vbTextCompare) - 1
Form1.Text1.SelLength = Len(a)
k = InStr(k, Text1.Text, a, vbTextCompare) + 1
If k > Len(Text1.Text) Then k = 1
End If
End Sub

追问

这个只能查一次，我要的是记事本那样的，那个窗口一直在，并且可以“查找下一个”的哦

追答

这个虽然查一次，关一次，但是实现了查找下一个的功能。你可以试试！

追问

额，这么多内容，开一次查一次 要"Ctrl+F"到什么时候

追答

简单吗，不过syx54的答案不错

Answer 3

form2.text1=form1.text1 简单的可以这样。
或者你可以建个模块来定义全局变量。