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

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

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

    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