Option Explicit
Private Sub Form_Load()
Text1.Text = "please input your text to be converted"
End Sub
Private Sub Text1_click()
Text1.Text = ""
End Sub
Private Sub Text1_change()
QRmaker1.InputDataB = Text1.Text
End Sub
有沒有高手幫忙解釋一下，怎么才能生成漢字二維碼？
運行英文時，二維碼掃描正常。運行中文字符是，二維碼掃描時亂碼。
跪求高手幫助。
uj5u.com熱心網友回復：
幫助手冊里怎么說明的，InputDataB 不是應該傳 gb2312 編碼嗎？猜測是QRmaker1.InputDataB = StrConv(Text1.Text, vbFromUnicode)
uj5u.com熱心網友回復：
它的幫助手冊里的示例代碼，是直接使用VB的String變數值，沒有StrConv( )轉換呢。
不知道樓主是用什么掃的碼啊，是不是“編碼格式不兼容”造成的呢？
uj5u.com熱心網友回復：
亂碼最主要是掃描部分，是否支持中文？是否設定了對應的編碼（GB2312、UTF-16）？uj5u.com熱心網友回復：
vb及vb從Excel里取的文本用的Unicode編碼 中英文每個字符都占2個位元組，直接扔到InputData里的變數疑似用ANSI編碼，英文1位元組中文2位元組，沒指定語言的ANSI決議很混亂，測驗很多讀二維碼的應用是按 UTF-8 解碼，英文1位元組中文3位元組，在網上找了個轉UTF8位元組陣列的腳本，傳到InputDataB里 問題解決~ 附贈VBA可用的UTF8編碼解碼腳本，來源不明。
Option Explicit
Private Declare Function WideCharToMultiByte Lib "kernel32" (ByVal CodePage As Long, ByVal dwFlags As Long, ByVal lpWideCharStr As Long, ByVal cchWideChar As Long, ByRef lpMultiByteStr As Any, ByVal cchMultiByte As Long, ByVal lpDefaultChar As String, ByVal lpUsedDefaultChar As Long) As Long
Private Declare Function MultiByteToWideChar Lib "kernel32" (ByVal CodePage As Long, ByVal dwFlags As Long, ByVal lpMultiByteStr As Long, ByVal cchMultiByte As Long, ByVal lpWideCharStr As Long, ByVal cchWideChar As Long) As Long
Private Const CP_UTF8 = 65001
Private Declare Sub MoveMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
Public Function UTF8_Encode(ByVal strUnicode As String) As Byte()
'UTF-8 編碼
Dim TLen As Long
Dim lngBufferSize As Long
Dim lngResult As Long
Dim bytUtf8() As Byte
TLen = Len(strUnicode)
If TLen = 0 Then Exit Function
lngBufferSize = TLen * 3 + 1
ReDim bytUtf8(lngBufferSize - 1)
lngResult = WideCharToMultiByte(CP_UTF8, 0, StrPtr(strUnicode), TLen, bytUtf8(0), lngBufferSize, vbNullString, 0)
If lngResult <> 0 Then
lngResult = lngResult - 1
ReDim Preserve bytUtf8(lngResult)
End If
UTF8_Encode = bytUtf8
End Function
Public Function UTF8_Decode(ByRef bUTF8() As Byte) As String
'UTF-8 解碼
Dim lRet As Long
Dim lLen As Long
Dim lBufferSize As Long
Dim sBuffer As String
Dim bBuffer() As Byte
lLen = UBound(bUTF8) + 1
If lLen = 0 Then Exit Function
lBufferSize = lLen * 2
sBuffer = String$(lBufferSize, Chr(0))
lRet = MultiByteToWideChar(CP_UTF8, 0, VarPtr(bUTF8(0)), lLen, StrPtr(sBuffer), lBufferSize)
If lRet <> 0 Then
sBuffer = Left(sBuffer, lRet)
End If
UTF8_Decode = sBuffer
End Function
uj5u.com熱心網友回復：
對電腦而言沒有亂碼，只有二進制位元組；對人腦才有亂碼。啊 GBK:0xB0 0xA1,Unicode-16 LE:0x4A 0x55,Unicode-16 BE:0x55 0x4A,UTF-8:0xE5 0x95 0x8A轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/49989.html
標籤：VB基礎類
下一篇：新人想入行VB,請高手指教