USERCONTROL????

euh, question: comment faire pour faire une propriété de son usercontrol?? par example avoir moncontrol.imagedefond = blablabla ???
merchi

Pour ajouter une image à ton control tu peux utiliser la propriété Picture ex:


Public Property Set Picture(ByVal NewPicture As Picture)

On Error Resume Next

Set Usercontrol.Picture = NewPicture
PropertyChanged "Picture"

End Property

'=============================================

Property Get Picture() As Picture

On Error Resume Next

Set Picture = UserControl.Picture

End Property

'========================================================

Private Sub UserControl_ReadProperties(PorpBag As PropertyBag)

On Error Resume Next

Set UserControl.Picture = PropBag.ReadProperty("Picture", Nothing)

End Sub

'============================================================

Private Sub UserControl_WriteProperties(PropBag As PropertyBag)

On Error Resume Next

Call PropBag.WriteProperty("Picture", UserControl.Picture, Nothing)

End Sub

'====================

Exemple:

MonControl.Picture = LoadPicture("C:\Mes documents\Mon images.bmp")

'===============================================



Ceci n'était qu'un exemple, si tu as un problème ou des questions tu peux m'écrire. Et désoler pour les fautes de frappe s'il y en à.


VB_MAN



-------------------------------
Réponse au message :
-------------------------------

euh, question: comment faire pour faire une propriété de son usercontrol?? par example avoir moncontrol.imagedefond = blablabla ???
merchi

Jacques34Votre texte ICI


-------------------------------
Réponse au message :
-------------------------------

> Pour ajouter une image à ton control tu peux utiliser la propriété Picture ex:
>
>
> Public Property Set Picture(ByVal NewPicture As Picture)
>
> On Error Resume Next
>
> Set Usercontrol.Picture = NewPicture
> PropertyChanged "Picture"
>
> End Property
>
> '=============================================
>
> Property Get Picture() As Picture
>
> On Error Resume Next
>
> Set Picture = UserControl.Picture
>
> End Property
>
> '========================================================
>
> Private Sub UserControl_ReadProperties(PorpBag As PropertyBag)
>
> On Error Resume Next
>
> Set UserControl.Picture = PropBag.ReadProperty("Picture", Nothing)
>
> End Sub
>
> '============================================================
>
> Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
>
> On Error Resume Next
>
> Call PropBag.WriteProperty("Picture", UserControl.Picture, Nothing)
>
> End Sub
>
> '====================
>
> Exemple:
>
> MonControl.Picture = LoadPicture("C:\Mes documents\Mon images.bmp")
>
> '===============================================
>
>
>
> Ceci n'était qu'un exemple, si tu as un problème ou des questions tu peux m'écrire. Et désoler pour les fautes de frappe s'il y en à.
>
>
> VB_MAN
>
>
>
> -------------------------------
> Réponse au message :
> -------------------------------
>
> euh, question: comment faire pour faire une propriété de son usercontrol?? par example avoir moncontrol.imagedefond = blablabla ???
> merchi

Jacques34Votre texte ICI
Salut à VB_MAN ( et aux autres )
j'avais trouvé ton article qui répondait à mes questions, mais quand je fais MonControle1.Picture = LoadPicture" ...."
il y a une erreur de compil : "Utilisation incorrecte de la propriété" ; alors que que celle-ci est présente avec un type Picture/Picture
?????

-------------------------------
Réponse au message :
-------------------------------

>
> Jacques34Votre texte ICI
>
>
> -------------------------------
> Réponse au message :
> -------------------------------
>
> > Pour ajouter une image à ton control tu peux utiliser la propriété Picture ex:
> >
> >
> > Public Property Set Picture(ByVal NewPicture As Picture)
> >
> > On Error Resume Next
> >
> > Set Usercontrol.Picture = NewPicture
> > PropertyChanged "Picture"
> >
> > End Property
> >
> > '=============================================
> >
> > Property Get Picture() As Picture
> >
> > On Error Resume Next
> >
> > Set Picture = UserControl.Picture
> >
> > End Property
> >
> > '========================================================
> >
> > Private Sub UserControl_ReadProperties(PorpBag As PropertyBag)
> >
> > On Error Resume Next
> >
> > Set UserControl.Picture = PropBag.ReadProperty("Picture", Nothing)
> >
> > End Sub
> >
> > '============================================================
> >
> > Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
> >
> > On Error Resume Next
> >
> > Call PropBag.WriteProperty("Picture", UserControl.Picture, Nothing)
> >
> > End Sub
> >
> > '====================
> >
> > Exemple:
> >
> > MonControl.Picture = LoadPicture("C:\Mes documents\Mon images.bmp")
> >
> > '===============================================
> >
> >
> >
> > Ceci n'était qu'un exemple, si tu as un problème ou des questions tu peux m'écrire. Et désoler pour les fautes de frappe s'il y en à.
> >
> >
> > VB_MAN
> >
> >
> >
> > -------------------------------
> > Réponse au message :
> > -------------------------------
> >
> > euh, question: comment faire pour faire une propriété de son usercontrol?? par example avoir moncontrol.imagedefond = blablabla ???
> > merchi
>