前端之家收集整理的这篇文章主要介绍了
[VB.NET]请大虾们帮小虾米看看这个问题,
前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。
请大虾们帮小虾米看看这个问题 我按书上的例子做了一个类似word里的查找
功能,可是在text
Box1里输入字符查找一点反应都没有。
代码如下: Private Sub Button2_Click(ByVal sender As Object,ByVal e As System.EventArgs) Handles Button2.Click Dim i As Integer i = 0 i = RichText
Box1.Find(Me.Text
Box1.Text) If i > = 0 Then Me.RichText
Box1.Select(i,Me.Text
Box1.Text.Length) i = i + Text
Box1.Text.Length End If Me.Button2.Enabled = True End Sub Private Sub Button3_Click(ByVal sender As Object,ByVal e As System.EventArgs) Handles Button3.Click Dim j As Integer Dim i As Integer j = RichText
Box1.Find(Text
Box1.Text,i,-1,None) If j > = 0 Then Me.RichText
Box1.Select(j,Me.Text
Box1.Text.Length) j = i + Text
Box1.Text.Length i = j End If End Sub __________________________________________________________________________ 原来是richtext
Box是
属性没设,不好意思。现在能查找了,也就是botton2的
功能已经实现了,大家帮我看看第二段
代码是不是有点问题,botton3的查找下一个还不好用。 __________________________________________________________________________ 您要在Button3_Click过程外定义一个变量来存放上一次查找的坐标i,要不然每次点击Button3时i都是0,找不到后面的词了。 __________________________________________________________________________ Dim i As Integer Private Sub Button2_Click(ByVal sender As Object,ByVal e As System.EventArgs) Handles Button2.Click i = 0 i = RichText
Box1.Find(Me.Text
Box1.Text) If i > = 0 Then Me.RichText
Box1.Select(i,ByVal e As System.EventArgs) Handles Button3.Click i = RichText
Box1.Find(Text
Box1.Text,RichText
BoxFinds.None) If i > = 0 Then Me.RichText
Box1.Select(j,Me.Text
Box1.Text.Length) i = i + Text
Box1.Text.Length End If End Sub __________________________________________________________________________ 对不起, Me.RichText
Box1.Select(j,Me.Text
Box1.Text.Length) 这一句里的j也要换成i。 __________________________________________________________________________ 谢谢楼上的,已经通过了。 什么时候我也能看别人的
代码找出
错误就好了! __________________________________________________________________________ 很快,我也刚学。 __________________________________________________________________________ 给分 __________________________________________________________________________