Discussion :

[Diesel1405]

bonjour,
je cherche à rendre transparant une picturebox.
J'y arrive avec une form mais pas avec une picturebox dans une form.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Public Function TransRegion(frm As Form, TranslucenceLevel As Byte, Crk As Long) As Boolean
SetWindowLong frm.hWnd, GWL_EXSTYLE, WS_EX_LAYERED
SetLayeredWindowAttributes frm.hWnd, Crk, TranslucenceLevel, &H3
 
TransRegion = Err.LastDllError = 0
End Function

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub CacheRouge_Change()
Call TransRegion(Moteur.CacheRouge, 200, RGB(255, 0, 0))
End Sub

Une idée ?
merci

[ProgElecT]

Salut

Tu es sûr que c'est du code VB6? ou plutôt du vb.net ?

[Diesel1405]

Bonjour ProgElecT
C'est bien du VB6

En complément je précise que je lance ma picture box de la facon suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Moteur.CacheRouge.visible = true

[ProgElecT]

Re

Ok
Regardes dans mes contributions, repaires entre autre MovAfiTransp.zip : Image, couleur transparente, DragDrop affichage durant déplacement