繁简体转换代码

dabian001

<p>繁简体转换代码&nbsp; <br/>作者：　来源：plwww　发布时间：2006.08.16 </p><p>&nbsp;<br/>&nbsp;</p><p>窗口上加一个textbox，两个commandbutton</p><p></p><p>Option Explicit<br/>Private Declare Function LCMapString Lib "kernel32" Alias _<br/>"LCMapStringA" (ByVal Locale As Long, ByVal dwMapFlags As _<br/>Long, ByVal lpSrcStr As String, ByVal cchSrc As Long, _<br/>ByVal lpDestStr As String, ByVal cchDest As Long) As Long<br/>Private Declare Function lstrlen Lib "kernel32" Alias "lstrlenA" _<br/>(ByVal lpString As String) As Long</p><p></p><p>Dim STf As String'繁体字符串<br/>Dim STj As String'简体字符串<br/>Dim STlen As Long'待转换字串长度</p><p></p><p>Private Sub Command1_Click() 'Gb码简体转繁体<br/>STj = Text1.Text<br/>STlen = lstrlen(STj)<br/>STf = Space(STlen)<br/>LCMapString &amp;H804, &amp;H4000000, STj, STlen, STf, STlen<br/>Debug.Print STf<br/>Text1.Text = STf<br/>End Sub</p><p></p><p>Private Sub Command2_Click() 'Gb码繁体转简体<br/>STf = Text1.Text<br/>STlen = lstrlen(STf)<br/>STj = Space(STlen)<br/>LCMapString &amp;H804, &amp;H2000000, STf, STlen, STj, STlen<br/>Debug.Print STj<br/>Text1.Text = STj<br/>End Sub</p><p></p><p><br/>Private Sub Form_Load()<br/>Command1.Caption = "转成繁体"<br/>Command2.Caption = "转成简体"<br/>End Sub<br/>&nbsp;<br/></p>

[此贴子已经被作者于2006-12-30 17:31:21编辑过]

马大哈

顶!!!!

5988143

呵呵,這個不适用~