Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Was ich gestern vergessen haben ...
Autor: d.hohl
Datum: 17.05.08 14:44
Hier als Nachtrag für Euch die elegante Lösung der MKL$/CVL-Funktion für Visual Basic 6.0. '********************************************************************* ' ---------------------( Visual Basic 6.0 )------------------ ' MKL, CVL, MKI, CVI Funktionen ' -------------------------------------------------------------- Option Explicit Private Declare Sub MoveMemory Lib "Kernel32" Alias "RtlMoveMemory" _ (ByVal Dest As Any, ByVal Source As Any, ByVal Bytes As Long) Private Declare Sub MoveString Lib "Kernel32" Alias "RtlMoveMemory" _ (Dest As Any, ByVal Source As String, ByVal Bytes As Long) '-------------( START )--------------------- Private Sub Command1_Click() Dim in0 As String Dim in1 As Long Dim erg1 As String Dim erg2 As Long in1 = Val(txtArg1.Text) in0 = MKL(in1) erg1 = in0 Label2 = erg1 erg2 = CVL(erg1) Label3 = erg2 ' .... End Sub ' ---------( LONG INTEGER )----------------- Public Function MKL(ByVal N&) As String MKL = Space$(4) Call MoveMemory(ByVal MKL, VarPtr(N), 4) End Function '------------------------------------------- Public Function CVL(ByVal S$) As Long If Len(S$) < 4 Then MsgBox ("CVL Error - String too Short") Exit Function End If Call MoveString(CVL, S$, 4) End Function ' -------------- ( INTEGER )---------------- Public Function MKI(ByVal N%) As String MKI = Space$(2) Call MoveMemory(ByVal MKI, VarPtr(N), 2) End Function '------------------------------------------- Public Function CVI(ByVal S$) As Integer If Len(S$) < 2 Then MsgBox ("CVI Error - String too Short") Exit Function End If Call MoveString(CVI, S$, 2) End Function '*************************************************************** Schönes Wochenende noch wünscht Euch, Dietmar Hohl, Linz/Österreich (www.magnetmotor.at)

Suche Lösung für MKL$ / CVL-Funktion unter VB2008	1.930	d.hohl	16.05.08 17:09
Was ich gestern vergessen haben ...	1.672	d.hohl	17.05.08 14:44
Re: Was ich gestern vergessen haben ...	1.312	Melkor	18.05.08 22:39
Re: Marshal & Co @Melkor	1.308	d.hohl	20.05.08 18:11
Re: Marshal & Co @Melkor	1.396	ralf_oop	20.05.08 18:20
Problem mit MKL/CVL-Funktion nach VB2008!	1.466	d.hohl	21.05.08 19:35
Re: Problem mit MKL/CVL-Funktion nach VB2008!	1.382	Melkor	21.05.08 20:01
Re: Problem mit MKL/CVL-Funktion nach VB2008!	1.642	Dieter	21.05.08 22:46
Problem MKL/CVL-Funktion nach VB2008 Dank Dieter ...	1.440	d.hohl	23.05.08 13:53
Re: Problem MKL/CVL-Funktion nach VB2008 Dank Dieter ...	1.331	Dieter	23.05.08 13:59
Re: Problem mit MKL/CVL-Funktion nach VB2008!	1.330	Dieter	21.05.08 23:05

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen