Discussion :

[Kryen]

Bonsoir,

Après de longues recherches sur le web, je viens poster cette question:

Comment faire en sorte que l'utilisateur n'ai d'autres choix que d'utiliser le user form?
Windows a certaines fenêtres dans ce style, avec un jolie bruit lorsque l’on clique autre part que dans le cadre.

J'utilise cette fonction pour une appli qui nécessite un mot de passe, sans quoi l'utilisation du reste du logiciel reste bloqué. (Libre à l'utilisateur d'utiliser la croix rouge)
J'ai fais quelques essais sans succès, je joint bout de code en espérant que ça facilite la compréhension.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
 
    Private Sub UF1_Deactivate() Handles Me.Deactivate
 
        Me.Hide()
        Threading.Thread.Sleep(100)
        Me.Show()
        Threading.Thread.Sleep(100)
 
        Me.Focus()
 
    End Sub

Merci, à bientôt
Alex

[GuruuMeditation]

si c'est une fenêtre modale que tu cherches, utilises ShowDialog() au lieu de Show()

[ACIVE_CS]

Bonjour,
J'ai pas compris...
Pourquoi tu fais clignoter la form dans ta sub UF1_Deactivate ???
A quel moment le mot de passe est demandé?

A+

[WisperDarkness]

Bonjour,

Si le MDP est demandé au chargement du programme alors tu à deux possibilité :

1° Charger le formulaire "form_authentification" en formulaire par défaut puis lorsque l'on clique sur connexion il test le mot de passe puis charge form_user et se ferme

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Public Class Form1
 
    Private Sub Button_connexion_Click(sender As System.Object, e As System.EventArgs) Handles Button_connexion.Click
        Dim authentifier As Boolean
        'insert ici ton code d'authentification
        If authentifier = True Then
            Form_user.show()
            Me.Close()
        Else
            MsgBox("login/mdp invalide")
        End If
    End Sub
 
End Class

2° Tu a un formulaire_principal qui charge ton form_authentification pour l'authentification en modale (on à pas accès au formulaire_principal tant que le form_authentification est pas fermé)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
    Private Sub Form_principal_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        'ton code de démarrage
        Form_authentification.showdialog()
    End Sub

dans ton form_authentification pense a ajouter

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
 
Public Class Form_authentification
   dim authentification_ok as boolean 
   Private Sub Form_authentification_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        authentification_ok = false
    End Sub
 
    Private Sub Button_connexion_Click(sender As System.Object, e As System.EventArgs) Handles Button_connexion.Click
        Dim authentifier As Boolean  
        'insert ici ton code d''authentification
 
        If authentifier = True Then
            authentification_ok = true
            Me.Close()
        Else
            MsgBox("login/mdp invalide")
        End If
 
    End Sub
 
    Private Sub Form_authentification_FormClosing(sender As Object, e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        if authentification_ok = false then       
            ' On désactive tout les controles sur le form principale car pas autorisé/authentifié
            Form_principal.button1.enabled = false
 
        else
            ' On active tout les controles sur le form principale car autorisé/authentifié
            Form_principal.button1.enabled = true
 
        End if
    End Sub
 
End Class

En espérant t'avoir aidé/donné des pistes

Bonne journée

[ACIVE_CS]

Re:

Pourquoi ne pas faire tout simplement :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
  Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If Not InputBox("Mot de passe:", "PASSWORD") = "pass" Then End
    End Sub

A +

[Kryen]

Tout d'abord je tenais à vous remercier du temps accordé à ce topic.

Grâce à vos remarques j'ai appris mais, mon soucis n'est pas résolut.
J'explique la fonction de ce dit log_form:

Lors du branchement de ma clef usb un autorun démarre le formulaire d'identification. Malheureusement l'utilisateur reste libre de naviguer dans les dossiers du périphérique, c'est pourquoi j'ai pensé a forcer l'utilisateur a rester sur mon user_form.

D'après mes connaissances en informatique une autre solution s'offre à nous: bloquer d'une quelconque manière l'accès à la clef USB. Mais il me semble qu'avec cette technique on rentre dans les fonctions propre a Windows et ça me semble compliqué.

Je suis ouvert à d'autres solutions de programme.

Édit: je m'excuse pour le temps d'attente, ça ping lent chez moi

Alex