12. december 2002 - 02:49Der er
10 kommentarer og 2 løsninger
Select Case
Hej der
Jeg sidder med en selcet case jeg ikke helt kan få til at fungere.....
Jeg har en ssTab1 hvor jeg så sætter en GotFocus, ser ud som følger:
Private Sub ssTab1_GotFocus() Select Case Case 0 MsgBox "Du har valgt tab 1" Case 1 MsgBox "Du har valgt tab 2" Case 2 MsgBox "Du har valgt tab 3" End Select End Sub
Jeg ved jeg får et integer ud af den gotfocus (det reprensetere den tab jeg trykker på), mit problem er nu at jeg ikke kan fange den Integer med min select case.
Private Sub ssTab1_GotFocus(variabel as integer) Select Case variabel Case 0 MsgBox "Du har valgt tab 1" Case 1 MsgBox "Du har valgt tab 2" Case 2 MsgBox "Du har valgt tab 3" End Select End Sub
Altså du tildeler værdien til en variabel som du så bruger i din select case.
Private Sub SSTab1_GotFocus() Select Case Val(SSTab1.Tab) Case 0 MsgBox "Du har valgt tab 1" Case 1 MsgBox "Du har valgt tab 2" Case 2 MsgBox "Du har valgt tab 3" End Select End Sub
Jeg tror jeg ville gøre følgende, det virker også hver gang der klikkes på en Tab:
Private Sub SSTab1_GotFocus() Select Case SSTab1.Tab Case 0 MsgBox "Du har valgt tab " & SSTab1.Tab Case 1 MsgBox "Du har valgt tab " & SSTab1.Tab Case 2 MsgBox "Du har valgt tab " & SSTab1.Tab End Select End Sub
De virkede begge 2 men da sjh var først er det jo egenligt hans points, men den skulle være click som kjeld_klit nævner, så har valgt at dele pointsne sådan her :O)
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
