DÉPLACEMENT DE FEUILLES SANS BARRE DE TITRE AVEC UN MODUL

Signaler
Messages postés
3172
Date d'inscription
dimanche 15 février 2004
Statut
Membre
Dernière intervention
9 avril 2017
-
Messages postés
8
Date d'inscription
mercredi 6 décembre 2006
Statut
Membre
Dernière intervention
3 janvier 2007
-
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/40915-deplacement-de-feuilles-sans-barre-de-titre-avec-un-modul

Messages postés
8
Date d'inscription
mercredi 6 décembre 2006
Statut
Membre
Dernière intervention
3 janvier 2007

pour mon code, vs 2005 pro me donne un avertissement,

il faut ecrire If e.Button 1048576 Then au lieu de If e.Button MouseButtons.Left Then

mais je ne sais pas pourquoi ... si ca peut t'aider :)
Messages postés
8
Date d'inscription
samedi 1 mars 2003
Statut
Membre
Dernière intervention
21 octobre 2014

Sans taper de code dans l'événement mouse_move de chaque feuille ?
D'autre part le pointeur indique que la feuille est movable

Dev_tomandtom J'ais voulu tester ton code, mais il manque quelque chose.

Il peut y avoir d'autres intérêts à centraliser le handle et les événements des feuilles ou objets d'une appli

Le "Cette source n'a donc aucun intérêt, dommage" me semble inconstructif

Merci de vos réactions
Messages postés
8
Date d'inscription
mercredi 6 décembre 2006
Statut
Membre
Dernière intervention
3 janvier 2007

Private Sub lblDragMe_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles lblDragMe.MouseDown
If e.Button = MouseButtons.Left Then
lblDragMe.Capture = False

' Create and send a WM_NCLBUTTONDOWN message.
Const WM_NCLBUTTONDOWN As Integer = &HA1S
Const HTCAPTION As Integer = 2
Dim msg As Message = _
Message.Create(Me.Handle, WM_NCLBUTTONDOWN, _
New IntPtr(HTCAPTION), IntPtr.Zero)
Me.DefWndProc(msg)
End If
End Sub
Messages postés
21042
Date d'inscription
jeudi 23 janvier 2003
Statut
Modérateur
Dernière intervention
21 août 2019
24
Ce n'est pas une question d'élégance, le message HTCAPTION est l'unique méthode fiable.

Cette source n'a donc aucun intérêt, dommage.
Messages postés
3172
Date d'inscription
dimanche 15 février 2004
Statut
Membre
Dernière intervention
9 avril 2017
30
Salut,

Fait un tour par ici : http://www.codyx.org/snippet_deplacer-forme-sans-barre-titre_23.aspx#68
C'est une méthode bien plus élégante de le faire.
__
Kenji