注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

JonRao的博客

PC游戏 VB.NET PC技巧 硬盘维修

 
 
 

日志

 
 

RichTextBox搜索类  

2011-05-18 11:35:12|  分类: VB.NET |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

    Class RichTextBox搜索类

        Private rtbRich As RichTextBox

        Private strIbs As String

        Private intI As Integer

        Private intX As Integer = 1

        ''' <summary>

        ''' RichTextBox中搜索某字符串

        ''' </summary>

        ''' <param name="rtbsl">RichTextBox控件实例</param>

        ''' <param name="strSsz">需要搜索的某字符串</param>

        ''' <remarks></remarks>

        Sub 开始(ByRef rtbsl As RichTextBox, ByRef strSsz As String)

            strIbs = strSsz '获得需要搜索的某字符串

            rtbRich = rtbsl 'rich等于一个RichTextBox的实例()

            intI = InStr(intX, rtbRich.Text, strIbs) '根据搜索的起始索引号,被搜索的目标,需要搜索的某字符串来获得找到的位置号

            rtbRich.SelectionStart = intI - 1 '选定的起始点,应该在找到的位置的左边,所以需要减1

            rtbRich.SelectionLength = Len(strIbs) '选定的字符数等于需要搜索的某字符串的长度

            rtbRich.Focus() '获得焦点,类似鼠标左键框选的效果

            rtbRich.ScrollToCaret() '类似让找到的内容置中显示

            intX = intI + 1 '让搜索的起始索引号等于找到的位置号加1,也就开始找下一个匹配项了

        End Sub

 

  评论这张
 
阅读(346)| 评论(0)
推荐 转载

历史上的今天

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017