如把Hex(11) Format后為 0x0B
uj5u.com熱心網友回復:
'' 用途:將十六進制轉化為二進制'' 輸入:Hex(十六進制數)
'' 輸入資料型別:String
'' 輸出:HEX_to_BIN(二進制數)
'' 輸出資料型別:String
'' 輸入的最大數為2147483647個字符
Public Function HEX_to_BIN(ByVal Hex As String) As String
Dim i As Long
Dim B As String
Hex = UCase(Hex)
For i = 1 To Len(Hex)
Select Case Mid(Hex, i, 1)
Case "0": B = B & "0000"
Case "1": B = B & "0001"
Case "2": B = B & "0010"
Case "3": B = B & "0011"
Case "4": B = B & "0100"
Case "5": B = B & "0101"
Case "6": B = B & "0110"
Case "7": B = B & "0111"
Case "8": B = B & "1000"
Case "9": B = B & "1001"
Case "A": B = B & "1010"
Case "B": B = B & "1011"
Case "C": B = B & "1100"
Case "D": B = B & "1101"
Case "E": B = B & "1110"
Case "F": B = B & "1111"
End Select
Next i
While Left(B, 1) = "0"
B = Right(B, Len(B) - 1)
Wend
HEX_to_BIN = B
End Function
VB.Net自帶函式:
十進制轉八進制:Oct(num)
十六進制轉八進制:oct("&H" & num)
十進制轉十六進制:hex(num)
八進制轉十六進制:hex("&O" & num)
十六進制轉換為十進制
Dim str As String
str = Text2.Text
Text10.Text = CLng("&H" & str)
代碼來源:http://www.lob.cn/jq/skill/2487.shtml
uj5u.com熱心網友回復:
0x0B 是C或C#的表現形式,VB.NET中用&H表示。轉載請註明出處,本文鏈接:https://www.uj5u.com/net/226764.html
標籤:VB.NET
