DÉPLACER UN FORMULAIRE SANS BARRE DE TITRE
PCPT
Messages postés
13272
Date d'inscription
lundi 13 décembre 2004
Statut
Membre
Dernière intervention
3 février 2018
-
18 mars 2006 à 21:11
seye81 Messages postés 7 Date d'inscription samedi 18 mars 2006 Statut Membre Dernière intervention 28 mai 2006 - 18 mars 2006 à 21:55
seye81 Messages postés 7 Date d'inscription samedi 18 mars 2006 Statut Membre Dernière intervention 28 mai 2006 - 18 mars 2006 à 21:55
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/36610-deplacer-un-formulaire-sans-barre-de-titre
https://codes-sources.commentcamarche.net/source/36610-deplacer-un-formulaire-sans-barre-de-titre
18 mars 2006 à 21:55
18 mars 2006 à 21:30
Mais pourquoi faire compliquer quand on peut faire simple:
Code que j'ai resorti au moins 10 fois sur le forum (héhé toujours le même):
Public Class Form1
Private PtClick As System.Drawing.Point
Private Sub Form1_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 Form1_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
End Class
18 mars 2006 à 21:28
18 mars 2006 à 21:24
18 mars 2006 à 21:21
18 mars 2006 à 21:11
.net .... inconnu pour moi. mais l'API sendmessage sur le caption devrait suffir non?
en tout cas un timer pour déplacer une Form çà me semble absurde!