我是新手学习 。我想用它做一个和windows 记事本一样的仿真记事本，在查找和替换中出现了问题，不知道如何在主窗体的菜单中弹出查找窗体？如何利用查找窗体中的查找文本在主窗体中查找?

'查找
Private Sub MenuFind_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuFind.Click
Dim FindStr As String
FindStr = InputBox("请输入要查找的内容", "查找")
FindMyText(FindStr)
End Sub

Public Function FindMyText(ByVal text As String) As Boolean
' Initialize the return value to false by default.
Dim returnValue As Boolean = False

' Ensure a search string has been specified.
If text.Length > 0 Then
' Obtain the location of the search string in richTextBox1.
Dim indexToText As Integer = richTextBox1.Find(text, RichTextBoxFinds.MatchCase)
' Determine if the text was found in richTextBox1.
If indexToText >= 0 Then
returnValue = True
End If
End If

Return returnValue
End Function

这些功能在msdn里有的，你好好看看msdn嘛

对不起是我说错了吗？
我是说查找和替换全部用窗体做,就像文本自带的记事本一样。

谢谢

哈哈哈

[此贴子已经被作者于2006-7-1 22:17:17编辑过]

你先再新建一个windows窗体
在记事本窗体上实力化找查窗体的名字

windows窗体名 find
在记事本的找查事件上写

dim aa as new find
find.show

这样就可以打开新窗口
查找的代码自己搞定咯

这段代码只能查找第一次出现的与text相同的文本，想查找之后出现的怎么实现啊？