Jolie fenetre comme Steam [Résolu]

Messages postés
249
Date d'inscription
mercredi 27 novembre 2002
Dernière intervention
9 août 2008
- 24 oct. 2007 à 19:02 - Dernière réponse :
Messages postés
249
Date d'inscription
mercredi 27 novembre 2002
Dernière intervention
9 août 2008
- 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
Messages postés
281
Date d'inscription
samedi 6 mai 2006
Dernière intervention
9 février 2010
- 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é 90 internautes ce mois-ci

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

Renfield
Admin CodeS-SourceS- MVP Visual Basic
Commenter la réponse de Renfield
Messages postés
249
Date d'inscription
mercredi 27 novembre 2002
Dernière intervention
9 août 2008
- 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
Messages postés
17308
Date d'inscription
mercredi 2 janvier 2002
Dernière intervention
22 août 2018
- 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
Messages postés
249
Date d'inscription
mercredi 27 novembre 2002
Dernière intervention
9 août 2008
- 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
Messages postés
249
Date d'inscription
mercredi 27 novembre 2002
Dernière intervention
9 août 2008
- 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.