vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Sch?tzen Sie Ihre Software vor Software-Piraterie - mit sevLock 1.0 DLL!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   RSS-Feeds  | Newsletter  | Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2019
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

VB.NET - Ein- und Umsteiger
Select Case of. If-Anweis. mit Messagebox 
Autor: theGodfather
Datum: 21.04.19 11:53

Hallo zusammen,

bei folgender Aufgabenstellung habe ich Probleme es zum laufen zu bringen:

1. Sorgen Sie dafür, dass das Programm nicht abbricht, wenn Buchstaben oder zu große Werte eingegeben wurden.
2. Geben Sie in diesem Fall eine AUSSAGEFÄHIGE Fehlermeldung aus
3. Bei mehr als 10 Kindern fragen Sie bitte nach, ob das stimmen kann



Mein code sieht aus wie unten, aber nur der obere Abschnitt passt. Ab dem Case Is > 256 habe ich einen Fehler. Ich weiss dass Byte nur bis 255 funktioniert. Vermutlich daher das Problem. weiteres Problem, dass bei einem String auch keine Fehlermeldung erfolgt.

Private Sub cmdAufgabe4_Click()
 
    Dim bytKinderzahl As Byte   'Dieser Befehl darf nicht geändert werden
    bytKinderzahl = Me.txtKinder
 
 
     Select Case Me.txtKinder
 
        Case 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10
          Exit Sub
 
        Case Is > 10
            MsgBox "Sind Sie sicher, dass Ihre Eingabe von " & Me.txtKinder & "" & _
              "Kindern korrekt ist?",   _vbYesNo, "ACHTUNG!"
          Exit Sub
 
 
       Case Is > 256    'ab hier funktioniert mein Code nicht mehr
 
            MsgBox "Die von Ihnen eingegebene Kinderanzahl ist zu groß!" & vbCr _
              & "Korrigieren Sie ihre Eingabe!", vbCritical, "Fehlerhafte" & _
              "Eingabe"
            Exit Sub
 
 
    Case Else
 
               MsgBox "" & vbCr & "Korrigieren Sie bitte Ihre Eingabe und geben" & _
                 "Sie die Anzahl Ihrer Kinder ein.", vbInformation, _
                 "Fehlerhafte Eingabe"
            Exit Sub
 
                End Select
Hat jemand eine Idee was ich falsch mache und wie ich es besser machen kann?

Danke im Voraus
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Select Case of. If-Anweis. mit Messagebox114theGodfather21.04.19 11:53
Re: Select Case of. If-Anweis. mit Messagebox66Manfred X21.04.19 15:20
Re: Select Case of. If-Anweis. mit Messagebox43sv0001021.04.19 18:31
Re: Select Case of. If-Anweis. mit Messagebox38Manfred X21.04.19 19:44
Re: Select Case of. If-Anweis. mit Messagebox39theGodfather21.04.19 20:37
Re: Select Case of. If-Anweis. mit Messagebox42Manfred X21.04.19 20:51
Re: Select Case of. If-Anweis. mit Messagebox37theGodfather21.04.19 21:08

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2019 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel