Convertire il valore esadecimale in un valore decimale in VB6

Question

Come posso convertire un valore esadecimale in un valore decimale in VB6?

sto cercando solo per vedere se questo funziona:

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

Tuttavia, sto diventando "tipo non corrispondente" errore.

Answer 1

Sbarazzarsi della segno #

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

Answer 2

Sbarazzarsi del segno di numero (#) nella stringa hexVal.

Answer 3

Questo dovrebbe farlo

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

Answer 4

Prova:

value=CDbl("&H" & HexValue) 

o

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

Answer 5

prova ad esso >>>>>> Stampa 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 come numero intero On Error Resume Next HEXVAL = "# 7B19AB" str = Sostituisci (hexVal, "#", "") Text1.Text = str uzunluk = Len (Text1.Text) Per i = 0 Per uzunluk Text1.SelStart = i Text1.SelLength = 1 Stampa Hex (Asc (Text1.SelText)) Avanti i