[.ShoXx!]

Hi,
ich hab auf meinem Lap noch ein altes VB6-Projekt, das ich gerne in C# oder VB.NET nachmachen will, jedoch habe ich noch nie in VB6 gearbeitet und suche deshalb jemanden der mir das vielleicht übersetzen könnte. Es geht um folgenden kleinen Code:

Private Function longToHex(l As Long) As String
    longToHex = Hex(l)
    If Len(longToHex) < 4 Then longToHex = String(4 - Len(longToHex), "0") & longToHex
    longToHex = Right(longToHex, 2) & Left(longToHex, 2)
End Function

Würde mich sehr freuen, wenn mir jemand helfen könnte!

[Xalir]

Private Function LongToHex(ByVal l as Long) As String
    Return Converter.ToString(l)
End Function

[Erebos76]

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

[Xalir]

Das kommt davon, wenn man nachts im Halbschlaf irgendwelche Beiträge verfasst.

Public Function DecToHex(ByVal ValueInDec As Int32) As String
        Return String.Format("{0:x4}", ValueInDec)
End Function

Long gibt es auch noch unter .NET, ist ein Alias für Int64.

[Erebos76]

Zitat von Xalir

Long gibt es auch noch unter .NET, ist ein Alias für Int64.

Wusst ich auch noch net, nehm ich so gerne mal mit. Danke für die Info.