30. september 2004 - 16:31Der er
5 kommentarer og 1 løsning
Flere passwords
Private Sub Go1_Click() If password.Text = "sommer" Then MsgBox "Password is correct", vbInformation, "Correct" Else MsgBox "Wrooong!", vbCritical, "Warning!" End If End Sub
det er min kode. Hvordan gør man, så der er flere passwords??
Hvis du vil skrive passwordene direkte ind i if sætningen, kan du bare gøre sådan her:
Private Sub Go1_Click() If password.Text = "sommer" or password.Text = "vinter" Then MsgBox "Password is correct", vbInformation, "Correct" Else MsgBox "Wrooong!", vbCritical, "Warning!" End If End Sub
man kan også bruge Select Case.. Den foretrækker jeg selv, pga en if hurtigt kommer til at se uoverskuelig ud ;) eksempel:
Select Case password.text Case is = "Sommer" msgbox "weee, det er sQ sommer :P" Case is = "Vinter" msgbox "damn hvor det regner :/" Case else msgbox "fejl!" End select
Bare lige så du kan se der er andre muligheder end if ;)
Synes godt om
Slettet bruger
12. oktober 2004 - 02:50#6
Fedt nok, mange tak :D
Synes godt om
Ny brugerNybegynder
Din løsning...
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.