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
 
Hinweis für VBA-Anwender
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: [ 1010 ]

Vorheriger Tipp Zum Seitenanfang Nächster Tipp

Startseite | Projekte | Tutorials | API-Referenz | VB-/VBA-Tipps | Komponenten | Bücherecke | VB/VBA-Forum | VB.Net-Forum | DirectX-Forum | Foren-Archiv | DirectX | VB.Net-Tipps | Chat | Spielplatz | Links | Suchen | Stichwortverzeichnis | Feedback | Impressum

Seite empfehlen Bug-Report
Letzte Aktualisierung: Samstag, 25. Juni 2011