none
可以进行繁简体字互换的函数(VB2005) RRS feed

答案

  • Code Snippet

     


      Imports   Microsoft.VisualBasic  
       
      Class   lngConvert '繁簡體語言轉換  
              Public   Function   toGb(aStrTxt   As   String)   As   String  
                      Return   StrConv(aStrTxt,   VbStrConv.SimplifiedChinese,   &H804)  
              End   Function  
               
              Public   Function   toBig(aStrTxt   As   String)   As   String  
                      Return   StrConv(aStrTxt,   VbStrConv.TraditionalChinese,   &H804)  
              End   Function  
      End   Class   
     

     

     

     

    2008年9月7日 11:56
    版主

全部回复

  • Code Snippet

     


      Imports   Microsoft.VisualBasic  
       
      Class   lngConvert '繁簡體語言轉換  
              Public   Function   toGb(aStrTxt   As   String)   As   String  
                      Return   StrConv(aStrTxt,   VbStrConv.SimplifiedChinese,   &H804)  
              End   Function  
               
              Public   Function   toBig(aStrTxt   As   String)   As   String  
                      Return   StrConv(aStrTxt,   VbStrConv.TraditionalChinese,   &H804)  
              End   Function  
      End   Class   
     

     

     

     

    2008年9月7日 11:56
    版主
  • 谢谢!!

     

    2008年9月8日 10:17