UserControlRésolu

Question

Bonjour, 
 
voila j'ai crée un usercontrol contenant plusieurs élément. Je souhaiterais maintenant, comme je le fait avec un control Bouton ou autre en utilisant l'événement MouseMove, le déplacer en cliquant dessus.
Le problème c'est qu'il faut que je clic exactement sur la form du control. 
Comment faire pour affecter les valeurs de position au usercontrol en cliquant n'importe ou sur l'objet.

D'avance Merci

ucfoutu · Answer

Bonjour,
Et par quel "biais" comptes-tu faire comprendre que c'est tel contrôle et non tel autre contrôle que tu veux déplacer sur ton usercontrrol ?
Question idiote, que je pose là ?

cs_Jack · Answer

Salut Diablosv et un grand bonjour à Ucfoutu 

Ton UserControl est un objet comme les autres.
Il a donc les propriétés Mouse_Click, Mouse_Move (lues depuis la forme qui héberge le contrôle).
Le code de déplacement sera donc placé dans cette forme.
Il te suffit donc de rechercher comment déplacer un objet et tu l'appliques à ton contrôle.
De mémoire, il te faut :
- Dans la partie "Déclarations" de ta forme, tu dimensionnes :
   - 2 Long pour mémoriser les positions init_x et init_y du clic initial
   - 1 booléen pour mémoriser qu'un déplacement est en cours
- Dans _MouseDown de ton contrôle, si le booléen est à False, tu mémorises la position init_x et init_y (fournie dans les paramètres de la Sub) et tu mets ton booléen à True
- Dans _MouseMove, si le booléen est à True, tu gères le déplacement de l'objet (Move) par calcul en utilisant le init_x et init_y mémorisé et le x-y fourni par la Sub
- Dans _MouseUp de ton contrôle, si le booléen est à True, tu le remets à False
 
Il y a des exemples parmi les sources.

diablosv · Answer

Bonjour
merci pour vos reponse.
En fait le deplacement n'est pas un probleme

pour les autres control je fais comme ca :

' Dans le mouseDown je recupere le control et sa position
Private Sub ChampsMouseDownHandler(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)

        Txt_Location = e.Location
        Txt = DirectCast(CType(sender, TextBox), TextBox)

    End Sub

' dans le mouse move j'affecte les nouvelles valeur en dynamique
ce qui a pour effet de garder l'objet coller a la souris durant le deplacement
Private Sub ChampsMouseMoveHandler(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)

        If e.Button = Windows.Forms.MouseButtons.Right Then

            If G_DisplayItem_Dict(Txt.Parent.Name).Numeriques(Txt.Name).Locked = False Then

                Txt.Left += (e.X - Txt_Location.X)
                Txt.Top += (e.Y - Txt_Location.Y)

                G_DisplayItem_Dict(Txt.Parent.Name).Numeriques(Txt.Name).Location = Txt.Location

            End If

        End If

    End Sub

et ca marche bien

sur le usercontrol j'ai plusieurs objet, un label, un textbox un ovalshape. Pour pouvoir le deplacer il faut absolument que je clic sur une partie du usercontrol. Si je clic sur le label ben ca marche pas. je voulais savoir si il etait possible de dire qd on clic sur un des objets du usercontrol tu passe l'evenement clic au usercontrol.

En esperant avoir ete clair 
 
Diablo_SV

cs_Jack · Answer

Je pense que oui.
Ma réponse, il est vrai, était plutôt issue des techniques VB6.
En .Net, il doit suffire d'associer le Handle de l'évènement du Label à celui du control, genre
Private Sub monControl_MouseMachin(Params) _    Handle monControl.MouseMachin, _           monLabel.MouseMachin, _           monOvalShape.MouseMachin

A tester, je n'ai pas de UserControl sous la main pour tester

diablosv · Answer

salut cs_Jack

tu veut dire d'essayer de faire pointer tous les événements vers 1 seul ?
Je vais tester ça de suite et je te dirait si cela marche
merci pour la piste a suivre

UserControl

5 réponses

Discussions similaires