Vypocet hodnoty hexa zapsaneho cisla
Zdravim. Potrebuju poradit s prevodem ve VB6. Mam 4 text.boxy a v kazdem je hodnota 0-255dec. V 5textboxu se nachazi zapis v hexa predchozich textboxu. Cele to predstavuje 4bajtovou hodnotu. Potrebuju toto cislo vyjadrit decimalne. Ve VB6 je funkce Hex(cislo) ktera prevadi dec do hex tu uz jsem pouzil, ale existuje funkce dec(hex) ktera vytvori cislo dec. Proste naopak. Za rady s timto problemem predem dekuji
Private Sub Command1_Click()
Text2.Text = HexToLong(Text1.Text)
End Sub
Function HexToLong(ByVal sHex As String) As Long
HexToLong = Val("&H" & sHex & "&")
End Function
stačí jen umět číst