在VB6中將十六進制值轉換爲十進制值

我想只是爲了看看，如果這個工程：

Dim hexVal as string 
hexVal = "#7B19AB" 
clng("&H" & hexVal)

但是，我得到「類型不匹配」的錯誤。

來源

2011-07-01 webdad3

啊，你的意思是「將一個十六進制字符串轉換爲二進制長。」根本沒有涉及「小數」。 – Bob77

擺脫了＃號的

Dim hexVal as string 
hexVal = "7B19AB" 
clng("&H" & hexVal)

來源

2011-07-01 22:52:18 JohnFx

擺脫hexVal字符串中的數字符號（＃）。

來源

2011-07-01 22:52:07 Coeffect

這應該這樣做

Dim hexVal as String 
hexVal = "#7B19AB" 
Dim intVal as Integer 
intVal = Val("&H" & Replace(hexVal, "#", ""))

來源

2011-07-01 23:02:06

試試看：

value=CDbl("&H" & HexValue)

或

value=CInt("&H" & HexValue) 'but range +- 32,768

來源

2012-09-11 16:56:57 LearningUser

感謝您發佈該答案，但它是已發佈和接受的其他人的副本。如果您想改進現有的anser，請對其進行編輯並由社區中的其他人審閱。 – Deanna

嘗試將其>>>>>> 打印十六進制（ASC（Text1.Text））

來源

2017-08-22 21:59:25

Dim uzunluk as Integer 

On Error Resume Next 
uzunluk = Len(Text1.Text) 
For i = 0 To uzunluk 
    Text1.SelStart = i 
    Text1.SelLength = 1 
    Print Hex(Asc(Text1.SelText)) 
Next i

來源

2017-08-22 22:09:34

< < < < 昏暗hexVal作爲字符串昏暗str作爲字符串昏暗uzunluk作爲整數上的錯誤繼續下一步hexVal =「＃7B19AB」str = Replace（hexVal，「＃」，「」）Text1.Text = str uzunluk = Len（Text1.Text）For i = 0 To uzunluk Text1.SelStart = i Text1.SelLength = 1 Print Hex Asc（Text1.SelText））Next i

來源

2017-08-22 22:54:24

在VB6中將十六進制值轉換爲十進制值

回答

相關問題