Discussion :

[muledi]

Débutant sous VB, j'aimerais pouvoir interconnecter les différentes form que j'ai créer.

Ex: j'aimerais chargé au lancement de mon appli un page (avec nom appli et image), au bout de 5s, une page d'identification (Login, PWD) et la page de "travail" de l'appli.

Merci!

[Hlama]

Salut,pour ton application tu dois utiliser un compteur via un timer
ou soit tu peux utiliser un progressBar

[ProgElecT]

Salut

Premier Form, Name = FormPresentation avec un Timer

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Option Explicit
Private Sub Form_Load()
Me.Caption = "Form de presentation"
Timer1.Interval = 5000 ' 5000 mSc = 5 Sc
End Sub
 
Private Sub Timer1_Timer()
Timer1.Enabled = False 'arret du compteur
Unload Me 'demande de déchargement de la page d'accueil
FormLogPWD.Show 'lance le form pour entrée du log et du mot de passe
End Sub

Deuxième Form, Name = FormLogPWD avec un Textbox Name = TextLog, un autre Name = TextMotPass et un CommandButton

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
Option Explicit
Private Sub Form_Load()
Me.Caption = "Form log et mot de passe"
TextLog.Text = "": TextMotPass.Text = ""
TextMotPass.PasswordChar = "*"
End Sub
 
Private Sub Command1_Click()
Static Cpt As Integer
If TextLog.Text = "MonLog" And TextMotPass.Text = "Passe" Then
    FormSuivante.Show
    Unload Me
    Else
    Cpt = Cpt + 1
    If Cpt = 3 Then
        MsgBox "Troisième essais non conforme, arrêt du programme", vbCritical, "Entrée non conforme"
        Unload Me
        Else
        TextLog.Text = "": TextMotPass.Text = ""
        MsgBox "Log et mot de passe incorrecte", vbCritical, "Entrée non conforme"
        TextLog.SetFocus
    End If
End If
End Sub
 
Private Sub TextLog_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then KeyAscii = 0: TextMotPass.SetFocus
End Sub
 
Private Sub TextMotPass_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then KeyAscii = 0: Command1_Click
End Sub

Un troisième Form Name = FormSuivante

Dans l'éditeur VB, menu Projet (Alt+p) --> Propriété de Projet... (Alt+p) --> Objet de démarrage (Alt+o) choisir FormPresentation
Le log ici est MonLog, le mot de passe est Passe

Bonne continuation.