8 Antworten in diesem Thema

[most_uniQue]

Moin,
ich würd gern wissen wie ich folgendes hinbekomme.
Code in VB 2010 Express mal vorweg gesagt.
Ich hab 2 Textboxen und 1 Button. Die Popup-Meldung hinter dem Button soll aber nur erscheinen, wenn beide Textboxen ausgefüllt sind.
Wenn nicht oder wenn Textbox2 weniger als 5 Zeichen, soll ne Meldung kommen " Gebe deine Daten ein" oder so.

Danke schonmal für eure Hilfe

lg
most_uniQue

Bearbeitet von most_uniQue, 24 August 2014 - 18:13 Uhr.

[Becks]

if Textbox1.text.length > 0 and Textbox2.text.length < 5 then

'DEIN CODE

else

msgbox("ERROR")

end if

Bearbeitet von Becks, 24 August 2014 - 18:30 Uhr.

[most_uniQue]

Ich habs jetzt so. Nur mir fehlt noch 1 Sache..

Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
	    If TextBox1.Text = "" Then
		    MsgBox("E-Mail is missing")
	    End If
	    If TextBox2.Text = "" Then
		    MsgBox("Password Is Mising")
	    End If
	    MsgBox("Successfully logged in!", MsgBoxStyle.Information, "Success")
    End Sub
End Class

Die MsgBox soll nur kommen, wenn beides ausgefüllt ist. Wie mache ich das ? Wenn ich jetzt auf den Button klicke erhalte ich ja logischerweise alle Pop-ups hintereinander.

[Becks]

Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click

If TextBox1.Text = "" Then

		 MsgBox("E-Mail is missing")

End If

If TextBox2.Text = "" Then

		 MsgBox("Password Is Mising")

End If

if Textbox1.text.length > 0 and Textbox2.text.length > 5 then

	 MsgBox("Successfully logged in!", MsgBoxStyle.Information, "Success")

end if

End Sub

End Class

Bearbeitet von Becks, 24 August 2014 - 18:36 Uhr.

[SAR]

Entweder du baust Code zum Abbrechen ein oder du musst deine If's miteinander verschachteln.

Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
			    If TextBox1.Text = "" Then
					    MsgBox("E-Mail is missing")
					    Exit Sub
			    End If
			    If TextBox2.Text = "" Then
					    MsgBox("Password Is Mising")
					    Exit Sub
			    End If
			    MsgBox("Successfully logged in!", MsgBoxStyle.Information, "Success")
	    End Sub
End Class

Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
			    If TextBox1.Text = "" Then
					    MsgBox("E-Mail is missing")
			    Else
					    If TextBox2.Text = "" Then
							    MsgBox("Password Is Mising")
					    Else
							    MsgBox("Successfully logged in!", MsgBoxStyle.Information, "Success")
			    End If
	    End Sub
End Class

Mfg.
SAR

[most_uniQue]

Danke Jungs. Hat mir geholfen !

lg
most_uniQue

[Botmopp]

Eine Fehlermeldung wie:" Eine unzulässige E-Mail Adresse wurde eingegeben", finde ich auch ganz nett, wenn das "@" Zeichen fehlt.
Einfach nur mal als Anregung .png' class='bbc_emoticon' alt='^^' />

Bearbeitet von Botmopp, 24 August 2014 - 20:35 Uhr.

[most_uniQue]

Hatte ich mir auch schon überlegt, nur wie löse ich das ?
Sorry, ich lern die Sprache Seit gestern .png' class='bbc_emoticon' alt='^^' />

lg
most_uniQue

[SAR]

Das geht mit Contains().
Einfach "TextBox1.Text.Contains("@")", wenn da ein @ drin ist, kommt halt True raus. .png' class='bbc_emoticon' alt='^^' />


Mfg.
SAR