none
Mot de passe//Extension de la form RRS feed

  • Question

  • Bonjour , je commence un peu a voir a quoi ressemble la programmation , mais en m'exerçant , je suis tomber sur deux difficultées :

    1/ Ma Form est extencible , oui quand je la "test" en faisant "F5" , je peut l'agrandir sur les cotée , j'ai essayais de tripoter un peut tout dans propriété , mais en vain .

    2/ Ce n'est pas tros un problème mais plutôt une question , j'ai vus sur quelque vidéo , que avant de lancer la Form principale , il demande un "Mot de passe". J'aimerai savoir comment bloquer ma Form grâce a ceci ...

    Si vous avez des réponses , elles sont les bienvenue =)

    Merci . Killzoger

    mardi 4 mai 2010 13:48

Réponses

  • Bonsoir,

     

    Voci donc le nouveau code

    Option Explicit On
    Public Class Form1
     Dim premierPassage As Boolean = False
     Dim mdp As String = "chien"
     Private Sub Form1_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown
      If premierPassage = True Then Exit Sub
      Dim reponse As String = ""
      reponse = InputBox("Saisisez le mot de passe")
      reponse = Trim(LCase(reponse))
      If reponse = mdp Then
       premierPassage = False
       Exit Sub
      End If
      MsgBox("Mot de passe invalide")
      End
     End Sub
    End Class
    Cordialement
    Joe ___ Romans et Logiciels ___ http://irolog.free.fr
    • Proposé comme réponse EhJoe mercredi 5 mai 2010 07:22
    • Marqué comme réponse Alex Petrescu mercredi 5 mai 2010 13:33
    mardi 4 mai 2010 21:05

Toutes les réponses

  • C'est bon je vient de trouver , c'est FromBorderStyle... Mais qui sais pour le mot de passe au début ?
    mardi 4 mai 2010 14:40
  • bonjour,

    concernant le mot de passe : il suffit d'ajouter un formulaire loginform.

    dans le click de button OK créer un sqlcommand (cmd) qui récupere de la base de donnee le login et le mot de passe saisient dans les zone de text (uernametextbox + passwordtextbox )

    en utilisant le sqldatareader par example

    dim dr as sqldatareader

    dr=cmd.executereader()

    if dr.read then

    dim fr as new votre_form_principal

    fr.show()

    end if

    cela est fonctionnelle si le login et le mot de passe sont stocké dans une base de donné, si non il faut utiliser un login et un mot de passe prédifinies

    if UsernameTextBox.text="nom_ulisateur" and  PasswordTextBox="votre mot de passe" then

    dim fr as new votre_form_principal

    fr.show()

    end if

     

     cordialement,

    ftya

    mardi 4 mai 2010 15:01
  • Bonjour,

     

    Ou une version testée sans formulaire, voici le code :

    Option Explicit On
    Public Class Form1
     Dim premierPassage As Boolean = False
     Dim mdp As String = "chien"
    
     Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
      If premierPassage = True Then Exit Sub
      Dim reponse As String = ""
      reponse = InputBox("Saisisez le mot de passe")
      reponse = Trim(LCase(reponse))
      If reponse = mdp Then
       premierPassage = False
       Exit Sub
      End If
      MsgBox("Mot de passe invalide")
      End
     End Sub
    End Class

    Cirdialement.

     


    Joe ___ Romans et Logiciels ___ http://irolog.free.fr
    mardi 4 mai 2010 18:32
  • Bonjour,

    Demander le mot de passe/login dans l'événement Paint est fortement déconseillé pour des raisons de performances. Préférez les événements Load ou Shown (Shown est fortement conseillé et est déclenché après Load).

    Cordialement


    Gilles TOURREAU - MVP C# - Architecte .NET/Consultant/Formateur
    mardi 4 mai 2010 20:22
    Modérateur
  • Bonsoir Gilles,

     

    A Load, l'inputBox s'affiche avant la feuille ça ne va pas.

     

    Pour Shown, je ne connaissais pas, je cherchais l'activate de vb6 sna sle trouver, merci c'est noté.

     

    Cordialement.


    Joe ___ Romans et Logiciels ___ http://irolog.free.fr
    mardi 4 mai 2010 21:03
  • Bonsoir,

     

    Voci donc le nouveau code

    Option Explicit On
    Public Class Form1
     Dim premierPassage As Boolean = False
     Dim mdp As String = "chien"
     Private Sub Form1_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown
      If premierPassage = True Then Exit Sub
      Dim reponse As String = ""
      reponse = InputBox("Saisisez le mot de passe")
      reponse = Trim(LCase(reponse))
      If reponse = mdp Then
       premierPassage = False
       Exit Sub
      End If
      MsgBox("Mot de passe invalide")
      End
     End Sub
    End Class
    Cordialement
    Joe ___ Romans et Logiciels ___ http://irolog.free.fr
    • Proposé comme réponse EhJoe mercredi 5 mai 2010 07:22
    • Marqué comme réponse Alex Petrescu mercredi 5 mai 2010 13:33
    mardi 4 mai 2010 21:05
  • Merci pour vos réponse, je vais essayai sa , dsl pour les multiple post, je les suprimes , ils n'apparaissaient pas
    mercredi 5 mai 2010 20:10