| Select Case, Returncode MsgBox |
| |
| |
| Private Sub cmdRechnen_Click() | |
| Dim atext As String, monat As Byte | Variablen für Jahreszeit (String) und Monat (Zahl). |
| monat = Val(txtMonat.text) | Inhalt der Textbox ist die Monatszahl. |
| Select Case monat | |
| Case 12, 1, 2: atext = "Winter" | Bei Eingabe einer Zahl wird die passende Jahreszeit |
| Case 3, 4, 5: atext = "Frühling" | zurückgegeben. |
| Case 6, 7, 8: atext = "Sommer" | |
| Case 9, 10, 11: atext = "Herbst" | |
| Case Else | |
| atext = "ungültig" | |
| txtMonat.text = "" | |
| txtMonat.SetFocus | |
| End Select | |
| lblAusgabe.Caption = atext | |
| End Sub | |
| |
| Private Sub cmdEnde_Click() | Auswerten des Returncodes bei einer MsgBox. |
| Dim text As String, ret As Integer | |
| ret = MsgBox("Sind Sie über 20?", 32 + 4, "Sind Sie mal ehrlich!") |
| If ret = 6 Then | |
| MsgBox "Sie sollten sich über die" & vbCrLf & "Straße helfen lassen!" |
| Else | |
| MsgBox "Entweder lügen Sie oder" & vbCrLf & "Sie sollten anderen über" & vbCrLf & "die Straße helfen!" |
| End If | |
 | |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| Das Datum könnte auch über das System ermittelt, und so stets aktuell im Label ausgegeben werden. |
| |
zurück