|
Tipp 0197
|
InputBox-Rückgaben auswerten
|
|
|
Autor/Einsender: Datum: |
|
Angie 14.02.2002 |
|
Entwicklungsumgebung: |
|
VB 5 |
|
|
Die InputBox zeigt eine Eingabeaufforderung in einem Dialogfeld an, wartet auf die Eingabe
eines Textes oder die Auswahl einer Schaltfläche und gibt den Inhalt des Textfeldes zurück.
|
Wenn im Textfeld der InputBox nun keine Eingabe gemacht wurde, wird sowohl bei 'OK' als
auch bei 'Abbrechen' eine sogenannte "Null-Zeichenfolge" zurückgegeben.
|
Mit Hilfe der nicht dokumentierten StrPtr-Funktion lässt sich feststellen,
ob es sich bei der Rückgabe tatsächlich um einen "Null-String" handelt - per Definition
ist ein "Null-String" (vbNullString) ein Zeiger, dessen Wert 0 ist. Somit ist der Rückgabewert
eindeutig auswertbar. Ist das Ergebnis = 0, wurde die Schaltfläche 'Abbrechen' gewählt,
bei 'OK' wird "" zurückgegeben!
|
|
|
Dim strInput As String
strInput = InputBox("Bitte geben Sie einen Namen ein!", _
"InputBox-Demo", "VB-fun.de")
If StrPtr(strInput) = 0 Then
MsgBox "Die Schaltfläche 'Abbrechen' wurde gewählt!"
Else
If Len(strInput) = 0 Then
MsgBox "Es wurden keine Eingaben im " & _
"Textfeld der InputBox gemacht, " & _
"aber die Schaltfläche 'OK' gewählt!"
Else
MsgBox "Eingabe in der InputBox: " & strInput
End If
End If
|
|
|
|
Der hier abgebildete Code funktioniert auch in einem VBA-Projekt, dieser muss dazu lediglich
in den VB-Editor der entsprechenden Anwendung kopiert werden. Ein Import der im Download
enthaltenen *.frm-Datei ist nicht möglich.
|
|
Windows-Version |
95 |
|
|
98/SE |
|
|
ME |
|
|
NT |
|
|
2000 |
|
|
XP |
|
|
Vista |
|
|
Win
7 |
|
|
|
VB-Version |
VBA 5 |
|
|
VBA 6 |
|
|
VB 4/16 |
|
|
VB 4/32 |
|
|
VB 5 |
|
|
VB 6 |
|
|
|
|
Download (2,3 kB)
|
Downloads bisher: [ 1086 ]
|
|
|