cs_ShayW
Messages postés3253Date d'inscriptionjeudi 26 novembre 2009StatutMembreDernière intervention 3 décembre 2019
-
23 déc. 2012 à 00:46
cs_ShayW
Messages postés3253Date d'inscriptionjeudi 26 novembre 2009StatutMembreDernière intervention 3 décembre 2019
-
23 déc. 2012 à 10:12
Bonjour
j'ai un form et une class classx qui hérite d'un picturebox
dans cette class il y aussi un bouton avec
2 evenement mousedown et mouseup
dans le code du mouseup je procède à un simple
calcul dont le résultat est remis dans une variable public res
dans le code de la form
Private Sub Form1_Load
panelx = New Classx()
Me.Controls.Add(panelx)
panelx.Location = New Point(100,100)
panelx.BringToFront()
quand je lance le prog l'objet panelx(picturebox) apparait avec un
bouton
comment faire passer à la form le res de panelx
si j'écris dans le load de form
dim x as integer
x = panelx.res
cela ne donne rien puisque la form ne peut pas
savoir si le mouseup de panelx est relevé
j'espère avoir été clair
Option Strict On
Public Class Form1
Dim WithEvents maclasse As New Classx With {.Parent = Me, _
.Bounds = New Rectangle(20, 20, 100, 100), _
.BackColor = Color.LightGray}
Private Sub maclasse_OK(ByVal resultat As Integer) Handles maclasse.OK
MessageBox.Show(resultat.ToString)
End Sub
End Class
Public Class Classx
Inherits PictureBox
Event OK(ByVal resultat As Integer)
Dim btn As New Button With {.Parent = Me, _
.BackColor = Color.SteelBlue, _
.Text = "ok"}
Sub New()
AddHandler btn.Click, AddressOf btn_Click
End Sub
Sub btn_Click(ByVal sender As Object, ByVal e As EventArgs)
Dim rnd As New Random
RaiseEvent OK(Rnd.next)
End Sub
End Class