Convert hex value to decimal value in VB6

Question

How to convert hex value to decimal value in VB6?

I am trying to see if this works:

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

However, I get the error < MisMatch type .

Answer 1

Get rid of the sign #

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

Answer 2

Get rid of the number sign (#) in the string hexVal.

Answer 3

It should do it

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

Answer 4

Try:

 value=CDbl("&H" & HexValue) 

or

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

Answer 5

Try it like this:

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