将下载的文件添加一个类,引用即可。 eg:Shared Sub PYMWBM(ByVal StrIN As String, ByRef StrOutPYM As String, ByRef StrOutWBM As String) Dim wbpym As New CodeClass StrOutPYM = wbpym.GetSpellCode(Trim(StrIN)) StrOutWBM = wbpym.GetWBCode(Trim(StrIN)) End Sub
pb12.5实现将汉字转拼音首字母,五笔码,去除特殊字符,使用方法: 引用:public function string hztopywb(string inputstring,int totype) library "hztopywb.dll" alias for "hztopywb;Ansi" 转换:hztopywb(ls_tname,0),0表示拼音,1表示五笔