Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Code für Login
Autor: Olorin
Datum: 21.09.05 13:58
Hi zusammen ich suche einen Code für einen Login. Ich habe einen aber der funktioniert nicht richtig (bin Anfänger). wäre froh wenn ihr ihn mal anschauen könntet Vielen Dank schon im voraus Olorin Hier der Code: Option Explicit Const DunkelRot As String = "8B0000" Const DunkelBlau As String = "000080" Private Sub Anmeldung_onmouseout() Anmeldung.Style.Color = DunkelBlau End Sub Private Sub Anmeldung_onmouseover() Anmeldung.Style.Color = "800000" End Sub Private Function cmdLogin_onclick() As Boolean If txtName.Text = "Test" And _ txtNick.Text = "Test" And _ txtKennwort.Text = "Test" Then MsgBox " Ihre Anmeldung war erfolgreich!", _ vbOKOnly + vbExclamation ElseIf txtName.Text = "" And _ txtNick.Text = "" And _ txtKennwort.Text = "" Then MsgBox "Zugang verweigert!", _ vbOKOnly + vbExclamation If Trim$(txtName.Value) = "" Then lblName.Style.Color = DunkelRot txtName.Select ElseIf Trim$(txtNick.Value) = "" Then lblNick.Style.Color = DunkelRot txtNick.Select ElseIf Trim$(txtKennwort.Value) = "" Then lblKennwort.Style.Color = DunkelRot txtKennwort.Select Else PutProperty BaseWindow.Document, "Name", _ txtName.Value PutProperty BaseWindow.Document, "Nick", _ txtNick.Value PutProperty BaseWindow.Document, "Kennwort", _ txtKennwort.Value BaseWindow.navigate "Seite2.htm" End If End Function Private Sub DHTMLPage_Load() Document.bgColor = "87CEFA" TextLöschen End Sub Private Function cmdLoeschen_onclick() As Boolean TextLöschen End Function Private Sub TextLöschen() txtName.Value = Empty txtNick.Value = Empty txtKennwort.Value = Empty txtName.Select End Sub

Code für Login	1.046	Olorin	21.09.05 13:58
Re: Code für Login	653	InKUbuS GhUL	22.09.05 14:55
Re: Code für Login	678	Olorin	22.09.05 15:45
Re: Code für Login	632	InKUbuS GhUL	22.09.05 22:28
Re: Code für Login	609	Olorin	23.09.05 12:31
Re: Code für Login	628	Olorin	24.09.05 17:56

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen