Discussion :

[fdthierry]

Bonjour,

Je débute et je découvre les possibilités de Visual Basic.
J'ai téléchargé la version Express 2005 pour réaliser une petite application.
Voici mon souhait :
Une fenêtre sans bordure avec un texte (Ok c'est fait)
Dans cette même fenêtre une zone texte avec un clic pour fermer l'appli (Ok c'est fait)
Au chargement la zone texte est inactive. (Ok c'est fait)

Là ou je coince, c'est que j'aimerais qu'un décompte soit fait sur la zone texte :
5, 4, 3, 2, 1 et le bouton devient actif.
Cela se fait avant que mon appli s'affiche :o)
Il me manque surement quelque chose.

Merci pour votre aide.
Amicalement,
Thierry

[agnaou]

pour je tu proposer d'utiliser un timer (un outil qui déja exite) puis définir dan leur prorité la temp pour vous si (500 ms)
puis activé votre txte

[agnaou]

tu ajoute une boucle while a comme condition (si le text est désactivé)
donc Timer1.Start() ceci dans la boucle
et définir une procedure comme ça

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Timer1_Tick(..)
 
Label1.Visible =true
End Sub
et dans Load tu fait ça 
Private Sub Form3_Load(...)
 
Timer1.Interval = 500
 
Timer1.Start()
 
End Sub

et bonne chance

[agnaou]

désole mais dans la procedure timer

Code :

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

1
2
3
4
5
Private Sub Timer1_Tick(..)
while(text1.visible=false) then
Label1.Visible = true
end while
End Sub

[fdthierry]

Bonjour,

J'ai déjà ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub FaireUnePause(ByVal NbSec As Long)
Dim maintenant
maintenant = Now()
For cpt = 0 To NbSec
lblDecompte.Text = "Fermer (" & (NbSec - cpt) & ")"
Sleep(1000)
Next
lblDecompte.Text = "Fermer"
lblDecompte.Enabled = True
End Sub

Lorsque je l'appel dans la fonction Form1_Load tout se passe avant que la fenêtre soit affiché.

Je vais essayé ta procédure, merci

[fdthierry]

Je déclare Timer1_Tick comment car si je ne le déclare pas avec Dim il m'indique une erreur.

Pour être plus clair dans mon projet :
Une fenêtre s'ouvre avec un texte que la personne doit lire.
Un bouton en bas est disable pendant x seconde
Le bouton décompte les x seconde exemple : Fermer (x)
Après le décompte ce bouton doit être actif.
Le texte doit toujours être présent à l'écran.

[fdthierry]

Voici mon programme final :

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
Public Class Form1
    Dim decompte As Integer
    Dim nbs = 2 ' Nombre de seconde pour a pause
    Dim cpt = 0
 
    Private Sub lblDecompte_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lblDecompte.Click
        Application.Exit()
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        lblDecompte.Text = "Fermer (" & nbs & ")"
        lblDecompte.Enabled = False
        Timer1.Start()
    End Sub
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        cpt += 0.5
        decompte = Int(cpt)
        lblDecompte.Text = "Fermer (" & (nbs - decompte) & ")"
        If decompte = nbs Then
            lblDecompte.Enabled = True
            lblDecompte.Text = "Fermer"
            Timer1.Stop()
        End If
    End Sub
End Class

Merci pour ton aide

[agnaou]

pour déclaré ta procedure tu fait une double clic sur l'outil que tu as ajouter
puis tu définit votre besoin