Bouger une form a partir d'un label (sans cadre)

Télécharger le projet
Commenter

Description

Les gros cadre windows gris..c pas beau....
Voici la solution pour ne plus avoir besoin de ce cadre....faites bouger vos formulaire a partir d'un label perso!

Les ingredients :
- un formulaire (form1)
- un module
- et un label (nommé label1)

c parti pour le code>>>>

Source / Exemple : 


'***********************************
'** Dans un module, mettez ceci : **
'***********************************

Public Declare Function ReleaseCapture Lib "user32" () As Long
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Public Const WM_SYSCOMMAND = &H112
Public Const WM_MOVE = &HF012

Public Sub FormDrag(TheForm As Form)
    Call ReleaseCapture
    Call SendMessage(TheForm.hWnd, WM_SYSCOMMAND, WM_MOVE, 0)
End Sub

'******************************************
'** Et dans le formulaire, mettez ceci : **
'******************************************
Private Sub Label1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
FormDrag Me
End Sub

Conclusion :


Voilà..c tres simple !!!

bon bye bon code...!! :)
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (kamykas07)