YOUPASS - convertir le crédit téléphonique en monnaie ! : Partenaire RealityGaming.fr

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

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

Hurrycan

× RLF™ TEAM
Premium
Inscrit
12 Décembre 2011
Messages
2 225
J'aime
322
Points
8 018
Reply from Hurrycan Forums généraux Informatique ⌨️ Programmation Questions, aides et recherches générales Résolu : Comment bouger une forme sans barre de titre ? #1
Bonjour j'aimerai déplacer une forme mais sans la barre de titre comment puis-je faire ?
 

Vedronex

Membre Premium
Premium
Inscrit
29 Juillet 2012
Messages
1 023
J'aime
442
Points
4 418
Reply from Vedronex Forums généraux Informatique ⌨️ Programmation Questions, aides et recherches générales Résolu : Comment bouger une forme sans barre de titre ? #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
8 018
Reply from Hurrycan Forums généraux Informatique ⌨️ Programmation Questions, aides et recherches générales Résolu : Comment bouger une forme sans barre de titre ? #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.


Haut