高分求答.在VB.NET中如何实现查找/替换等功能?

来源：百度知道 编辑：UC知道 时间：2024/05/11 18:10:42
在VB.NET中如何实现查找/替换/查找下一个/全部替换?
请意简言骇~~~~
额..顺便问下(不回答不影响给分),文本中如何实现加粗?我学了一段时间,发现加粗可以..但有一下病症.
当有两段文字处于选择状态...加粗失败!
当有两段文字,且有一段文字处于加粗状态...加粗失败!
只要回答如何实现查找功能便可以.后面那问题只是"渴望"有人回答..谢谢``
我说的是,如何在代码中实现- -!
代码中如何实现?

'option1为向上,option2为向下查找
Public Sub FindText(ByVal start_at As Integer)
Dim target As String
If myfind.Option1 Then
pos = bwl.rtb.SelStart
bwl.rtb.SelStart = 0
bwl.rtb.SelLength = pos
ok = StrReverse(bwl.rtb.SelText)
bwl.rtb.SelStart = pos
End If
If myfind.Option2 Then
If mynext = 1 And ss = myfind.Text1.Text Then
pos = bwl.rtb.SelStart + lens
mynext = 0
Else
pos = bwl.rtb.SelStart
End If
bwl.rtb.SelStart = pos
bwl.rtb.SelLength = Len(bwl.rtb.Text) - pos
ok = bwl.rtb.SelText
bwl.rtb.SelStart = pos
End If
target = myfind.T