Execution Checkbox

Que fais tu lorsque tu clique sur le bouton "Appliquer" ? comment appelles-tu ton code?

kakenette

Et bien mon bouton appliquez fait appel au checkbox coché de cette manière la:

    Private Sub BTNInstallTab1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNInstallTab1.Click
        If CheckBox1.Checked = True Then
            If My.Computer.FileSystem.FileExists("Appz/name_apps.exe") Then
             'Ici je place mon execution
            Else
                MsgBox("Apps n'a pas pu être installé.")
            End If
        End If

Et ensuite je rajoute ma 2 ème checkbox la 3 ème est ainsi de suite, donc de cette manière toute les checkbox appeler par le bouton vont s'executez en meme temps.

Bonjour,

Tu peux utiliser un attribut booléen  sur ta form, et durant cette opération, tu le met à True, cela indique de ne pas agir aux autres evenements (à tester en début de procédure evidemment).

Bonjour,

Merci pour ta réponse, étant un novice en la matière je vais rechercher comment procéder avec l'attribut booléen sur ma form.

Si toute fois vous avez des liens intéressant je suis preneur bien évidement.

Bonjour,

En haut de ta form, tu déclare une variable :
Private mIsEnTravail as Boolean=False

Ensuite dans les evenements des tes CheckBox :
Private Sub ChkBx_Click(..)
If mIsEnTravail then exit sub
...
End sub

Dans la procédure de rafraichissement :
Private sub Rafraichissement()
mIsEnTravail=True
'On bosse sur les ChkBx
...
mIsEnTravail=False
End sub

Super merci à vous je vais voir ce que je peut tirer de cette exemple. ;)

Ok parfait sa fonctionne avec quelque modif, maintenant j'ai un souci lorsque je clique plusieurs fois sur le bouton appliquez il me lance une vague d'install (autant que le nombre de checkbox coché rien de plus normal c'est ce qu'on lui demande) mais lorsque la série d'install est terminé il me la relance autant de fois que j'ai cliquez sur appliquer.

Il y a t'il un moyen afin d'évitez cela afin d'evitez de pouvoir recliquez sur le bouton avant la fin des installation ?

Bonjour,

Très simple :

Private sub Rafraichissement()
if mIsEnTravail exit sub
mIsEnTravail=True
'On bosse sur les ChkBx
...
mIsEnTravail=False
End sub

Qu'appel tu part rafraichissement ?

Private sub Rafraichissement()
if mIsEnTravail exit sub
mIsEnTravail=True
'On bosse sur les ChkBx
...
mIsEnTravail=False
End sub