| Forum: VB.NET |
Thema:
Re: LSet in VB.NET |
Von:
G. Guest (
18.05.2004 11:49) |
Also ich hab die ganze sache gelöst. War dummheit. eigentlich ist das ganze kein problem. wen die lösung interessiert hier der code. Diese Funktion entspricht dem kompletten VB 6.0 Code den ich im ersten Posting hatte.
Private Function Swap_32(ByRef n As Integer) As Integer
Dim NewBytes(3) As Byte
Dim OrigBytes(3) As Byte
OrigBytes = BitConverter.GetBytes(n)
NewBytes(0) = OrigBytes(3)
NewBytes(1) = OrigBytes(2)
NewBytes(2) = OrigBytes(1)
NewBytes(3) = OrigBytes(0)
Dim TempLong As Long = BitConverter.ToInt32(NewBytes, 0)
Swap_32 = TempLong
Exit Function
End Function
Danke für die Hilfe Klaas auch wenn ich es anders gelöst habe.
Antworten
Vorsicht bei der Eingabe: Die Zeichen ' oder -- sind nicht erlaubt!
