Преобразование шестнадцатеричного значения в десятичное значение в VB6

Как преобразовать шестнадцатеричное значение в десятичное значение в VB6?

Я пытаюсь просто посмотреть, работает ли это:

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

тем не менее, я получаю "Несоответствие Типов" ошибка.

6
vb6

7 ответов

избавьтесь от знака#

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

избавиться от знака номера (#) в строке hexVal.

4

Попробуй:

value=CDbl("&H" & HexValue)

или

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

попробуйте >>>>>> Печать Hex(Asc (Text1.Текст))

1

это должно помочь

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

0
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
0