Rubrik: Zeichenketten | 22.03.05 |
lstrcpyn-Funktion Diese Funktion kopiert eine angegebene Anzahl von Zeichen eines Strings in eine Variable. | ||
Betriebssystem: Win95, Win98, WinNT 3.1, Win2000, WinME | Views: 7.943 |
Deklaration:
Declare Function lstrcpyn Lib "kernel32.dll" _ Alias "lstrcpynA" ( _ ByVal lpString1 As Any, _ ByVal lpString2 As Any, _ ByVal iMaxLength As Long) As Long
Beschreibung:
Diese Funktion kopiert eine angegebene Anzahl von Zeichen eines Strings in eine Variable.
Parameter:
lpString1 | Erwartet dieZielvariable, die die zu kopierenden Zeichen empfangen soll. |
lpString2 | Erwartet dieQuellvariable, aus der eine bestimmte Anzahl von Zeichen kopiert werden sollen. |
iMaxLength | Erwartet die Anzahl der zu kopierenden Zeichen. Außerdem wird an den zu kopierenden String ein "VBNullChar"-Zeichenangehängt, das mit zu berechnen ist. |
Rückgabewert:
Ist die Funktion erfolgreich, so wird ein Wert "ungleich 0" zurückgegeben, andernfalls derWert "0". Für erweiterte Fehlerinformationen rufen Sie die GetLastError-Funktion auf.
Beispiel:
Private Declare Function lstrcpyn Lib "kernel32.dll" _ Alias "lstrcpynA" ( _ ByVal lpString1 As Any, _ ByVal lpString2 As Any, _ ByVal iMaxLength As Long) As Long
' Einen String kopieren und ausgeben Private Sub Command1_Click() Dim Retval As Long, TmpStr As String, TmpBuffer As String TmpBuffer = "Dies ist ein Test-String" TmpStr = Space(Len(TmpBuffer)) Retval = lstrcpyn(TmpStr, TmpBuffer, Len(TmpBuffer) + 1) If Retval = 0 Then MsgBox "Die Funktion wurde nicht Ordnungsgemäß durchgeführt", , "Fehler" End If MsgBox "Der kopierte String ist: """ & TmpStr & """" End Sub