SVP aidez moi je voudrais faire un mit de pass a mon projet en vb6 dès l'execution du 1er feuille

Bonsoir Hajar,

Tu dois nous spécifier de quoi t'as besoin exactement et on pourra t'aider.

dans ta Form de départ, ajoutes une zone de texte pour laquelle tu as définit un PasswordChar
ajoutes aussi un bouton qui va lancer la vérification du mot de passe saisi.

ce bouton lancera la suite du programme ou le fermera

bref. rien de bien complexe

Salut,

Uhmmm....Tu as besoin d'une Form, un bouton, un textbox :

Propriété Name des contrôles :
La form >> Form1
Bouton >> Cmd_Valider
TextBox >> Txt_PassWord

Option Explicit

Dim sPassWord As String

Private Sub Cmd_Valider_Click()

' Test
  If sPassWord = StrConv(Txt_Password.Text, vbProperCase) Then
     MsgBox "Mot de passe correct !"
  Else
     MsgBox "Erreur de mot de passe !"
  End If
 
End Sub

Private Sub Form_Load()

' init variable
  sPassWord = "Toto"
 
End Sub


Attention, le mot de passe est en dur dans la source....

A+
Exploreur

 Linux a un noyau, Windows un pépin

insensible, donc, à la casse (majuscules/minuscules) :

If sPassWord = StrConv(Txt_Password.Text, vbProperCase) Then

un StrComp ferait également l'affaire

Bien noté...

A+
Exploreur

 Linux a un noyau, Windows un pépin

Bonjour a tous

Voila le code que j'ai écrit

Private Sub cmdvalider_Click()
    Dim PassWord As String
    PassWord = "fatifati"

    If txtpass = PassWord Then
    fermer
   Else
      MsgBox "Erreur de mot de passe !"
   End If
 
 End Sub


Sub fermer()
frmacceuil.Show   'car je voudrais activer frm aceuil aprés  que lemot de ppass est correct mais ca ne marche pas

aider moi SVP

je veut que le projet affiche la frmacceuil aprés a saisie de mot de pass

Merci d'avance

Salut,

Private Sub cmdvalider_Click()
    Dim PassWord As String
    PassWord = "fatifati"

    If txtpass = PassWord Then
    frmacceuil.Show:Unload Me
    Else
      MsgBox "Erreur de mot de passe !"
   End If
 
 End Sub

A+
Exploreur

 Linux a un noyau, Windows un pépin

Bonjour a tous