锐客网

  1. 首页 > 睿知 > it技术 > >

netvbascii的简单介绍

IT技术case

VB.NET中怎么将16进制数换成对应的ASCII ， 比如说&H1000，怎么把他换成31H,30H,30H,30HPublic Function dec_to_hex(dec As Long) As String
Dim a As String
dec_to_hex = ""
Do While dec0
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
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
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的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于、netvbascii的信息别忘了在本站进行查找喔 。

    推荐阅读


    上一篇：奔腾的cpu是什么，奔腾cpu是什么cpu

    下一篇：情景直播录屏，直播录屏怎么做