Jolie fenetre comme Steam [Résolu]
albert0
249
Messages postés
mercredi 27 novembre 2002Date d'inscription
9 août 2008
Dernière intervention
-
24 oct. 2007 à 19:02 - Dernière réponse :
albert0
249
Messages postés
mercredi 27 novembre 2002Date d'inscription
9 août 2008
Dernière intervention
- 26 oct. 2007 à 22:24
- Jolie fenetre comme Steam
- Windows , pour faire de jolie fenetre )) » Codes sources - Javascript (Navigation)
- Capturer la fenetre active et la mettre dans un fichier » Codes sources - Visual Basic / VB.NET (Graphique)
- Rendre une fenetre modale » Codes sources - Visual Basic / VB.NET (Formulaire)
- Savoir si la fenetre est toujours active » Codes sources - Visual Basic / VB.NET (Formulaire)
- Savoir si une fenetre est chargee » Codes sources - Visual Basic / VB.NET (Formulaire)
7 réponses
Meilleure réponse
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é 81 internautes ce mois-ci
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.