Konwertuj wartość szesnastkową na wartość dziesiętną w VB6

Question

Jak przekonwertować wartość szesnastkową na wartość dziesiętną w VB6?

Próbuję po prostu sprawdzić, czy to działa:

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

Jednak Dostaję "Rodzaj niedopasowanie" błąd.

Answer 1

Pozbyć się znakiem #

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

Answer 2

Pozbądź się znaku liczby (#) w ciągu znaków hexVal.

Answer 3

ten powinien zrobić to

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

Answer 4

spróbować:

value=CDbl("&H" & HexValue) 

lub

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

Answer 5

spróbować go >>>>>> Print Hex (ASC (Text1.Text))

Answer 6

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 

Answer 7

< < < < Dim hexVal As String Dim str As String Dim uzunluk As Integer On Error Resume Next hexVal = "# 7B19AB" str = Zamień (hexVal, "#", "") Text1.Text = str uzunluk = Len (Text1.Text) For i = 0 To uzunluk Text1.SelStart = i Text1.SelLength = 1 Print Hex (Asc (Text1.SelText)) Dalej i