2013年7月22日
摘要: 分享一个utf-8转字符串的函数。解决编码带来的错误!调用方法:Private Sub cmdConvert_Click() fm20TxtText.Text = FromUtf8(FromHex(fm20TxtHex.Text))End Sub函数如下:Private Declare Function CryptStringToBinary Lib "Crypt32" _ Alias "CryptStringToBinaryW" ( _ ByVal pszString As Long, _ ByVal cchString As Long, _ ByVa 阅读全文
posted @ 2013-07-22 17:24 Officecn 阅读(3601) 评论(0) 推荐(0)