BOUGER UNE FORM SANS BORDURE ( BORDERSTYLE = 0-NONE)
Setaou
-
10 avril 2001 à 18:16
yannel777
Messages postés129Date d'inscriptionlundi 4 mai 2009StatutMembreDernière intervention24 janvier 2023
-
6 nov. 2013 à 19:09
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
yannel777
Messages postés129Date d'inscriptionlundi 4 mai 2009StatutMembreDernière intervention24 janvier 2023 6 nov. 2013 à 19:09
Voici 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
Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 202174 13 août 2009 à 07:27
NON !
Il ne aut pas utiliser ce code.
dans les parametres d'affichage, on peut dire de ne pas afficher le contenu des fenetres lorsqu'on les deplace.
toi, tu déplaces la chose a la main, tu n'en fait qu'a ta tête.
ce genre de code est pourtant basique:
Private Declare Function ReleaseCapture Lib "user32.dll" () As Long
Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByRef lParam As Any) As Long
Private Const WM_NCLBUTTONDOWN As Long = &HA1
Private Const HTCAPTION As Long = 2
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
ReleaseCapture
SendMessage hwnd, WM_NCLBUTTONDOWN, HTCAPTION, ByVal 0&
End Sub
ali33
Messages postés2Date d'inscriptiondimanche 5 novembre 2006StatutMembreDernière intervention13 août 2009 13 août 2009 à 00:22
c bon
miguelfp
Messages postés9Date d'inscriptiondimanche 30 mai 2004StatutMembreDernière intervention 3 juin 2005 28 juin 2005 à 00:52
Trés bien ;)
Tu peu ausi l'apliquer sur des images si tu remplace le Form1 par Image1 :)
TheSaib
Messages postés2367Date d'inscriptionmardi 17 avril 2001StatutMembreDernière intervention26 décembre 200723 12 déc. 2002 à 23:37
et le copyright c pour les chiens ?
cs_Zeroc00l
Messages postés367Date d'inscriptionlundi 1 avril 2002StatutMembreDernière intervention11 février 2010 21 avril 2002 à 21:45
Classique kan meme !!! Mais pk tu declare la librairie gdi32 ???
6 nov. 2013 à 19:09
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
13 août 2009 à 07:27
Il ne aut pas utiliser ce code.
dans les parametres d'affichage, on peut dire de ne pas afficher le contenu des fenetres lorsqu'on les deplace.
toi, tu déplaces la chose a la main, tu n'en fait qu'a ta tête.
ce genre de code est pourtant basique:
Private Declare Function ReleaseCapture Lib "user32.dll" () As Long
Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByRef lParam As Any) As Long
Private Const WM_NCLBUTTONDOWN As Long = &HA1
Private Const HTCAPTION As Long = 2
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
ReleaseCapture
SendMessage hwnd, WM_NCLBUTTONDOWN, HTCAPTION, ByVal 0&
End Sub
13 août 2009 à 00:22
28 juin 2005 à 00:52
Tu peu ausi l'apliquer sur des images si tu remplace le Form1 par Image1 :)
12 déc. 2002 à 23:37
21 avril 2002 à 21:45
10 avril 2001 à 19:38
10 avril 2001 à 18:16