Question

VB6.中怎样将十六进制数值以十进制方式在TEXT文本框中显示？

看看下面我的程序：
Private Sub Form_Load() ’串口初始化部分
MSComm1.CommPort = 2
MSComm1.Settings = "9600,N,8,1"
MSComm1.InputLen = 0 '设置从接收缓冲区读取字符数为1；为0时读取全部
MSComm1.RThreshold = 1 '接受到1个字节时触发oncomm事件
MSComm1.PortOpen = True
MSComm1.InputMode = comInputModeBinary '二进制方式发送
End Sub

’接收到数值后以十进制形式显示在文本框中，比如收到FF则显示255。
Private Sub MSComm1_OnComm()
Text1.Text = MSComm1.Input ’这样不行，出错的，该怎么办啊？
End sub

请您说的详细点，我明白了才会给你分，在线等答案，问题解决了马上给分。
一楼的方法不行啊，什么也不显示

Answer 1

Text1.Text =cstr(MSComm1.Input) 应该就行吧
如果还不行
dim a as long
a=clng(MSComm1.Input)
Text1.Text =cstr(a)
你只要确定MSComm1.Input返回的是一字节,应该就不会错的!

Answer 2

十六进制和十进制之间的转换：

Dim S As String, B As Byte, C as Long
S = "FF"
B = &HFE
C = 254
MsgBox Val("&H" & S)
MsgBox B
MsgBox Hex(C)

Answer 3

text1.text=cstr(val("&H" & a))
其中 a是16进制字符串变量

Answer 4

'改写 OnComm()事件:
Private Sub MSComm1_OnComm()
dim i as long
dim iData() as byte

if mscomm1.inbuffercount>0 Then
idata=mscomm1.input
for i=0 to ubound(idata)
text1.text = text1.text & idata(i) & " "
next i
end if
End sub

'若调试未通过，可以来信问我 cuidong@vip.163.com