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
Bonsoir,

Voilà, je voulais juste savoir si c'était possible en VB de faire ce genre de fenetre



merci
Afficher la suite 

Votre réponse

7 réponses

Meilleure réponse
guiguidu25 281 Messages postés samedi 6 mai 2006Date d'inscription 9 février 2010 Dernière intervention - 26 oct. 2007 à 21:40
3
Merci
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

Merci guiguidu25 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 92 internautes ce mois-ci

Commenter la réponse de guiguidu25
guiguidu25 281 Messages postés samedi 6 mai 2006Date d'inscription 9 février 2010 Dernière intervention - 26 oct. 2007 à 21:38
1
Merci
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
Commenter la réponse de guiguidu25
Renfield 17308 Messages postés mercredi 2 janvier 2002Date d'inscription 22 août 2018 Dernière intervention - 25 oct. 2007 à 04:53
0
Merci
oui, c'est possible

Renfield
Admin CodeS-SourceS- MVP Visual Basic
Commenter la réponse de Renfield
albert0 249 Messages postés mercredi 27 novembre 2002Date d'inscription 9 août 2008 Dernière intervention - 25 oct. 2007 à 13:38
0
Merci
ça me semblait évident alors je l'ai pas écris, mais:

"Si oui, ect-ce que vous pourriez m'expliquer comment?"

Surtout pour enlever la barre en haut, et changer la couleur

merci
Commenter la réponse de albert0
Renfield 17308 Messages postés mercredi 2 janvier 2002Date d'inscription 22 août 2018 Dernière intervention - 26 oct. 2007 à 06:10
0
Merci
la barre du haut, tu dois pouvoir changer le 'BorderStyle' et le metttre à 'None'  (ca se passe ainsi en VB6)

pour la couleur de fond, tu dois avoir une propriété BackColor...

Renfield
Admin CodeS-SourceS- MVP Visual Basic
Commenter la réponse de Renfield
albert0 249 Messages postés mercredi 27 novembre 2002Date d'inscription 9 août 2008 Dernière intervention - 26 oct. 2007 à 12:09
0
Merci
J'avais deja essayé ça, mais en mettant a "None" je pouvais plus bouger la fenetre :(
Commenter la réponse de albert0
albert0 249 Messages postés mercredi 27 novembre 2002Date d'inscription 9 août 2008 Dernière intervention - 26 oct. 2007 à 22:24
0
Merci
ok, merci

ça marche maintenant
Commenter la réponse de albert0

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.