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.737

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