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??
AI bliver først for alvor en del af arbejdet, når teknologien integreres i den måde, vi arbejder på. At have adgang til AI betyder ikke nødvendigvis, at medarbejderne er klar til at bruge den.
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.