lstrcpyn-Funktion Diese Funktion kopiert eine angegebene Anzahl von Zeichen eines Strings in eine Variable.
Betriebssystem:  Win95, Win98, WinNT 3.1, Win2000, WinME	Views:  347

Große Aktionswoche im Oktober 2008 20% auf alle sev-Komponenten! In der Woche vom 01.10. bis 07.10.08 gewähren wir auf alle sev-Komponenten 20% Rabatt. Egal ob Einzelkomponente oder Komplettpaket! - Werbung -Greifen Sie jetzt zu!

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