WCM - Das österreichische Computer Magazin Forenübersicht
 

Zurück   WCM Forum > Rat & Tat > Programmierung

Programmierung Rat & Tat für Programmierer

Microsoft KARRIERECAMPUS

 
 
Themen-Optionen Ansicht
Alt 02.01.2002, 20:37   #7
Sonic
Master
 
Registriert seit: 28.03.2000
Alter: 45
Beiträge: 691


Sonic eine Nachricht über ICQ schicken
Standard

Zitat:
Original geschrieben von Jaguar
i = "0x" & stringvar
Bist du sicher!? Habs probiert und bei mir gehts nicht! (VB6 sp5)
"Fehler Typen unverträglich!" Und mit den Konvertirungsfunktionen (val, cint, clng,...) gehts leider auch nicht.

@Venkman:

Dir wird nichts übrig bleiben als selbst umzurechenn.
Hab dir eine Funktion geschrieben:

Code:
Private Function lHexToLong(ByVal sValue As String) As Long
  Const sHexVal As String = "0123456789ABCDEF"
  Dim iPos As Integer
  Dim iStellenwert As Integer
  
  sValue = UCase(Trim(sValue))
  If Left(sValue, 2) = "0X" Then sValue = Trim(Right(sValue, Len(sValue) - 2))
  If Right(sValue, 1) = "H" Then sValue = Trim(Left(sValue, Len(sValue) - 1))
  
  For iPos = Len(sValue) To 1 Step -1
    iStellenwert = InStr(1, sHexVal, Mid(sValue, iPos, 1))
    If iStellenwert = 0 Then
      MsgBox "Fehler beim Umrechenen!" & vbCrLf & "Illegales Zeichen!", vbOKOnly + vbCritical, "Fehler"
      Exit Function
    End If
    iStellenwert = iStellenwert - 1
    HexToLong = HexToLong + iStellenwert * 16 ^ (Len(sValue) - iPos)
  Next iPos
End Function
lg
____________________________________
__________________
|»»»»»SONIC««««««|
¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
Sonic ist offline   Mit Zitat antworten
 


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Gäste: 1)
 

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge hochzuladen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.

Gehe zu


Alle Zeitangaben in WEZ +2. Es ist jetzt 16:25 Uhr.


Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Forum SEO by Zoints
© 2009 FSL Verlag