Drag and Drop d'une fenêtre principale sans bordures / .NetRésolu

Question

Salut &#224; tous,

Bien ma question est tr&#232;s simple : J'ai une fen&#234;tre d'application qui n'a pas de bordure car cette application &#224; comme fond une image.
j'aimerais pouvoir d&#233;placer cette fen&#232;tre en utilisant la souris via le proc&#233;d&#233; Drag And Drop, j'ai commencer &#224; faire la prog du tout mais lorsque je d&#233;place celle-ci elle ne suis pas du tout la souris ou alors elle clignote le temps du d&#233;placement, mais le pire est que lors du relachement du bouton de la souris, la fen&#232;tre n'est pas du tout &#224; l'emplacement voulu.

Quelqu'un peux t'il m'aider ?

Merci d'avance :

Mon code :

Private 
Sub MainSrc_MouseUp(
ByVal sender 
As 
Object, 
ByVal e 
As System.Windows.Forms.MouseEventArgs) 
Handles 
MyBase.MouseUp
   




       Me.Location = 
New System.Drawing.Point(e.X, e.Y)




End 
Sub


Chris...
Web : Firstruner

Utilisateur anonyme · Accepted Answer

Bonjour,

Et encore et toujours la m&#234;me question, 
Mais bon, j'y r&#233;pond quand m&#234;me.
On ne peut pas utiliser le DragDrop pour d&#233;placer une fen&#234;tre !

Utilise plut&#244;t:

Private PtClick As System.Drawing.Point
Private Sub MaisScr_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown  If e.Button Windows.Forms.MouseButtons.Left Then PtClick e.Location
End Sub
Private Sub MaisScr_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove
  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
End Sub

Kenji

<hr size="2" width="100%">
Merci de cliquer sur "R&#233;ponse accept&#233;e" si une r&#233;ponse vous convient.

cboulas · Answer

Merci bien pour ces informations, et d&#233;soler de ne pas conna&#238;tre le language ad&#233;quate, en revanche il faut fair eune l&#233;g&#232;re modif &#224; ton code
car en DotNet 1, 'e' ne retourne pas d'object 'location'  


Chris...
Web : Firstruner

Utilisateur anonyme · Answer

Pour la prochaine fois, indique le langage utilisé (aussi dans la question) ainsi que la version.
Comme ca j'aurais pu adapter. Bon, là ce n'est pas trop grave mais des fois y'a tout qui change.

Kenji

Dalida · Answer

salut, 



tu localise le formulaire (le coin sup&#233;rieur gauche) &#224; la position de
la souris au moment du MouseUp. il faut que tu tiennes compte de la
position de la souris au moment du MouseDown (pour corriger la position
du formulaire en fonction de la position du curseur sur le formulaire).

il faut localiser le formulaire &#224; chaque d&#233;placement de souris (&#233;v&#232;nement MouseMove).



les handlers sont incomplets (je l'ai &#233;crit avec Scite !) et il faut
surement convertir les coordonn&#233;es (client/&#233;cran), mais le principe est
celui-l&#224; :



Dim doDrag As Boolean = False

Dim mousePos As Point = Point.Empty



Private Sub MouseDown(X As Integer, Y As Integer)


    doDrag = True

    mousePos = New Point(X, Y)


End Sub


Private Sub MouseMove(X As Integer, Y As Integer)


    If doDrag = True Then


        frm.Left = frm.Left - (mousePos.X - X)
        frm.Top = frm.Top - (mousePos.Y - Y)


    End If


End Sub


Private Sub MouseUp()


    doDrag = False


End Sub





[ Dalida ]

Dalida · Answer

oupps, &#231;a m'apprendra &#224; mettre trop de temps pour r&#233;pondre et pas actualiser la page avant de poster...



[ Dalida ]

cboulas · Answer

Merci qd m&#234;me Dalida,

Et pour Charles, bh&#224;&#224;&#224; regarde le titre de mon post ...


Chris...
Web : Firstruner

Drag and Drop d'une fenêtre principale sans bordures / .Net

6 réponses

Discussions similaires