Déplacer un control activeX en mode execution

Question

Bonjour,



Je cherche &#224; d&#233;placer des usercontrol en mode execution en VB.Net.

J'ai cr&#233;&#233; des controles avec des propi&#233;t&#233;s sp&#233;cifiques, je les placent sur ma zone de travail en mode conception, 

mais lorsque je veux modifier un usercontrol.Location.X ou Y,

VS me met une erreur disant que je ne peut pas modifier ces valeurs!!!



Quelqu'un a t il une id&#233;e????



Merci d'avance

Utilisateur anonyme · Answer

Salut,

Fait une recherche avant de poser ta question, Des question comme ca, j'en ai d&#233;j&#224; r&#233;pondu &#224; des dizaines
Le m&#234;me code que d'habitude:
Pour info, tu peut directement int&#233;gr&#233; la fonction &#224; ton contr&#244;le.

Public Class TonControl
  Inherits System.Windows.Forms.Control

  Private PtClick As System.Drawing.Point
  Protected Overrides Sub OnMouseDown(ByVal e As System.Windows.Forms.MouseEventArgs)    If e.Button Windows.Forms.MouseButtons.Left Then PtClick e.Location
    MyBase.OnMouseDown(e)
  End Sub
  Protected Overrides Sub OnMouseMove(ByVal e As System.Windows.Forms.MouseEventArgs)
    If e.Button = Windows.Forms.MouseButtons.Left Then
      MyBase.Location = New System.Drawing.Point(MyBase.Left + (e.X - PtClick.X), _
      MyBase.Top + (e.Y - PtClick.Y))
    End If
    MyBase.OnMouseMove(e)
  End Sub

  [...]
End Class

Sinon pour ton erreur, les propri&#233;t&#233; Location sont en ReadOnly, il faut passer par le constructeur

Kenji
<hr size="2" width="100%">
Merci de cliquer sur "R&#233;ponse accept&#233;e" si une r&#233;ponse vous convient.

Déplacer un control activeX en mode execution

1 réponse

Discussions similaires