1.此函數(shù)控件在vb6,windowsme調(diào)試通過(guò)

  2.vb運(yùn)行后，要使用但未添加此函數(shù)控件，請(qǐng)先添加：工具箱——部件——瀏覽——選擇abouttextandfile.ocx

  3.調(diào)用方式,控件名加函數(shù)名(如下例):
                     
    控件名.Seektxt ........               '不需要返回值,隱式調(diào)用(不要括號(hào))
    call 控件名.Seektxt(........)         '不需要返回值，顯式調(diào)用
    變量名=控件名.Seektxt(........)   '獲取返回值。
        
  4.此函數(shù)控件的初始控件名為Function1
    
  5.xcdzip35.ocx為壓縮函數(shù)必用控件，請(qǐng)不要?jiǎng)h除，您也可以自己?jiǎn)为?dú)調(diào)用，試一下。     
         
函數(shù)一：
      Seektxt(boxtype, Findtxt As String, Optional Word As Boolean, _
              Optional Macase As Boolean, Optional Fangxiang As Long, _
              Optional Refind As Boolean, Optional Tihua As Long, _
              Optional Changetxt As String) As Long
  
  使用此函數(shù)，可以令您在文本框中輕輕松松向上，向下，全部方向，從文未或文首根據(jù)各種
  匹配條件進(jìn)行查找和再查找，當(dāng)然，也可以在各個(gè)方向，根據(jù)不同的匹配條件進(jìn)行單個(gè)替換
  和再替換，或在整個(gè)文本框，或在選定的文本中進(jìn)行全部替換，而無(wú)需您再編寫(xiě)太多的代碼。
  
  此函數(shù)若用于textbox控件，請(qǐng)將 HideSelection 屬性設(shè)為false,找到的字符才能高亮顯示
  
  

  部分       說(shuō)明 

  boxtype    必要參數(shù)，被搜索的textbox或richtextbox控件的名稱(chēng)。

  findtxt    必要參數(shù)，接受搜索的字符串表達(dá)式。 

  word       可選參數(shù)，是否要求全字匹配，是為true,否為false,缺省為false 

  macase     可選參數(shù), 是否要求區(qū)分大小寫(xiě)，是為true,否為false,缺省為false

  fangxiang  可選參數(shù), 指定查找的方向，缺省為3,全部方向（具體的可取值看下面說(shuō)明）

  refind     可選參數(shù)，是否要重新從文本框的第一個(gè)字符或最后一個(gè)字符找起，是為true,否為false，缺省為false
             設(shè)置此參數(shù)為true的前提是fangxiang的取值必須為4或者5,否則函數(shù)將自動(dòng)屏蔽此參數(shù)（既當(dāng)此參數(shù)的值為缺省值false)
  
  tihua      可選參數(shù)，替換，取值0（也是缺省值)為不進(jìn)行替換，1為單獨(dú)替換，2為在選擇文本中進(jìn)行替換，3為整個(gè)文本框進(jìn)行替換

  changetxt  可選參數(shù), 替換字符串表達(dá)式.缺省或者為空字符串,則是將找到的字符刪除.



  fangxiang參數(shù)的設(shè)置值

  值       描述

  1        從當(dāng)前光標(biāo)位置向上搜索

  2        從當(dāng)前光標(biāo)位置向下搜索

  3        從當(dāng)前光標(biāo)開(kāi)始,進(jìn)行全部方向的搜索

  4        從文本框的第一個(gè)字符開(kāi)始,向下搜索

  5        從文本框的最后一個(gè)字符開(kāi)始,向上搜索


 
  函數(shù)返回值:
  
  值      描述
  
  0       表示在指定的方向和條件下,已搜索或替換完畢    
  
  -1      文本框?yàn)榭詹贿M(jìn)行查找

  -2      第二個(gè)參數(shù)為空,沒(méi)有給予要查找的字符串

  -3      查找方向或替換方式的取值超出許可范圍

  -4      替換方式取值2，但文本框沒(méi)有選擇文本

  -5      第一個(gè)參數(shù)非Textbox或Rrichtextbox文本框


示例程序：  

一個(gè)richtextbox控件
一個(gè)combobox控件，設(shè)計(jì)時(shí)按順序添加“單獨(dú)替換”，“選定文本替換”，“全部替換”三項(xiàng)
兩個(gè)checkbox控件，分別顯示為“區(qū)分大小寫(xiě)”，“全字匹配”
五個(gè)optionbutton控件數(shù)組，分別顯示為“向上查找“，“向下查找”，“全部方向”，“文未找起”，“文首找起”（“全部方向”在設(shè)計(jì)時(shí)設(shè)為選定狀態(tài)）
兩個(gè)commandbutton控件 分別為“查找”，“替換”
兩個(gè)文本框，一個(gè)為查找內(nèi)容輸入，一個(gè)為替換內(nèi)容，與兩個(gè)命令按鈕相對(duì)應(yīng)



'通用部分的聲明：
Dim fanxia As Integer        '標(biāo)記用戶(hù)選擇的查找方向
Dim txtchang As Boolean      '標(biāo)記查找內(nèi)容或替換內(nèi)容發(fā)生改變


Private Sub Form_Load()
    Combo1 = Combo1.List(0)  '初始顯示替換方式為單獨(dú)替換
    fanxia = 3               '方向初始為3(全部方向)
End Sub

Private Sub Command1_Click() 'richtextbox控件的查找
    Call Function1.Seektxt(Text3, Text1, -Check1.Value, -Check2.Value, fanxia, txtchang)
    txtchang = False         '查找之后應(yīng)將txtchang還為false,否則會(huì)每一次都從文未或文首查起,而不會(huì)查找下一條
End Sub

Private Sub Command2_Click() 'richtextbox控件的替換
    Call Function1.Seektxt(RichTextBox1, Text1, -Check1.Value, -Check2.Value, fanxia, txtchang, Combo1.ListIndex + 1, Text2)
    txtchang = False
End Sub

Private Sub Text1_Change()
    txtchang = True          '標(biāo)記查找或替換內(nèi)容發(fā)生改變,作用:當(dāng)用戶(hù)的查找或替換內(nèi)容發(fā)生改變且選擇的查找方向?yàn)槲氖谆?End Sub                      '文未找起,則可用此值作為refind參數(shù)的值,重新從頭或從最后找起,當(dāng)然,您也可以不設(shè)置此值
                             '提示：seektxt函數(shù)的refind參數(shù)若傳遞為true ,則fangxiang參數(shù)的值必須是4或者5，否則函數(shù)將自動(dòng)屏蔽
Private Sub Text2_Change()   'refind參數(shù)（既當(dāng)此參數(shù)為缺省值false)
    txtchang = True
End Sub
  
Private Sub Option1_Click(Index As Integer)
    fanxia = Index           '記下用戶(hù)選擇的查找方向
End Sub

 

                             函數(shù)返回0,表示在指定的方向和條件下,已搜索或替換完畢.此示例程序沒(méi)有接受函數(shù)的返回值
                             您也可以用例如A=Function1.seektxt(........)的方式來(lái)接受返回值.
                             請(qǐng)注意，如果是Textbox控件，其Hideselection屬性必須設(shè)為false


函數(shù)二：
      OnlyOpenFolder(frm, ByVal Title As String) As String  
      此函數(shù)能打開(kāi)只能選擇文件夾的對(duì)話框。frm為窗體名稱(chēng)，title為提示信息。
      如：call onlyopenfolder(form1,"請(qǐng)選擇目錄:")   

函數(shù)三：
      Getlincount(txtBoxName) As Long   
      獲取文本框總行數(shù),boxname為文本框的名稱(chēng),如果文本框?yàn)榭談t返回0
      如:i=getlincount(text1)

函數(shù)四:
      GetLine(BoxName, Whichline As Long) As String  
      獲取指定行的內(nèi)容,boxname為為文本框的名稱(chēng)，whichline為指定的行數(shù)，如果沒(méi)有這一行，則返回"-1"

函數(shù)四:
      Getlength(BoxName, Whichline As Long) As Long   
      獲取指定行長(zhǎng)度,參數(shù)與上同，沒(méi)有這一行，則返回-1

函數(shù)五：
      GetCaretPos(BoxName, LineNo As Long, ColNo As Long)   
      獲取光標(biāo)在文本框的位置，boxname為為文本框的名稱(chēng),lineno和colno返回光標(biāo)的行和列
      如：dim i as long
          dim k as long
          call function1.getcaretpos(text1,i,k)
          msgbox “行為" & str(i) + vbcrlf + "列為" & str(k)

函數(shù)六：
      Undo(BoxName) 
      調(diào)用此參數(shù)可在文本框中進(jìn)行撤消操作,boxname為文本框名稱(chēng)

函數(shù)七：
      EditLine(BoxName, ByVal Whichline As Long, ByVal ChangeTxt As String) As Boolean  
      修改某一行,若changetxt為空串，則是將找到的內(nèi)容刪除,修改成功返回true,否則返回false

函數(shù)九：
      GetStrInLine(BoxName, ByVal Findstr As String, Optional ByVal mcase As Boolean,_
                   Optional GetlineItem As Boolean) As String  

      獲取文本框中包含指定字符串的所有行的內(nèi)容或者所有行號(hào)
      boxname為為文本框的名稱(chēng),Findstr為要查找的字符串表達(dá)式
      mcase指定是否要區(qū)分大小寫(xiě)，默認(rèn)是不區(qū)分大小寫(xiě)，若mcase為true則區(qū)分大小寫(xiě)
      若getlineitem為true，則是返回所有以"\"隔開(kāi)的行號(hào)，缺省是返回內(nèi)容

函數(shù)十：
       DelSpace(ByVal Txt As String) As String 
       刪除字符串中所有空格

函數(shù)十一：
       lUcase(ByVal Txt As String, ByVal ChangeTxt As String, Optional ByVal Typelei As Boolean) As String
       在字符串中將指定字符轉(zhuǎn)為大\小寫(xiě)，Typelei缺省是轉(zhuǎn)為小寫(xiě)，傳遞為true則轉(zhuǎn)為大寫(xiě)
       txt為被查找的字符串，changetxt為要轉(zhuǎn)換的字符      

函數(shù)十二：
        CountStr(ByVal Txt As String, Optional ByVal FindTxt As String) As Long 
        在字符串統(tǒng)計(jì)某一字符串總數(shù)，txt為被查找的字符串，findtxt為要查找的字符串

函數(shù)十三：
         Delchange(ByVal Txt As String, ByVal FindTxt As String, Optional SpaceTxt As String) As String
                     
         刪除或替換字符串中指定的字符,若spacetxt傳遞為空串則是刪除
         txt為被查找的字符串，findtxt為要修改的字符串

函數(shù)十四：
         IsAllStr(ByVal Txt As String) As Boolean 
         判斷字符串中是否包含數(shù)字,有則返回true,否則返回false

函數(shù)十五：
        SaveTree(Treename, ByVal Path As String) As Long 
        將treeview的內(nèi)容保存到文件中,treename為treeview控件的名稱(chēng)，path為保存路徑名稱(chēng)
        如果目錄表為空則跳出不保存savetree返回0
        保存成功返回1，否則返回-2
        如果傳遞的第一個(gè)參數(shù)非treeivew控件返回-1
        保存treeview的目錄結(jié)構(gòu),有一個(gè)非常重要的前提就是,
        節(jié)點(diǎn)名稱(chēng)中(node的text屬性)不能帶有"*"號(hào),才能正確保存和讀取
        

函數(shù)十五：
          ReadTreeFile(Treename, ByVal Path As String) As Long 
          讀取目錄文件到treeview中，是上面的逆函數(shù)
           
          函數(shù)返回值      說(shuō)明

              1          讀取成功
 
              0          文件沒(méi)找到
           
             -1          路徑?jīng)]找到
           
             -2          目錄文件為空
           
             -3          目錄文件有空行或內(nèi)容受損
          
             -4          未啟動(dòng)圖像控件,或此控件的圖片數(shù)量不足
          
             -5          第一個(gè)參數(shù)非treeview控件             
             
             -6          未知錯(cuò)誤

函數(shù)十六：
        IsDat(ByVal Txt As String) As Boolean 
        判斷一個(gè)字符串是否純?yōu)閿?shù)字，不包含任何其他的可視字符,是返回true,否則返回false

函數(shù)十七：
        FileIsHave(ByVal FilePath As String) As Boolean 
        判斷文件是否存在

函數(shù)十八：
        FolderIsHave(ByVal FolderPath As String) As Boolean 
        判斷文件夾是否存在

函數(shù)十九：
        GetFileAttrib(ByVal filename As String) As String 
        返回文件屬性

        返回值      說(shuō)明
          r         只讀
          h         隱藏
          s         系統(tǒng)
          a         存檔
          或者返回三者的各種組合
          0         無(wú)設(shè)置屬性 

函數(shù)二十：
        setFileAttrib(ByVal filename As String,Attr As String) As Boolean
        設(shè)置文件屬性, attr為要設(shè)置的屬性值，參考上面的屬性值。         
        如：call function1.setfileattrib("c:\1.txt","rh")  設(shè)置為只讀和隱藏屬性

函數(shù)二十一：
          GetFolderAttrib(ByVal Foldername As String) As String 
          返回文件夾屬性，與函數(shù)十九一樣.

函數(shù)二十二：
          SetFolderAttrib(ByVal Foldername As String, Attr As String) As Boolean 
          設(shè)置文件夾屬性。

函數(shù)二十二：
          AddFile(Boxtype, ByVal Path As String, Optional ByVal Clean As Boolean) As Boolean

          此函數(shù)能使文本框（textbox)保存、裝載文件變得更簡(jiǎn)單易行，因?yàn)樗苁箃extbox文
          本框象richtextbox文本框擁有l(wèi)oadfile方法一樣，一句代碼即可裝入文件。

          其次，不僅僅是保存和裝入簡(jiǎn)單，此函數(shù)還可以使文本框能追加一個(gè)或多個(gè)文件，或同時(shí)調(diào)
          入兩個(gè)以上文件（包括textbox和richtextbox文本框），特別是richtextbox文本框，即可以
          追加txt格式的文件，也可以追加rtf格式的文件，甚至是兩種文件同時(shí)追加。
          
          Boxtype為richtextbox或textbox的名稱(chēng)
          Clean為true,則是將調(diào)入的文件內(nèi)容覆蓋文本框的內(nèi)容,否則,將調(diào)入的文件內(nèi)容追加到文本框中,缺省為false(追加)
          
          如：call function1.addfile(richtextbox1,"c:\1.txt" & "*" & "c:\1.rtf")  '用"*"隔開(kāi)要打開(kāi)的各個(gè)文件,如果是一個(gè)則不必

函數(shù)二十三： 
          SaveFile(BoxName, ByVal Path As String) As Boolean
          保存textbox控件的文本內(nèi)容到文件。boxname為文本框名稱(chēng)，path為保存的路徑和文件名
          如果path指向的文件已存在,則會(huì)進(jìn)行覆蓋
          保存成功返回true,否則返回false(如文件已存在并具有只讀屬性無(wú)法寫(xiě)入)
          如：call funcion1.savefile(text1,"c:\1.txt")     
     
函數(shù)二十四:
          GetFolderCount(ByVal Foldername As String) As Long
          獲取某個(gè)文件夾中的文件夾總數(shù),包括受保護(hù)的操作系統(tǒng)文件夾和隱藏文件夾，但不包括其下級(jí)文件夾

函數(shù)二十五:
          GetFileCount(ByVal Foldername As String) As Long
          獲取某個(gè)文件夾中的文件總數(shù)，包括受保護(hù)的操作系統(tǒng)文件和隱藏文件，但不包括下級(jí)文件夾的文件

函數(shù)二十六:
          GetAllFileName(ByVal Foldername As String) As String
          獲取某個(gè)文件夾中的所有文件的名稱(chēng)，包括受保護(hù)的操作系統(tǒng)文件和隱藏文件，但不包括下級(jí)文件夾的文件，各個(gè)文件名用“\"號(hào)隔開(kāi)

函數(shù)二十七:
          GetSysFolder(ByVal TypeFolder As Long) As String 
          獲取系統(tǒng)文件夾
          
          參數(shù)        返回值

           0        windows的安裝路徑

           1        system系統(tǒng)文件夾

           2        temp臨時(shí)文件夾
        
           3        desktop桌面文件夾

           4        MyDocuments我的文檔文件夾

           5        Fonts字體文件夾

           6        StartMenu開(kāi)始菜單文件夾