Convert hex value to a decimal value in VB6

Question

How can I convert a hex value to a decimal value in VB6?

I\'m trying just to see if this works:

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


        

Answer 1

Try it this way:

Print Hex(Asc(Text1.Text))

Answer 2

Be very carful.

Dim hexVal as string
hexVal = "FFFF"
clng("&H" & hexVal)

will return a value of -1 because it thinks your HEX value is signed. See what happens with F00A, again it thinks its signed.

Replace the Clng with ABS.

Answer 3

Get rid of the # sign

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

Answer 4

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 5

This should do it

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

Answer 6

Try It:

value=CDbl("&H" & HexValue) 

or

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