VB108简繁体转换
'????????????????????????????????? '?**************?????????????????**************? '?**************? ?**************? '????????? freedom_zhl VB 交流 ????????? '?? ? ? ?? '?? ????????????????? ?? '?? 版权:本资源版权仅做交流用 ?? '?? ?? '?? 说明:位置栏位中输入您想将文本文件所创建的位置, ?? '?? 在文本名称栏位输入您想创建的文本名称,单击【位置】?? '?? 可清空位置栏中的
内容
财务内部控制制度的内容财务内部控制制度的内容人员招聘与配置的内容项目成本控制的内容消防安全演练内容
,单击【文本名称】可清空文本 ?? '?? 框中的文字~谢谢使用,敬请不吝赐教~ ?? '?? 介绍:无限精彩,就在【520709班】(百度贴吧)。 ?? '?? 再次感谢您对本吧的支持~ ?? '?? 联系方式:freedom_zhl@163.com ?? '?? freedom_zhl@139.com ?? '?? QQ:756824744(验证信息:vb交流) ?? '?? ?? '?? ????????????????????????? ?? '????? ???????????????? ????? '? ????????????????????????? ? '????????????????????????????????? '创建时间:2010-7-25 10:41:56
'直接复制即可
Private Declare Function LCMapString Lib "kernel32" Alias "LCMapStringA" (ByVal
Locale As Long, ByVal dwMapFlags As Long, ByVal lpSrcStr As String, ByVal cchSrc As
Long, ByVal lpDestStr As String, ByVal cchDest As Long) As Long
Private Declare Function lstrlen Lib "kernel32" Alias "lstrlenA" (ByVal lpString As
String) As Long
Dim aa$, ii&
Private Sub Command2_Click()
ii = lstrlen(Text1.Text)
aa = Space(ii)
LCMapString &H804, &H2000000, Text1.Text, ii, aa, ii
Text1.Text = aa
End Sub
Private Sub Form_Load()
Command1.Caption = "简体转繁体"
Command2.Caption = "繁体转简体"
End Sub
Private Sub Command1_Click()
ii = lstrlen(Text1.Text)
aa = Space(ii)
LCMapString &H804, &H4000000, Text1.Text, ii, aa, ii
Text1.Text = aa
End Sub