Select Case???

Det er en Funktion der virker lidt ligesom en IF bare med mange "valgmuligheder"

fx.

Opret en knap på form1 og giv den følgende kode

Private Sub Command1_Click()
Dim AntalBiler as Byte
AntalBiler = InputBox("Hvor mange biler har du")


Select Case AntalBiler
Case 0 
Msgbox "Øv for dig"
Case 1
Msgbox "En bil er rar at have"
Case 2 
Msgbox "Dejligt"
Case 3
Msgbox "Hvad har du gang i"
Case 4
Msgbox "Sikker på det er rigtigt ?"

End Select
End Sub

Altså en der tester en variabel op mod en masse påstande
så det svarer altså til en masse af de her

If Antalbiler = 0 Then
Msgbox "Øv for dig"
End If

cool..tak skal du have...

cool..tak skal du have...

Husk at man også kan bruge Case Else (hvis ingen af de andre cases er sande!)

Det er en Funktion der virker lidt ligesom en IF bare med mange "valgmuligheder"

fx.

Opret en knap på form1 og giv den følgende kode

Kode 

Private Sub Command1_Click()
Dim AntalBiler As Byte
AntalBiler = InputBox("Hvor mange biler har du")


Select Case AntalBiler
Case 0 
Msgbox "Øv for dig"
Case 1
Msgbox "En bil er rar at have"
Case 2 
Msgbox "Dejligt"
Case 3
Msgbox "Hvad har du gang i"
Case 4
Msgbox "Sikker på det er rigtigt ?"

End Select
End Sub

Altså en der tester en variabel op mod en masse påstande
så det svarer altså til en masse af de her

If Antalbiler = 0 Then
Msgbox "Øv for dig"
End If

Husk at man også kan bruge Case Else (hvis ingen af de andre cases er sande!)


Her er et andet lille eksempel!

Dim AntalBiler As Long 'Kan kun indeholder tal! Har ændret den
'fra Byte til Long så den kan indeholde større tal

AntalBiler = InputBox("Hvor mange biler har du")

Select Case AntalBiler
Case 0
    MsgBox "Øv for dig", vbInformation
Case 1
    MsgBox "En bil er rar at have", vbInformation
Case 2
    MsgBox "Dejligt", vbInformation
Case 3
    MsgBox "Hvad har du gang i", vbQuestion
Case 4
    MsgBox "Sikker på det er rigtigt?", vbExclamation
Case Is > 4
    MsgBox "Nej! Nu styrer du dig! Hvor mange har lige " & AntalBiler & " biler?", vbCritical
Case Else
    'Da Case Is > 4 vil blive sand hvis AntalBiler er over 4,
    'så vil denne kun blive aktiveret hvis det er under 0,
    'f. eks. -1, -2 eller -3, etc. etc.
    MsgBox "Indtast venligst et tal ligemed eller over 0!", vbInformation
End Select

Happy programming!