Visual Basic Forum

big earl_ · Coder Anmeldedatum: 11.05.2007 Beiträge: 208

Also hab hier ein problem mit der inputbox

hab mir das PDF runtergeladen doch kann es i-wie nicht in eine form miteinbauen

code:
[code]Private Sub Command1_Click()
If Text1.Text = passwort Then GoTo 10 Else GoTo 20
10
MsgBox "passwort richtig"
Unload Me
20
MsgBox "passwort falsch"
End Sub

Private Sub Form_Load()
Dim passwort As String
InputBox ("Bitte passwort editieren")
End Sub
[/code]

naja hier könnt euch das ganze teil runterladen (hab keine lust zu schreiben -.-)

http://uploaded.de/?id=biitme

ohne pass

413X_ · « Moderator » Anmeldedatum: 16.12.2006 Beiträge: 266

[code]Private Sub Form_Load()
Dim passwort As String
passwort = InputBox ("Bitte passwort editieren")
End Sub[/code]

http://www.413x.dl.am

Tod den 1337-Scriptkiddies xD

big earl_ · Coder Anmeldedatum: 11.05.2007 Beiträge: 208

so ?

[code]Private Sub Command1_Click()
If Text1.Text = passwort Then GoTo 10 Else GoTo 20
10
MsgBox "passwort richtig"
Unload Me
20
MsgBox "passwort falsch"
End Sub

Private Sub Form_Load()
Dim passwort As String
passwort = InputBox("Bitte passwort editieren")
End Sub

[/code]

Amethyst_ · Poster Anmeldedatum: 24.02.2007 Beiträge: 172

Jo.
Aber warum machst du die If-Frage so komisch? kA ob das so auch geht.

[code]Private Sub Command1_Click()
If Text1.Text = passwort Then
Msgbox "passwort richtig"
Else Unload Me
End if

End Sub[/code]

Sooo..bin in Italien..hf in deutschlND UNSO Xd

413X_ · « Moderator » Anmeldedatum: 16.12.2006 Beiträge: 266

Fast
so ist es richtig:

[code]
Private Sub Command1_Click()
If Text1.Text = passwort Then
Msgbox "passwort richtig"
Else
Unload Me
End If

End Sub
[/code]

http://www.413x.dl.am

Tod den 1337-Scriptkiddies xD

big earl_ · Coder Anmeldedatum: 11.05.2007 Beiträge: 208

nein die form soll nur geschlossen werden wenn das pass richtig ist

413X_ · « Moderator » Anmeldedatum: 16.12.2006 Beiträge: 266

tuts doch -.-

edit:
ups ne dann musstes halt anders rum machen

Private Sub Command1_Click()
If Text1.Text = passwort Then
Msgbox "passwort richtig"
Unload Me
Else
'falschg
End If

End Sub

http://www.413x.dl.am

Tod den 1337-Scriptkiddies xD

big earl_ · Coder Anmeldedatum: 11.05.2007 Beiträge: 208

also habs jetzt so:

[code]Private Sub Command1_Click()
If Text1.Text = passwort Then
Unload Me
Else
MsgBox "Das eingegebene Passwort ist falsch !"
End If
End Sub
Private Sub Form_Load()
Dim passwort As String
passwort = InputBox("Bitte passwort editieren")
End Sub
[/code]

aber da steht dann immer Objekt erforderlich

download:
http://uploaded.de/?id=j6oh04

413X_ · « Moderator » Anmeldedatum: 16.12.2006 Beiträge: 266

Wenn du noch sage nwuerdest wo es steht kann ich dir helfen.
Aber ich vermute mal es ist die Textbox.
Anscheinend heisst deine Textbox nicht Text1, oder du hast gar keine.

http://www.413x.dl.am

Tod den 1337-Scriptkiddies xD

big earl_ · Coder Anmeldedatum: 11.05.2007 Beiträge: 208

oh hast recht -.-

aber jetzt ist das so das er das in der inputbox eingegebene passwort nicht annerkennt

http://uploaded.de/?id=f217p8

413X_ · « Moderator » Anmeldedatum: 16.12.2006 Beiträge: 266

wenn du den source posten wuerdest, koennt ich dir helfen.

http://www.413x.dl.am

Tod den 1337-Scriptkiddies xD

big earl_ · Coder Anmeldedatum: 11.05.2007 Beiträge: 208

oh -.-

hier:
http://uploaded.de/?id=dmt00u

413X_ · « Moderator » Anmeldedatum: 16.12.2006 Beiträge: 266

Du musst die variable passwort auch "form-weit" deklarieren, nicht nur "prozedur-weit". bei dir war sie nur in der prozedur form_load gueltig, danach wird sie entladen.
so ist es richtig:

[code]
Dim passwort As String

Private Sub Command1_Click()
If Text1.Text = passwort Then
Unload Me
Else
MsgBox "Das eingegebene Passwort ist falsch !"
End If
End Sub

Private Sub Form_Load()
passwort = InputBox("Bitte passwort editieren")
End Sub
[/code]

http://www.413x.dl.am

Tod den 1337-Scriptkiddies xD