Jolie fenetre comme Steam [Résolu]
albert0
- 26 oct. 2007 à 22:24
- 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
- Jolie fenetre comme Steam
- Windows , pour faire de jolie fenetre )) - Codes sources - Javascript (Navigation)
- Personnalisation d'une fenêtre alert() - Conseils pratiques - Javascript
- Base de la création d'une fenetre en api windows - 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
- [débutants] découvrir l'environnement de visual basic sous microsoft excel (et ses fenêtres) - Conseils pratiques - Visual Basic / VB.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
Avec quelques mots c'est encore mieux Ajouter un commentaire
a aidé 90 internautes 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
- Messages postés
- 17308
- Date d'inscription
- mercredi 2 janvier 2002
- Dernière intervention
- 22 août 2018
- Messages postés
- 249
- Date d'inscription
- mercredi 27 novembre 2002
- Dernière intervention
- 9 août 2008
- Messages postés
- 17308
- Date d'inscription
- mercredi 2 janvier 2002
- Dernière intervention
- 22 août 2018
- 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
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.