[VB6] transparence d'une form

Version imprimable

13/06/2006, 22h30
Vesta

[VB6] transparence d'une form

Est-il possible de rendre la fenetre transparents, je veux dire, non pas y faire des trous mais vraiment pouvoir régler le niveau d'opacité par exemple... Laisser apparaitres le fond derriere
13/06/2006, 22h38
zazaraignée

Salut

Aucune idée! Je sais cependant qu'on peut en faire de formes différentes (que le rectangle).
Ou encore une recherche chez le docteur VB...
13/06/2006, 22h47
Vesta

Pour les formes à formes variables (beau jeu de mot) je connaissait... Je vais aller voir sur DocteurVB :D

C'est un peu ridicule, mais... ma foi, ... si tu y tiens ...
essaye voir :

Code:

1
2
3
4
5
6
7
Private Declare Function SetWindowLong Lib "USER32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
 
Private Declare Function SetLayeredWindowAttributes Lib "USER32" (ByVal hWnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
Private Sub Form_Load()
    SetWindowLong Me.hWnd, (-20), &H80000
    SetLayeredWindowAttributes Me.hWnd, 0, 200, &H2
End Sub

change 200 par plus petit (50 par exemple... si celà t'amuse tant)

13/06/2006, 22h57
Vesta

Je teste ca...

C'est pour gérer un notifeur de message, je voudrais une transparence pour que ce soit discret et joli :D

Merci jmfmarques...
13/06/2006, 22h59
Vesta

Exactement ce qu'il fallait... Merci beaucoup
13/06/2006, 23h00
zazaraignée

Wow, jmf, j'la connaissais pas celle-là!
13/06/2006, 23h04
jmfmarques

J'ai fait au hasard, Zaza (j'ai eu de la chance encore une fois...!)
13/06/2006, 23h05
Vesta

MDR :D

On le changera plus :D