请问，我把B窗体设置成一个查找/替换的对话框，我想用这个对话框去查找A窗体内RichTextBox中文本的内容并可以实现替换的功能，应该怎么做咧？？？
有没有人可以说下呀，谢谢了!!!!

将a窗体RichTextBox的Modifier设置成public..然后在b窗体里读取它的Text....然后再自己写算法.

[此贴子已经被作者于2006-12-10 14:03:53编辑过]

老大，你说的，我一点都不明白！！怎么办？？

那就老老实实买本书从第一页看起..

书上都找不到那个算法呀？？？
应该怎么个算法呀？？再帮下好不好呀！！谢谢了！

只是稍微地变通一下..不算得上什么算法吧..

不是呀，关键是我都不知道是要用什么函数啦！！

不需要用到什么函数...
将a窗体的RichTextBox的属性Modifiers设置为public,这样..b窗体才能访问到它...
获取了它的Text之后. ...最简单的可以用Replace()方法来替换文字...也可以自己写个code去替换...

Public I As Integer '找到字符串的位置
Public Count As Integer = 1 '是否是第一次查找
Public Direction As Integer = 2 '搜索方向
Public UWrite As Boolean
Public Source As String

Dim J As Integer '下一次查找的其始位置
Dim Length As String = Len(TxtStr.Text) '被找字符串的长度
If UWrite = False Then '*****************************
Source = UCase(FrmNote.Just.TxtBody.Text) '*
Find = UCase(TxtStr.Text) '*
Else '*判断是否按照大小写查找
Source = FrmNote.Just.TxtBody.Text '*
Find = TxtStr.Text '*
End If '******************************
If FrmNote.Just.TxtBody.SelectionStart = 0 Then '判断当前光标是否在最前面位置
MessageBox.Show("已经到达最前位置", "记事本", MessageBoxButtons.OK, MessageBoxIcon.Asterisk)
Else
If Count = 1 Then '判断是否是第一次查找
I = Source.LastIndexOf(Find, FrmNote.Just.TxtBody.SelectionStart) '查找是否有匹配的字符
If Not (I = -1) Then '如果找到所要查找的字符
FrmNote.Just.TxtBody.Select(I, Length)
Count += 1
Else
MessageBox.Show("找不到[" & TxtStr.Text & "]", "记事本", MessageBoxButtons.OK, MessageBoxIcon.Asterisk)
End If
Else '继续查找
J = I - 2 + Length
I = Source.LastIndexOf(Find, J)
If Not (I = -1) Then
FrmNote.Just.TxtBody.Select(I, Length)
Else
MessageBox.Show("找不到[" & TxtStr.Text & "]", "记事本", MessageBoxButtons.OK, MessageBoxIcon.Asterisk)
End If
End If
End If
FrmNote.Just.TxtBody.ScrollToCaret()

[此贴子已经被作者于2006-12-21 8:12:32编辑过]

为什么要判断当前光标是否在最前面位置啊 ？