Passer le resultat de mouseup à la form

Résolu
cs_ShayW Messages postés 3258 Date d'inscription jeudi 26 novembre 2009 Statut Membre Dernière intervention 3 décembre 2019 - 23 déc. 2012 à 00:46
cs_ShayW Messages postés 3258 Date d'inscription jeudi 26 novembre 2009 Statut Membre Derniè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

merci

3 réponses

Utilisateur anonyme
23 déc. 2012 à 01:50
Problèmes de lenteur du site ce soir

Un petit exemple pour tester chez toi :
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
3
Utilisateur anonyme
23 déc. 2012 à 01:02
Bonjour ShayW,

cela ne donne rien puisque la form ne peut pas
savoir si le mouseup de panelx est relevé

Tu devrais étudier les événements (voir raiseevent, event et withevents) à implémenter dans ta classe.
0
cs_ShayW Messages postés 3258 Date d'inscription jeudi 26 novembre 2009 Statut Membre Dernière intervention 3 décembre 2019 55
23 déc. 2012 à 10:12
merci
0