Discussion :

[pouktoro]

bonjour

sa fait bientot 2 jour que je recherche comment deplacer une form
à laquelle j'ai hoté ses bordure avec FormBorderStyle=none
je suis sur visual studio 2005
j'ai tenté plusieurs approche mais aucune n'a marcher
si quelqu'un pourrais me filer un coup de patte
merci d'avance

[Aspic]

Et pouquoi tu ne mets pas une bordure ? comme ca tu pourras la déplacer !
Mets la en SizableToolWindow, y'a pratiquement pas de bordure si c'est la ControlBox qui te gene, tu ne l'auras pas.

[pofet]

Grosso modo, il suffit de récupérer le mousedown sur ta form. Si la souris bouge (mousemove ou quelque chose comme ça) pendant que le bouton de la souris est appuyé, il faut déplacer la fenêtre. Lorsque le clic gauche est relevé, plus d'effet.

[pouktoro]

Et pouquoi tu ne mets pas une bordure ? comme ca tu pourras la déplacer !
Mets la en SizableToolWindow, y'a pratiquement pas de bordure si c'est la ControlBox qui te gene, tu ne l'auras pas.

en fait le form n'est pas rectangulaire donc avec ta technique il reste des vide pour combler le carré windows

et pour la technique du mousedown/mousemove/mouseup c'est ce que j'essai de faire mais vue que j'ai commencer vb ya 1 mois j'ai un peut de mal à me dépatoiller

[pouktoro]

voila où j'en suis

Dim x_form As Integer
Dim y_form As Integer
Dim click_ok As Integer



Private Sub MainForm_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown

click_ok = 1

End Sub

Private Sub MainForm_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
If click_ok = 1 Then

Me.Location = New System.Drawing.Point(e.X, e.Y)

End If

End Sub

Private Sub MainForm_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseUp
click_ok = 0
End Sub

sa marche mais pas comme il faudrais
il y'a une sorte de clignotement lorsque je deplace la form
si quelqu'un sait comment amélioré mon code

[pofet]

Lorsque tu déplaces une fenêtre dans Windows, le système attend que tu ais relaché la souris pour redessiner entièrement la fenêtre. Pendant le déplacement seul un cadre est affiché. Ca permet d'éviter les clignotements.

[pofet]

Ce lien t'intéressera peut-être : Shaped Windows Forms and Controls in Visual Studio .NET. Ca parle de Form avec des formes particulières, et ca traite aussi du déplacement des fenêtres sans bordure.

[pouktoro]

merci pour le lien
sa marche niquel
voilou le code :

Dim mouse_offset
Private Sub Form1_MouseDown(ByVal sender As Object, _
ByVal e As System.Windows.Forms.MouseEventArgs) _
Handles MyBase.MouseDown
mouse_offset = New Point(-e.X, -e.Y)
End Sub

Private Sub Form1_MouseMove(ByVal sender As Object, _
ByVal e As System.Windows.Forms.MouseEventArgs) _
Handles MyBase.MouseMove
If e.Button = Windows.Forms.MouseButtons.Left Then
Dim mousePos As Point = Control.MousePosition
mousePos.Offset(mouse_offset.X, mouse_offset.Y)
Location = mousePos
End If
End Sub