Ajouter un event [Résolu]

- - Dernière réponse :  hayk83 - 12 janv. 2013 à 21:48
bonjour
je cherche a ajouter un evennement (click, mouseEnter,...) a un PictureBox ajouter dans un control
voici le code simplifier:
Public Class level01
    Inherits control

    Private PiB As New PictureBox
    '....
    Public Sub New()
        Me.Controls.Add(PiB)
        'rec_BClouse c'est un rectangle qui determine la position et size du PiB
        PiB.SetBounds(rec_BClouse.X, rec_BClouse.Y, rec_BClouse.Width, rec_BClouse.Height)
    End Sub
    '....
End Class

PiB va contenir une image et va jouee le role d'un bouton de fermeture.
j'ai besoin des events mouseenter,mousedown, mouseUp pour faire l'animation.
merci
Afficher la suite 

3 réponses

Meilleure réponse
3
Merci
Bonjour,

Ecris simplement :
 Private WithEvents PiB As New PictureBox


Ensuite, cherche ton contrôle PiB dans la boîle déroulante de gauche (au dessus de la zone de saisie du code). Les événements apparaîtront dans la zone déroulante de droite. (C'est comme si tu cherches un événement pour ton formulaire)

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 140 internautes nous ont dit merci ce mois-ci

Commenter la réponse de Utilisateur anonyme
0
Merci
bonjour banana32
j'ai eu ce message d'erreur
Erreur 3 'PiB' est déjà déclaré en tant que 'Private PiB As System.Windows.Forms.PictureBox' dans ce class. C:\....\level01.vb 423 24 STDtab
j'utilise ce code mais ceci ne fonctionne qu'avec le control(l'objet Me)
Protected Overrides Sub OnMouseMove(e As MouseEventArgs)
        MyBase.OnMouseMove(e)
        If e.X > Me.PiB.Location.X And e.X <= (Me.PiB.Location.X + Me.PiB.Width) Then
            If e.Y > Me.PiB.Location.Y And e.Y <= (Me.PiB.Location.Y + Me.PiB.Height) Then
                MsgBox("mouse move events")
                'RaiseEvent _BIs_closed(Me.PiB, e)
            End If
        End If
    End Sub

merci
Commenter la réponse de hayk83
0
Merci
bonjour
bien sure changer
Private PiB As New PictureBox

par
Private WithEvents PiB As New PictureBox

merci banana32
Commenter la réponse de hayk83