Guida Creare un programam con sistema di login

[R3tr0s]

ALLORA RAGAZZI PER CREARE UN SISTEMA DI LOGIN CON PAS E USER PREIMPOSTATI FATE COSì:

create 2 form ,nella 1°:

CREATE 2 LABEL,2 TEXT E 1 BUTTON

RINOMINARE :

1 LABEL:lblUsername in caption=Username
2 LABEL:lblPassword in caption=Password
1 TEXT:txtUsername
2 TEXT:txtPassword
button=cmdLogin in caption= entra!

poi cliccate due volte sul button e scrivete:

Perfavore, Entra oppure Registrati per vedere i codici!

poi rinominare la 2° form in : frmPrivata e inseriteci quello che volete button,text,ecc..

poi personalizzate la grafca e avrete fanno il vostro bel programmino

SPERO CHE VI SIA UTILE :-):-)

 

[FireFox]

Guida elementare, ma ottima per chi è al primo approccio col programma ^^

 

[xXx.saiev.xXx]

non mi funzia

 

[R3tr0s]

mi fai uno screen del codice ?così ti poso aiutare

 

[Mike12]

non mi funzia

Avrai sicuramente fatto un errore di compilazione

 

[Fearozzo]

Nel formload del form2 (click 2 volte nel vuoto del form2) scrivete:

unload form1

form1 o come avete chiamato il primo form.

 

[XLuigiX]

Ottima guida ^^

unload form1

A che serve ??

 

[Mr.Matteo93]

ma questo si fa con vb 6 o vb 2008 ????

xke in vb 2008 nn mi fa cambiare il nome !!!
Risp Plzzzzzzzzzzzzz

 

[XLuigiX]

Nella guida è usato vb 08 però va bene anche per 06 modificando il codice per i botton_x

 

[Mr.Matteo93]

e come si rinominano i label i text e i button nella lista a destra c'è
Es: (Name) Button1 <===Devo Sostituire Questo ???
Xke Se E Questo Che Devo Cambiare cn i nomi che ha fornito retrosaction mi da un errore :\
Sbaglio Qualcosa ??
Vanno Cambiati Quelli ??
Se Non Vanno Cambati Quelli Quali Devo Cambiare ??
x TEXT intendi TexBox ?? x Label Intendi La Scritta Normale ???
Rixp Plzzzz *_*

 

[XLuigiX]

mamma che mal di testa :S
in pratica devi cambiare soltanto i codici dei pulsanti da così

Private Sub cmdLogin_Click()
If txtUsername.Text = "USERNAME SCELTO" And txtPassword.Text = "PASSWORD SELTA" Then
Me.Visible = False
frmPrivata.Show
Else
MsgBox "Inserire le credenziali", vbCritical, "ERRORE"
txtUsername.Text = ""
txtPassword.Text = ""
txtUsername.SetFocus
End If

End Sub

a così :

Private Sub command1_Click()
If txtUsername.Text = "USERNAME SCELTO" And txtPassword.Text = "PASSWORD SELTA" Then
Me.Visible = False
frmPrivata.Show
Else
MsgBox "Inserire le credenziali", vbCritical, "ERRORE"
txtUsername.Text = ""
txtPassword.Text = ""
txtUsername.SetFocus
End If

End Sub

 

[Mr.Matteo93]

Ma Usando 2008 si devono cambiare ???

 

[XLuigiX]

no se usi vb 06 usa questo:

Private Sub command1_Click()
If txtUsername.Text = "USERNAME SCELTO" And txtPassword.Text = "PASSWORD SELTA" Then
Me.Visible = False
frmPrivata.Show
Else
MsgBox "Inserire le credenziali", vbCritical, "ERRORE"
txtUsername.Text = ""
txtPassword.Text = ""
txtUsername.SetFocus
End If

End Sub

se usi vb08 usa quello della guida

 

[Ketto93]

Semplicissimo. Sarebbe stato meglio se avresti postato un sistema di login che legge i dati da file di testo. Questi file di testo vengono impostati dall'utente una volta che ha effettuato l'accesso con i dati predefiniti, es: admin - admin

 

[R3tr0s]

quello delle guida è in vb6

 

[Mr.Matteo93]

A Me Appare Questo Cosa Devo Cambiare ???

Spoiler

Rxp Plzzzzzzzzz cry

 

[XLuigiX]

Allora come mai a te funge con " cmdnuovo " ?? ame non lo fa
PS:non cambiare nnt se il codice è cosi xD

 

[Mr.Matteo93]

a me non funziona vorrei farlo funzionare almeno far partire il debug sai cs px cambiare ??

 

[XLuigiX]

Ma tu lo vuoi usare per il login di Habbo ?? se è per quello è inutile che ci provi per quello serve un altro codice

 

[Giulix]

No devi lasciarlo così..