Hm, ich weiß net. Viel mit VB.net hab ich net gemacht, aber der Long ist jetzt ein Int32. Also braucht man keinen Long übergeben. Und Convert.ToString() erzeugt nur einen String, aber rechnet nicht in hexadezimale Werte um.
Also mit dem Codeschnipsel geht es glaube ich nicht.
Zur Übersetzung des Codes:
Private Function longToHex(l As Long) As String
'Function die l aufnimmt; l ist ein Long, jetzt solltest Du Int32 nehmen
longToHex = Hex(l)
'Umrechnung in Hexadezimal von l
If Len(longToHex) < 4 Then longToHex = String(4 - Len(longToHex), "0") & longToHex
'wenn der errechnete Wert weniger als 4 Stellen hat, wird vorne mit 0 aufgefüllt
longToHex = Right(longToHex, 2) & Left(longToHex, 2)
'Funktionsrückgabe ist 2 Stellen von rechts des Funktionswertes & 2 Stellen von links
des Funktionswertes
End Function
|