Discussion :

[coleoptere]

Bonsoir,
à titre d'exercice j'ai écrit un petit programme à l'aide de Visual studio express 2010 en VB. Le premier bouton déclenche l'affichage d'une ampoule allumée, le second bouton une ampoule éteinte.

Dans le Form il y a donc 2 boutons et une PictureBox.
Quand on clique sur un bouton, la procédure liée à cet événement modifie une propriété de la classe et passe à la procédure Affichage. Celle-ci teste la propriété et affiche l'image correspondante.
Idem pour le second bouton.

J'ai 2 erreurs que je ne parviens pas à résoudre.

La première se trouve dans la procédure déclenchée par le clic sur un bouton:
"La clause Handler requiert une variable WithEvents definie dans le type conteneur ou l'un de ses types de base"

La seconde se trouve dans la procédure Affichage:
"Une référence à un membre non partagé requiert une référence d'objet"

Je joint le code si quelqu'un veut bien y jeter un oeil.

Merci

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
Public Class Form1
    Public Class Lampes
        Public ampoule As New Lampes With {.allume = True}
        Public allume As Boolean
 
        Public Sub BtnAllumer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnAllumer.Click
            ampoule.allume = True
            Affichage()
        End Sub
        Public Sub BtnEteindre_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnEteindre.Click
            ampoule.allume = False
            affichage()
        End Sub
        Public Sub affichage()
            If ampoule.allume = True Then
                PictureBox1.ImageLocation = "D:\Mes Documents\Visual Studio 2010\Projects\Allumee.jpg"
            Else
                PictureBox1.ImageLocation = "D:\Mes Documents\Visual Studio 2010\Projects\Eteinte.jpg"
            End If
        End Sub
    End Class
 
End Class

[JetLibre]

Une Classe dans une classe?

Essai cela

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
Public Class Form1
 
Public allume As Boolean = True
 
    Private Sub BtnAllumer_Click(sender As Object, e As EventArgs) Handles BtnAllumer.Click
        allume = True
        affichage()
    End Sub
 
    Public Sub BtnEteindre_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnEteindre.Click
        allume = False
        affichage()
    End Sub
    Public Sub affichage()
         If allume = True Then
              PictureBox1.ImageLocation = "D:\Mes Documents\Visual Studio 2010\Projects\Allumee.jpg"
         Else
             PictureBox1.ImageLocation = "D:\Mes Documents\Visual Studio 2010\Projects\Eteinte.jpg"
        End If
    End Sub
 
End Class

[Rainui]

Bonjour,

Avec un contrôle de type CheckBox dont on met l'apparence sur "Button" ça marche bien aussi

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Private Sub cbEtatLampe_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles cbEtatLampe.CheckedChanged
        If cbEtatLampe.Checked = True Then
            PictureBox1.ImageLocation = "C:\Users\Yves\Pictures\Essai.jpg"
            cbEtatLampe.Text = "Eteindre"
        Else
            PictureBox1.ImageLocation = "C:\Users\Yves\Pictures\Essai1.jpg"
            cbEtatLampe.Text = "Allumer"
        End If
    End Sub

[coleoptere]

Merci de vos réponse.

Je ne l'ai pas précisé mais le but de ce programme était de me familiariser avec les classes, les objets... que je découvre.
Ce n'est peut-être pas un exemple très bien choisi mais j'ai fait au plus simple.

Une classe dans une classe, c'est de là que vient mon problème ?

[Pol63]

une classe dans une classe c'est autorisé, ca existe même dans le framework

par contre ta sous classe ne connait rien de ce qui est dans la classe parente
il n'y a pas de lien entre les classes selon l'endroit où elles se trouvent, qu'elle soit à l'intérieure d'une classe ou non c'est juste pour le rangement
donc ta sous classe ne connait pas le bouton

[coleoptere]

Bonsoir,

J'ai pu situer où se trouvait mon erreur. Les explications de Pol63 m'ont bien aidé.
J'ai déplacé la ligne de création de la classe "Lampes" dans un module à part et j'ai mis la création de l'attribut "allume" dedans. Et ainsi cela fonctionne.

[JetLibre]

Une classe dans une classe ?

Je sais que ça existe mais je ne trouve pas l'utilité dans son exemple...

dans tous les cas merci pol63 et à tous qui ont essayé d'aider les autres.