Public Class Form1 Dim Allume As Boolean = True Dim PictureBox1 As New PictureBox Dim PictureBox2 As New PictureBox Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 'Le fait de charger l'image jpg à chaque fois, ça rallenti considérablement l'application donc, 'Exemple avec création des picturebox dynamiquement: PictureBox1.Load("D:\Mes Documents\Visual Studio 2010\Projects\Allumee.jpg") PictureBox2.Load("D:\Mes Documents\Visual Studio 2010\Projects\Eteinte.jpg") Me.Controls.Add(PictureBox1) Me.Controls.Add(PictureBox2) PictureBox1.BringToFront() End Sub Private Sub BtnAllumer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnAllumer.Click PictureBox1.BringToFront() Allume = True End Sub Private Sub BtnEteindre_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnEteindre.Click PictureBox2.BringToFront() Allume = False End Sub End Class
ShayW, je connais le cours que tu as mis en lien et je voulais le mettre en pratique ...
Public ampoule As New Lampes With {.allume = True}
Class lampes inherits form WithEvents BtnAllumer As New Button WithEvents BtnEteindre As New Button Private picturebox1 As New PictureBox private allume As Boolean Public Sub New() BtnAllumer.Location = New point(10,10) BtnEteindre .Location = New point(BtnAllumer.right + 10,10) Me.Controls.Add(BtnAllumer) Me.Controls.Add(BtnEteindre) allume = true 'decide où placer ta picturebox1 picturebox1.location = new point(? ,? ) End Sub private 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 Private Sub BtnAllumer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnAllumer.Click Allume = True affichage End Sub Private Sub BtnEteindre_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnEteindre.Click Allume = False affichage End Sub End Class
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionPublic Class Lampe Inherits Form1 WithEvents BtnAllumer As New Button WithEvents BtnEteindre As New Button Private picturebox1 As New PictureBox Private allume As Boolean Public Sub New() BtnAllumer.Location = New Point(40, 230) BtnEteindre.Location = New Point(150, 230) '(BtnAllumer.Right + 10, 10) 'decide où placer ta picturebox1 picturebox1.Location = New Point(99, 35) picturebox1.Width = 64 picturebox1.Height = 85 BtnAllumer.Text = "ALLUMER" BtnEteindre.Text = "ETEINDRE" BtnAllumer.Visible = True Me.Controls.Add(BtnAllumer) Me.Controls.Add(BtnEteindre) Me.Controls.Add(picturebox1) Me.Text = "Lampe" 'allume = True End Sub Private 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 Private Sub BtnAllumer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnAllumer.Click allume = True affichage() End Sub Private Sub BtnEteindre_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnEteindre.Click allume = False affichage() End Sub End Class
Bruno, j'ai testé ton code mais ça ne répond pas au bu
J'avais clôturé cette discussion mais...
Euhh... il est où Bruno dans cette discution?
J'avais clôturé cette discussion mais ton intervention m'a beaucoup intéresséC'était pour indiquer que la discussion rebondissait avec un apport intéressant.
Comme mon problème était résolu et je n'avais pas de réponse à ma question concernant la clôture d'une discussion, j'ai cliqué sur le bouton "accepter cette réponse" en pensant que c'est ainsi que l'on clôturai une discussion.
Dans les propriétés de l'application,Formulaire de démarrage, j'ai du mettre "Lampe" à la place de Form1 (sinon il affichait le formulaire Form1 au de celui de Lampe.
Public Class Lampe Inherits Form1
Public Class Form1 Private malampe As New Classlamp end class
Private malampe As New Classlamp
Inherits Form1
en fait je ne vois pas l'éfficacité de créer
une class qui hérite de ta propre form
dans ce cas sers toi du code d'acive
tu n'as pas besoin de class lamp