✔ brauche bei case hilfe

[mitch_byu_kennen]

Hallo,

also ich versuch grad mal so case zu lernen und probiers mit was total simplen und das geht nicht und ich weis nicht warum.

Private Sub cmd_auswaehler_Click()
Select Case auswaehlen
Case opt_1
MsgBox "erstens ausgewählt"
Case opt_2
MsgBox "zweitens ausgewählt"
Case opt_3
MsgBox "drittens ausgewählt"
Case Else
MsgBox "irgendwas"
End Select
End Sub

wenn ich den 1. option Button anwähle und dann auf mein button klicke soll einfach nur da stehen was für ein Button das ist ( entweder der 1. oder der 2. oder der 3.)

mfg mitch

Udo Lattek:
"Sie können ruhig etwas lauter nicken."

 

[spirit]

Hallöchen

Das ist ein schlechtes Beispiel für eine Case-Abfrage. Für dein Vorhaben reicht folgendes:

Private Sub cmd_auswaehler_Click()
    If opt_1.value = true then
        msgbox"DeinText"
    elseif opt_2.value = true then
        msgbox"DeinText"
    elseif opt_3.value = true then
        msgbox"DeinText" 
    end if
End Sub

Du kannst aber auch über einen Index deiner OptionsFelder eine Schleife machen

 

[Orakel]

Hi mitch,

wie Spirit schon sagte, ein schlechtes Beispiel für Select.

OptionButtons liefern Dir eigentlich nur den Wert "Wahr" oder "Falsch" also einen logischen Wert, und der ist einfacher mit einem "If" Konstrukt geprüft.

Ein Beispiel für ein Select Statement bietet sich im KeyDown Event einer Form an:

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    Select Case KeyCode
    Case vbKeyReturn
        MsgBox "Return gedrückt"
    Case vbKeyF1
        MsgBox "F1 gedrückt"
    Case vbKey2
        MsgBox "F2 gedrückt"
    Case Else
        MsgBox "Irgend ein anderer Key gedrückt"
    End Select
End Sub

Mit Select Case <Variable> prüfst Du die Variable gegen diskrete Werte.

Gruß
Das Orakel

 

[mitch_byu_kennen]

Oh ja stimmt, also müsst ich ja erst herausfinden welcher Button den Wert true besitzt und dann den namen des Buttons in die Variable schreiben und dann erst die Case auswahl machen! jetzt hab ich es wieder kappiert!

danke leute

mfg mitch

Thomas Hässler:
"Herzlichen Glückwunsch an Marco Kurz. Seine Frau ist zum zweiten Mal Vater geworden."

 

[mitch_byu_kennen]

kleiner Nachtrag, so geht's auch:

 Private Sub cmd_auswaehler_Click()
Select Case True
Case opt_1
MsgBox "erstens ausgewählt"
Case opt_2
MsgBox "zweitens ausgewählt"
Case opt_3
MsgBox "drittens ausgewählt"
Case Else
MsgBox "irgendwas"
End Select
End Sub

mfg mitch

Goethe:
Wenn ihr's nicht fühlt, ihr werdet's nicht erjagen.