Passer le resultat de mouseup à la form

Résolu
Signaler
Messages postés
3258
Date d'inscription
jeudi 26 novembre 2009
Statut
Membre
Dernière intervention
3 décembre 2019
-
Messages postés
3258
Date d'inscription
jeudi 26 novembre 2009
Statut
Membre
Dernière intervention
3 décembre 2019
-
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


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

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.
Messages postés
3258
Date d'inscription
jeudi 26 novembre 2009
Statut
Membre
Dernière intervention
3 décembre 2019
53
merci