..................

[GenericName]

...

Endret 11. januar 2011 av Token

[Jonas]

Dim Password As String
Password = "tralala"

If InputBox("Skriv inn passord", "Passord") = Password Then
   
   MsgBox "Du skrev inn riktig passord"
   
Else
   
   MsgBox "Du skrev ikke inn riktig passord"
   
End If

[GenericName]

...

Endret 11. januar 2011 av Token

[GenericName]

...

Endret 11. januar 2011 av Token

[Jonas]

Er hva command? Skjønner ikke helt hva du vil nå. Koden ser jo ut til å funke fint.

[GenericName]

...

Endret 11. januar 2011 av Token

[GenericName]

...

Endret 11. januar 2011 av Token

[Jonas]

Koden skal skrives der du vil den skal kjøres. Jeg antar det blir under Command1_Click da.

 

For å få stjerner, må du trykke på tekstboksen din, gå nedover i menyen, og endre passwordchar til *

[d0ppler]

Det er sikkert en bedre måte en

 

Private Sub Command1_Click()

If txtSkriv = "tralala" Then

frmTull.Show vbModal

End If

End Sub

 

 

Det funker da, men det er jo ikke så bra.

les denne :

Innføring i fornuftig formatering av kode i VB

[GenericName]

...

Endret 11. januar 2011 av Token

[GeirGrusom]

Du får ikke rykket inn av den enkle grunn at du glemmer å skrive [/code]

 

Private sub cmdOk_Click()
 If txtSkriv.Text = password_str Then
   Me.Close  ' Lukk passordvinduet
   frmTull.Show vbModal 
 Else
   MsgBox "Feil passord din skrotnisse!", vbExclamation
 End If
End Sub