• Ce site utilise des cookies. En continuant à utiliser ce site, vous acceptez l'utilisation des cookies. En savoir plus.


Résolu Comment bouger une forme sans barre de titre ?

Statut
N'est pas ouverte pour d'autres réponses.

Vedronex

Membre Premium
Premium
Inscrit
29 Juillet 2012
Messages
1 023
J'aime
442
Points
4 418
#2
J'ai récupéré ce code:

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
 

Hurrycan

× RLF™ TEAM
Premium
Inscrit
12 Décembre 2011
Messages
2 225
J'aime
322
Points
4 768
#3
J'ai récupéré ce code:

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
Merci beaucoup
 
Statut
N'est pas ouverte pour d'autres réponses.


Discussions similaires