vb6变量的值是中文怎么表达

来源：百度知道 编辑：UC知道 时间：2024/05/31 09:25:08
Dim A as Long
FrmFL.text1 = CStr(A) '在某个文本框中显示这个中文，共4个中文字

这么写会提示byref参数不符，请问正确改法应该怎样？如果A是big5码，怎么转换成简体下能看的中文（简体繁体无所谓）？

Option Explicit

'定义变量
Dim BIG5Data As Variant
Dim GBData As Variant

'定义自定义类型，用来处理编码的高低字问题
Type ChineseTypeA
loChar As Byte
hiChar As Byte
End Type

Private BIG5Type(&HA1 To &HFF, &H40 To &HFE) As ChineseTypeA '对应于BIG5字库
Private GBType(&HA7 To &HFF, &HA1 To &HFE) As ChineseTypeA '对应与GB字库

'//////////////////
'公共函数开始
'//////////////////

'BIG5转换到GB的函数

Function BIG5TOGB(strSource As String) As String
Dim I As Long, Y As Long
'定义数组，用来存放BIG5和GB内码数据
Dim bteBIG5() As Byte
Dim bteGB() As Byte

'如果输入的内容为空，则退出函数
If strSource = "" Then
BIG5TOGB = ""
Exit Function
End If

'将BIG5数组的类型从Unicode编码转换为系统缺省码
bteBIG5 = StrConv(strSource, vbFromUnicode)
'确定BIG5数组的下标，用来循环将所有的B