Jolie fenetre comme Steam [Résolu]
albert0
- Messages postés
- 249
- Date d'inscription
- mercredi 27 novembre 2002
- Dernière intervention
- 9 août 2008
- Messages postés
- 249
- Date d'inscription
- mercredi 27 novembre 2002
- Dernière intervention
- 9 août 2008
A voir également:
- Jolie fenetre comme steam
- Windows , pour faire de jolie fenetre )) - Codes sources - Javascript (Navigation)
- Inclure une image dans une fenetre python - Forum - Python
- Personnalisation d'une fenêtre alert() - Conseils pratiques - Javascript
- Base de la création d'une fenetre en api windows [c] - Conseils pratiques - C / C++ / C++.NET
- Opengl-glut: création d'une fenetre et rotation d'une pyramide 3d - Conseils pratiques - C / C++ / C++.NET
7 réponses
Meilleure réponse
- Messages postés
- 281
- Date d'inscription
- samedi 6 mai 2006
- Dernière intervention
- 9 février 2010
Euh les deux premières lignes que j'ai mis doivent être remplacées par une seule et même ligne :
PrivateDeclareFunction ReleaseCapture Lib"user32" () AsInteger
Black G - Le futur de Microsoft
PrivateDeclareFunction ReleaseCapture Lib"user32" () AsInteger
Black G - Le futur de Microsoft
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
119 internautes nous ont dit merci ce mois-ci
- Messages postés
- 281
- Date d'inscription
- samedi 6 mai 2006
- Dernière intervention
- 9 février 2010
Utilise ça pour déplacer ta fenêtre avec "none" :
Private
Declare
Function
ReleaseCapture
Lib
"user32"
()
As
Integer
Private
Const
HTCAPTION
As
Integer
= 2
Private
Const
WM_NCLBUTTONDOWN
As
Integer
= &HA1S
Private
Declare
Function
SendMessage
Lib
"user32"
Alias
"SendMessageA"
(
ByVal
hwnd
As
Integer
,
ByVal
wMsg
As
Integer
,
ByVal
wParam
As
Integer
,
ByRef
lParam
As
Integer
)
As
Integer
Private
Sub
Form1_MouseDown(
ByVal
sender
As
Object
,
ByVal
e
As
System.Windows.Forms.MouseEventArgs)
Handles
Me
.MouseDown
If
e.Button = Windows.Forms.MouseButtons.Left
Then
ReleaseCapture()
SendMessage(
Me
.Handle.ToInt32, WM_NCLBUTTONDOWN, HTCAPTION, 0)
End
If
End
Sub
Black G - Le futur de Microsoft
Private
Declare
Function
ReleaseCapture
Lib
"user32"
()
As
Integer
Private
Const
HTCAPTION
As
Integer
= 2
Private
Const
WM_NCLBUTTONDOWN
As
Integer
= &HA1S
Private
Declare
Function
SendMessage
Lib
"user32"
Alias
"SendMessageA"
(
ByVal
hwnd
As
Integer
,
ByVal
wMsg
As
Integer
,
ByVal
wParam
As
Integer
,
ByRef
lParam
As
Integer
)
As
Integer
Private
Sub
Form1_MouseDown(
ByVal
sender
As
Object
,
ByVal
e
As
System.Windows.Forms.MouseEventArgs)
Handles
Me
.MouseDown
If
e.Button = Windows.Forms.MouseButtons.Left
Then
ReleaseCapture()
SendMessage(
Me
.Handle.ToInt32, WM_NCLBUTTONDOWN, HTCAPTION, 0)
End
If
End
Sub
Black G - Le futur de Microsoft
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.