![]() |
|
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 ]
|
|
|
Vorheriger Tipp
Zum Seitenanfang 