[VB.Net] Petit problème de Checkbox

Version imprimable

Bonjour a tous ,
J'essaye de créer un petit programme (mais ne sachant pas trop programmer en VB c'est dur :roll: )

Voici mon
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged If CheckBox1.Checked = False Then Me.Hide() Timer1.Enabled = True Timer2.Enabled = True Timer3.Enabled = True Timer4.Enabled = True Timer5.Enabled = True Timer6.Enabled = True Timer7.Enabled = True Timer8.Enabled = True Else Me.Hide() Timer1.Enabled = True Timer2.Enabled = True Timer3.Enabled = True Timer4.Enabled = True Timer5.Enabled = True Timer6.Enabled = True Timer7.Enabled = True Timer8.Enabled = True End If End Sub
Voila , techniquement si la checkbox n'est pas coché cela active mes Timers et cache le programme , seulement sa ne marche pas automatiquement (je suis obliger de cocher/décocher une fois la checkbox pour que sa marche )

Si quelqu'un a une réponse .... :P

11/06/2010, 10h36
M E H D I

Salut,

Je te fais savoir que ton code renvoie true quelque-soi l'état du CheckBox.!!!

Citation:

techniquement si la checkbox n'est pas coché cela active mes Timers et cache le programme

A quel moment tu désire activer tes Timer? Est-ce au moment ou ton programme est lancé?

Citation:

seulement sa ne marche pas automatiquement (je suis obliger de cocher/décocher une fois la checkbox pour que sa marche )

Je n'ai pas bien compris ta phrase!!
11/06/2010, 10h44
qwertyuiop

Ok , les Trues sont corrigés

Sinon je voudrait que sa active les Timers au lancement du programme enfaite dans l'idéale faudrait que les Timers s'activent tout seul mais je ne sait pas comment faire .... :?
11/06/2010, 10h58
M E H D I
Dans ce cas tu dois écrire ton code dans le Form_Load

L'evennement Form_Load sera exécuté dés le lancement de ton programme, tu peux mettre l'etat initial de tes CheckBox à true dans le Form_Load les timers se lanceront automatiquement.
Code:

1 2 3 4 5 Private Sub Form_Load() *****code***** End Sub

Ok cool sa a l'air de marcher :P
Y a plus qu'un petit détail , j'aimerais aussi que quand la checkbox est cocher sa cache le programme , or sa ne fait rien ....

Code:

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
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
        CheckBox1.Checked = True
 
End Sub
 
 
 
 
Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
        If CheckBox1.Checked = True Then
            Me.Hide()
            Timer1.Enabled = True
            Timer2.Enabled = True
            Timer3.Enabled = True
            Timer4.Enabled = True
            Timer5.Enabled = True
            Timer6.Enabled = True
            Timer7.Enabled = True
            Timer8.Enabled = True
        Else
            Timer1.Enabled = False
            Timer2.Enabled = False
            Timer3.Enabled = False
            Timer4.Enabled = False
            Timer5.Enabled = False
            Timer6.Enabled = False
            Timer7.Enabled = False
            Timer8.Enabled = False
        End If
 
    End Sub

Y a un problème dans le code ???

11/06/2010, 11h24
DAUDET78

une simple réflexion .... utiliser 8 timers ? Ce n'est pas de la bonne programmation.
Je ne sais pas à quoi ils servent, mais normalement, on utilise 1 (ou 2) timer et on utilise celui-ci pour en déduire les autres tempos (avec une variable static locale qui sert à faire les sous multiples)
11/06/2010, 11h43
qwertyuiop

Ben j'ai 8 timers parce que j'en ai besoin pour gérer 8 applications a moins que je peut gérer les 8 avec un seul timers ?
11/06/2010, 11h45
DAUDET78

Citation:

Envoyé par qwertyuiop

Ben j'ai 8 timers parce que j'en ai besoin pour gérer 8 applications a moins que je peut gérer les 8 avec un seul timers ?

Probablement. Valeur de tes 8 timers ?
12/06/2010, 23h58
hunteshiva

ya un collègue qui m'a surpris récemment
*il se met a peine a VS2008 et il utilise des fonctions sympas*

essaye un truc du genre:

Code:

If CheckBox1.CheckedState = CheckedState.*je sais plus quoi* then ....

la j'ais pas VB sous la main *weekend*
mais de souvenir sa ressemblé a sa et sa pourrais p-e résoudre ton probléme :mouarf:
13/06/2010, 12h06
qwertyuiop

Finalement je cherchais trop compliquer , j'ai virer mes timers cela simplifie grandement mon code 8-)

un dernier truc , j'aimerais qu'au lancement de mon application , elle se cache automatiquement avec la fonction Hide()
Vous faites quoi vous ?
14/06/2010, 12h08
M E H D I
Citation:

j'aimerais qu'au lancement de mon application , elle se cache automatiquement avec la fonction Hide()
Code:

1 2 3 4 5 Private Sub Form_Load() Form.Hide() End Sub

J'ai mit sa :

Code:

1
2
3
4
5
6
7
 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Form1.Hide()
        If System.IO.Directory.Exists("C:\test") = False Then
            System.IO.Directory.CreateDirectory("C:\test")
        End If
 
    End Sub

Y a quelque chose qui cloche ???