netvbascii的简单介绍

VB.NET中怎么将16进制数换成对应的ASCII，比如说&H1000，怎么把他换成31H,30H,30H,30H

Public Function dec_to_hex(dec As Long) As String

Dim a As String

dec_to_hex = ""

Do While dec 0

a = CStr(dec Mod 16)

Select Case a

Case "0": a = "30H"

Case "1": a = "31H"

Case "2": a = "32H"

Case "3": a = "33H"

Case "4": a = "34H"

Case "5": a = "35H"

Case "6": a = "36H"

Case "7": a = "37H"

Case "8": a = "38H"

Case "9": a = "30H"

Case "10": a = "65H"

Case "11": a = "66H"

Case "12": a = "67H"

Case "13": a = "68H"

Case "14": a = "69H"

Case "15": a = "70H"

End Select

dec_to_hex = a " " dec_to_hex

dec = dec \ 16

Loop

End Function

相关问答

Q1: vb.net ascii码查询

'新建一个TextBox1netvbascii，一个Label1

Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress

Label1.Text = Asc(e.KeyChar)

End Sub

Q2: VB.net 中如何获取键盘输入的ASCii码

Private Sub Form1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Me.KeyPress

        If Asc(0) Then

        textbox1.text="0"

        end if

        end sub

netvbascii的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于、netvbascii的信息别忘了在本站进行查找喔。