- Visual Basic / VB.NET : Dos ping - shell dos avec un usercontrol - CodeS SourceS
- Visual Basic / VB.NET : Color chooser - un petit usercontrol pour choisir une couleur rvb - CodeS So
- Détecteur de mode d'exécution (pour les usercontrol)
- Visual Basic / VB.NET : Creation d'un control de type usercontrol et le dupliquer dynamiqument et l'
- Visual Basic / VB.NET : Barre animée = chenillard (usercontrol) - CodeS SourceS
A voir également:
- UserControl
- Usercontrol - Forum - C# / .NET
- Visual Basic / VB.NET : Usercontrol : graph cpu utilisé et mémoire physique libre - Co - Guide
- Visual Basic / VB.NET : Usercontrol gif animé - CodeS SourceS - Guide
- Asp.net - ajouter un usercontrol dynamiquement - Codes sources - ASP / ASP.NET (ASP.Net)
- C# / .NET : Usercontrol combo - CodeS SourceS - Guide
5 réponses
ucfoutu
- Messages postés
- 18038
- Date d'inscription
- lundi 7 décembre 2009
- Statut
- Modérateur
- Dernière intervention
- 11 avril 2018
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à ?
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
- Messages postés
- 14008
- Date d'inscription
- samedi 29 décembre 2001
- Statut
- Modérateur
- Dernière intervention
- 28 août 2015
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.
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
- Messages postés
- 120
- Date d'inscription
- dimanche 22 octobre 2000
- Statut
- Membre
- Dernière intervention
- 26 février 2014
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
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
- Messages postés
- 14008
- Date d'inscription
- samedi 29 décembre 2001
- Statut
- Modérateur
- Dernière intervention
- 28 août 2015
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
A tester, je n'ai pas de UserControl sous la main pour tester
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
- Messages postés
- 120
- Date d'inscription
- dimanche 22 octobre 2000
- Statut
- Membre
- Dernière intervention
- 26 février 2014
c'est bon ca marche
tu m'as mi sur une piste ca marche
AddHandler CtrlNum.MouseDown, AddressOf ChampsMouseDownHandler
AddHandler CtrlNum.TextBox1.MouseDown, AddressOf TextBoxMouseDownHandler
AddHandler CtrlNum.MouseMove, AddressOf ChampsMouseMoveHandler
AddHandler CtrlNum.TextBox1.MouseMove, AddressOf ChampsMouseMoveHandler
Private Sub TextBoxMouseDownHandler(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)
CtrlNum_Location = e.Location
CtrlNum.TextBox1 = DirectCast(CType(sender, TextBox), TextBox)
End Sub
Private Sub ChampsMouseDownHandler(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)
CtrlNum_Location = e.Location
CtrlNum = DirectCast(CType(sender, Ctrl_Numerique), Ctrl_Numerique)
End Sub
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(CtrlNum.Parent.Name).CtrlNumeriques(CtrlNum.Name).Locked = False Then
CtrlNum.Left += (e.X - CtrlNum_Location.X)
CtrlNum.Top += (e.Y - CtrlNum_Location.Y)
G_DisplayItem_Dict(CtrlNum.Parent.Name).CtrlNumeriques(CtrlNum.Name).Location = CtrlNum.Location
End If
End If
End Sub
Encore Merci
Pour le moment ca fera bien l'affaire comme methode
@++
tu m'as mi sur une piste ca marche
AddHandler CtrlNum.MouseDown, AddressOf ChampsMouseDownHandler
AddHandler CtrlNum.TextBox1.MouseDown, AddressOf TextBoxMouseDownHandler
AddHandler CtrlNum.MouseMove, AddressOf ChampsMouseMoveHandler
AddHandler CtrlNum.TextBox1.MouseMove, AddressOf ChampsMouseMoveHandler
Private Sub TextBoxMouseDownHandler(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)
CtrlNum_Location = e.Location
CtrlNum.TextBox1 = DirectCast(CType(sender, TextBox), TextBox)
End Sub
Private Sub ChampsMouseDownHandler(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)
CtrlNum_Location = e.Location
CtrlNum = DirectCast(CType(sender, Ctrl_Numerique), Ctrl_Numerique)
End Sub
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(CtrlNum.Parent.Name).CtrlNumeriques(CtrlNum.Name).Locked = False Then
CtrlNum.Left += (e.X - CtrlNum_Location.X)
CtrlNum.Top += (e.Y - CtrlNum_Location.Y)
G_DisplayItem_Dict(CtrlNum.Parent.Name).CtrlNumeriques(CtrlNum.Name).Location = CtrlNum.Location
End If
End If
End Sub
Encore Merci
Pour le moment ca fera bien l'affaire comme methode
@++