OVH Cloud OVH Cloud

OCX Perso...

7 réponses
Avatar
HECHT Franck
Bonjour/soir,

Voil=E0 mon prob:
---------------

Je dois faire un control "RadioButton" perso avec fond=20
transparent, facile pour le moment hein !!

Mon reel probl=E8me est que les bitmap que j'utilise son=20
comme ceux d'XP (rond quoi) mais j'arrive pas a virer le=20
fond du bitmap pour garder visible que le "Caption" et la=20
partie visible du bitmap (donc le rond dans le quel on=20
click).

Soit j'arrive =E0 virer le fond de mon bitmap mais=20
mon "Caption" ne s'affiche pas ou soit le "Caption"=20
s'affiche mais le fond de mon bitmap apparait !!

Voici le code de la fonction "Paint()" de mon=20
UserControl, fonction qui g=E8re la totalit=E9 de l'affichage=20
et du masquage !!

=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D
Private Sub UserControl_Paint()
With UserControl
.Cls
.CurrentX =3D 0
=20
.AutoRedraw =3D True
.BackStyle =3D 0
.ForeColor =3D RGB(255, 255, 255)
.Height =3D picMask.Height
=20
If Checked =3D True Then
.Picture =3D .picChecked.Picture
Else
.Picture =3D .picUnChecked.Picture
End If
=20
.Width =3D LEFT_POS + lblCaption.Width
.CurrentX =3D LEFT_POS
=20
Print Caption
=20
.MaskPicture =3D .Image
End With
End Sub
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D

Merci pour aide :)

7 réponses

Avatar
François Picalausa
Bonjour/soir,

"HECHT Franck" a écrit dans le message de
news:9f2701c3eb46$d9f6e3e0$
Mon reel problème est que les bitmap que j'utilise son
comme ceux d'XP (rond quoi) mais j'arrive pas a virer le
fond du bitmap pour garder visible que le "Caption" et la
partie visible du bitmap (donc le rond dans le quel on
click).

.ForeColor = RGB(255, 255, 255)



Est-ce que le fond de ton bitmap est blanc?
Essaye peut-être avec du rouge, qui est souvent moins utilisé dans les
bitmaps (RGB(255,0,0) ou vbRed)
Est ce que le MaskColor est définit à la bonne couleur(vbWhite ou
RGB(255,255,255)?

--
François Picalausa (MVP VB)
FAQ VB : http://faq.vb.free.fr
MSDN : http://msdn.microsoft.com
Avatar
ng
Salut,
Comme tu utilises un MaskColor sur ton usercontrol, il faudra faire un
paintpicture avec l'image de ton bouton radio, sans oublier de mettre le
BackColor de l'usercontrol à la même couleur que le MaskColor et que la
couleur de fond de ton radio.

--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/


"HECHT Franck" a écrit dans le message de news:
9f2701c3eb46$d9f6e3e0$
Bonjour/soir,

Voilà mon prob:
---------------

Je dois faire un control "RadioButton" perso avec fond
transparent, facile pour le moment hein !!

Mon reel problème est que les bitmap que j'utilise son
comme ceux d'XP (rond quoi) mais j'arrive pas a virer le
fond du bitmap pour garder visible que le "Caption" et la
partie visible du bitmap (donc le rond dans le quel on
click).

Soit j'arrive à virer le fond de mon bitmap mais
mon "Caption" ne s'affiche pas ou soit le "Caption"
s'affiche mais le fond de mon bitmap apparait !!

Voici le code de la fonction "Paint()" de mon
UserControl, fonction qui gère la totalité de l'affichage
et du masquage !!

========================================================= Private Sub UserControl_Paint()
With UserControl
.Cls
.CurrentX = 0

.AutoRedraw = True
.BackStyle = 0
.ForeColor = RGB(255, 255, 255)
.Height = picMask.Height

If Checked = True Then
.Picture = .picChecked.Picture
Else
.Picture = .picUnChecked.Picture
End If

.Width = LEFT_POS + lblCaption.Width
.CurrentX = LEFT_POS

Print Caption

.MaskPicture = .Image
End With
End Sub
=========================================================
Merci pour aide :)
Avatar
François Picalausa
Bonjour/soir,

rectification:
Est-ce que le fond de ton bitmap est blanc?


devient
est-ce que le fond de ton bitmap est de la couleur de usercontrol.backcolor?

"François Picalausa" a écrit dans le message de
news:
Bonjour/soir,

"HECHT Franck" a écrit dans le message de
news:9f2701c3eb46$d9f6e3e0$
Mon reel problème est que les bitmap que j'utilise son
comme ceux d'XP (rond quoi) mais j'arrive pas a virer le
fond du bitmap pour garder visible que le "Caption" et la
partie visible du bitmap (donc le rond dans le quel on
click).

.ForeColor = RGB(255, 255, 255)



Est-ce que le fond de ton bitmap est d?
Essaye peut-être avec du rouge, qui est souvent moins utilisé dans les
bitmaps (RGB(255,0,0) ou vbRed)
Est ce que le MaskColor est définit à la bonne couleur(vbWhite ou
RGB(255,255,255)?



--
François Picalausa (MVP VB)
FAQ VB : http://faq.vb.free.fr
MSDN : http://msdn.microsoft.com
Avatar
HECHT Franck
>est-ce que le fond de ton bitmap est de la couleur de


usercontrol.backcolor? = OUI




-----Message d'origine-----
Bonjour/soir,

rectification:
Est-ce que le fond de ton bitmap est blanc?


devient
est-ce que le fond de ton bitmap est de la couleur de


usercontrol.backcolor?

"François Picalausa" a écrit dans


le message de
news:
Bonjour/soir,

"HECHT Franck" a écrit dans le




message de
news:9f2701c3eb46$d9f6e3e0$
Mon reel problème est que les bitmap que j'utilise son
comme ceux d'XP (rond quoi) mais j'arrive pas a virer






le
fond du bitmap pour garder visible que le "Caption"






et la
partie visible du bitmap (donc le rond dans le quel on
click).

.ForeColor = RGB(255, 255, 255)



Est-ce que le fond de ton bitmap est d?
Essaye peut-être avec du rouge, qui est souvent moins




utilisé dans les
bitmaps (RGB(255,0,0) ou vbRed)
Est ce que le MaskColor est définit à la bonne couleur




(vbWhite ou
RGB(255,255,255)?



--
François Picalausa (MVP VB)
FAQ VB : http://faq.vb.free.fr
MSDN : http://msdn.microsoft.com


.



Avatar
HECHT Franck
SI "ng" est encore à l'ecoute, dis-moi comment tu utilise
la fonction "PaintPicture" car je ne l'est jamais
utilisée !!


-----Message d'origine-----
Salut,
Comme tu utilises un MaskColor sur ton usercontrol, il


faudra faire un
paintpicture avec l'image de ton bouton radio, sans


oublier de mettre le
BackColor de l'usercontrol à la même couleur que le


MaskColor et que la
couleur de fond de ton radio.

--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/


"HECHT Franck" a écrit dans le


message de news:
9f2701c3eb46$d9f6e3e0$
Bonjour/soir,

Voilà mon prob:
---------------

Je dois faire un control "RadioButton" perso avec fond
transparent, facile pour le moment hein !!

Mon reel problème est que les bitmap que j'utilise son
comme ceux d'XP (rond quoi) mais j'arrive pas a virer le
fond du bitmap pour garder visible que le "Caption" et la
partie visible du bitmap (donc le rond dans le quel on
click).

Soit j'arrive à virer le fond de mon bitmap mais
mon "Caption" ne s'affiche pas ou soit le "Caption"
s'affiche mais le fond de mon bitmap apparait !!

Voici le code de la fonction "Paint()" de mon
UserControl, fonction qui gère la totalité de l'affichage
et du masquage !!

======================== ========================= ========


=
Private Sub UserControl_Paint()
With UserControl
.Cls
.CurrentX = 0

.AutoRedraw = True
.BackStyle = 0
.ForeColor = RGB(255, 255, 255)
.Height = picMask.Height

If Checked = True Then
.Picture = .picChecked.Picture
Else
.Picture = .picUnChecked.Picture
End If

.Width = LEFT_POS + lblCaption.Width
.CurrentX = LEFT_POS

Print Caption

.MaskPicture = .Image
End With
End Sub
======================== ========================= ========


=

Merci pour aide :)


.



Avatar
François Picalausa
Bonjour/soir,

En règle générale, les trois premiers arguments suffisent:
UserControl.paintpicture ObjetPicture, X1, Y1

ObjetPicture sera un objet de type picture à tracer.
(Par exemple: Picture1.Picture ou LoadPicture ou ...)
X1 désigne la position X où tracer l'image
(Par exemple, 0 désigne tout à fait à gauche)
Y1 désigne la position Y où tracer l'image
(0 pour tout en haut)

--
François Picalausa (MVP VB)
FAQ VB : http://faq.vb.free.fr
MSDN : http://msdn.microsoft.com


"HECHT Franck" a écrit dans le message de
news:9a3301c3eb54$dd65ea90$
SI "ng" est encore à l'ecoute, dis-moi comment tu utilise
la fonction "PaintPicture" car je ne l'est jamais
utilisée !!


Avatar
HECHT Franck
Ca marche au poil :D
Merci @ tous les 2 ;)

-----Message d'origine-----
Bonjour/soir,

En règle générale, les trois premiers arguments


suffisent:
UserControl.paintpicture ObjetPicture, X1, Y1

ObjetPicture sera un objet de type picture à tracer.
(Par exemple: Picture1.Picture ou LoadPicture ou ...)
X1 désigne la position X où tracer l'image
(Par exemple, 0 désigne tout à fait à gauche)
Y1 désigne la position Y où tracer l'image
(0 pour tout en haut)

--
François Picalausa (MVP VB)
FAQ VB : http://faq.vb.free.fr
MSDN : http://msdn.microsoft.com


"HECHT Franck" a écrit dans le


message de
news:9a3301c3eb54$dd65ea90$
SI "ng" est encore à l'ecoute, dis-moi comment tu




utilise
la fonction "PaintPicture" car je ne l'est jamais
utilisée !!




.