VB text控件 输入类型转换问题

Question

我需要在textbox中输入数据，而大家都知道用textbox.text取到的是个string型的值，而我想要的是十六进制类型的值，该怎么办呢?比如我在textbox里面输入FF,那么用textbox.text取到的是string型值"FF",而我希望得到的是十六进制的数据FF,并发送给下位机,该怎么办呢？不用textbox.text取值的话，那该用textbox的那个属性来取值呢？ 

Answer 1

dim s as string 
dim c as byte
s= "&h" & text1.text 'FF
c=cbyte(s)
现在c的值就是十六进制FF，十进制255，二进制11111111或者这样
dim s as string 
Dim c() As Byte
Dim i As Long, n As Long
Dim s As String
s = Text1.Text 'ABCDEF
s = Replace(s, " ", "") '去掉空格
n = Len(s)
If n Mod 2 <> 0 Then
   MsgBox "长度错误"
Else
   ReDim c(0 To (n / 2) - 1) As Byte
   For i = 1 To n Step 2
       c(i \ 2) = CByte("&h" & Mid(s, i, 2))
   Next
End If
数组C()里面存放的就是text1对应的十六进制数据

Answer 2

Private Sub Command1_Click()
Dim s As String
s = "&H" & Text1.Text
s = CLng(s)
MsgBox s
End Sub

Answer 3

Text只能输入十六进制数,乱输会产生错误,s = CLng(s)将它转换成了十进制数,说明FF之类可转换成数

Answer 4

Option Explicit
    Dim sj As BytePrivate Sub Command1_Click()
    Print sj
End SubPrivate Sub Form_Load()
    Text1 = ""
End SubPrivate Sub Text1_Change()
    Dim i As Integer
    Text1 = UCase(Text1)
    If Len(Text1) = 2 Then
        For i = 1 To Len(Text1)
            If Asc(Mid(Text1, i, 1)) < 48 Or Asc(Mid(Text1, i, 1)) > 57 And Asc(Mid(Text1, i, 1)) < 65 Or Asc(Mid(Text1, i, 1)) > 70 Then
                Text1.SetFocus
                Text1 = ""
                Exit For
            Else
                sj = Val("&H" & Text1)
                Command1.SetFocus
            End If
    Next
    End If
End Sub

Answer 5

Option Explicit
    Dim sj() As BytePrivate Sub Send()
    ReDim sj(Len(Text1) / 2 - 1)
    Dim i As Integer
    For i = 1 To Len(Text1) Step 2
        sj((i - 1) / 2) = Val("&H" & Mid(Text1, i, 2))
    Next
    MSComm1.Output = sj
End SubPrivate Sub Form_Load()
    MSComm1.Settings = "9600,N,8,1"
    MSComm1.PortOpen = True
    Text1 = ""
End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        Dim i As Integer
        Text1 = UCase(Text1)
        For i = 1 To Len(Text1)
            If Asc(Mid(Text1, i, 1)) < 48 Or Asc(Mid(Text1, i, 1)) > 57 And Asc(Mid(Text1, i, 1)) < 65 Or Asc(Mid(Text1, i, 1)) > 70 Then
                Text1.SetFocus
                Text1 = ""
                Exit Sub
            End If
        Next
        If Len(Text1) Mod 2 = 0 Then
            Send
        End If
    End If
End Sub