myGully.com - Einzelnen Beitrag anzeigen

.ShoXx! · 07.02.11, 14:51

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:

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!

07.02.11, 14:51	#1
.ShoXx! Registriert seit: Dec 2009 Beiträge: 792 Bedankt: 49	[VB6]Funktion übersetzen 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: 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! __________________ To succeed you have to stop being ordinary and be legen - wait for it - dary.