<wbr id="bl79t"><pre id="bl79t"></pre></wbr>
<video id="bl79t"></video>

    <nav id="bl79t"></nav>

    <form id="bl79t"><legend id="bl79t"></legend></form>

    1. <wbr id="bl79t"></wbr>
      <sub id="bl79t"><table id="bl79t"></table></sub>

      歡迎光臨
      我們一直在努力

      vb中如何實現文本查找功能_visualbasic教程

      建站超值云服務器,限時71元/月

      —-目前流行的軟件一般在“編輯”菜單中都有“查找”、“查找”下一個功能,這個功能看起來復雜,實際上實現起來是很簡單的,下面介紹實現方法。
      —-實現查找功能的關鍵在于使用InStr函數,這個函數可以找到指定的字符串在另一字符串中最先出現的位置,這個函數需要的的參數是起始位置、主體字符串、要查找的字符串?!安檎蚁乱粋€”功能的實現就是把當前位置作為起始位置繼續查找。舉

      —-例說明如下:

      —-界面安排:放置一個文本框TEXT1供用戶輸入文本或調入文本文件,用來做在其中查找文本的驗證,放置另一個文本框TEXT2供用戶輸入要查找的字符串,放置兩個命令按鈕,Command1、Command2,其標題分別為“查找”、“查找下一個”。

      —-在窗體的總體聲明部分寫如下代碼:

      OptionExplicit
      定義目標位置變量
      PrivateTargetPositionAsInteger
      編寫一個查找函數
      PrivateSubFindText(ByValstart_atAsInteger)
      DimposAsInteger
      DimtargetAsString
      獲取用戶輸入的要查找的字符串
      target=text2.Text
      pos=InStr(start_at,text1.Text,target)
      Ifpos>0Then找到了匹配字符串
      TargetPosition=pos
      text1.SelStart=TargetPosition-1
      選中找到的字符串
      text1.SelLength=Len(target)
      text1.SetFocus
      Else沒有找到匹配的字符串

      MsgBox”沒找到!”
      text1.SetFocus
      EndIf
      EndSub

      雙擊“查找”命令按鈕:
      PrivateSubcommand1_Click()
      從第一個字符處開始查找
      FindText1
      EndSub

      雙擊“查找下一個”按鈕:

      PrivateSubcommand2_Click()
      從當前位置繼續查找
      FindTextTargetPosition 1
      EndSub

      —-運行程序,在文本框1中輸入一些字符串,在文本框2中輸入要查找的字符串,單擊“查找”按鈕和“查找下一個”按鈕進行驗證。

      —-程序調試環境:中文VB5.0,中文WIN95.->

      贊(0)
      版權申明:本站文章部分自網絡,如有侵權,請聯系:west999com@outlook.com 特別注意:本站所有轉載文章言論不代表本站觀點! 本站所提供的圖片等素材,版權歸原作者所有,如需使用,請與原作者聯系。未經允許不得轉載:IDC資訊中心 » vb中如何實現文本查找功能_visualbasic教程
      分享到: 更多 (0)
      韩国三级在线看免费|亚洲撸超碰在线视频|ADC视频在线|成人av免费福利在线

      <wbr id="bl79t"><pre id="bl79t"></pre></wbr>
      <video id="bl79t"></video>

      <nav id="bl79t"></nav>

      <form id="bl79t"><legend id="bl79t"></legend></form>

      1. <wbr id="bl79t"></wbr>
        <sub id="bl79t"><table id="bl79t"></table></sub>