OVH Cloud OVH Cloud

controle utilisateur

7 réponses
Avatar
Azor
Bonjour,

Comment passer une commande de case à coché ou une chaine de caractères à un
controle utilisateur a partir d'une commande sur ma feuille.

suis-je bien clair ,

Merci

Az

7 réponses

Avatar
ng
Salut,

Si j'ai bien compris, regarde du coté de PropertyGet/Let.

Du genre :

Public Property Get MaChaine() As String

End Property

Public Property Let MaChaine(ByVal sStr As String)

End Property


--
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/

Azor a écrit :

Bonjour,

Comment passer une commande de case à coché ou une chaine de
caractères à un controle utilisateur a partir d'une commande sur ma
feuille.

suis-je bien clair ,

Merci

Az


Avatar
François Picalausa
Bonjour/soir,

Tu veux peut-être définir une propriété de ton usercontrol? ou un event?
Ta question n'est pas très claire.
Voici un exemple simple de usercontrol:

Option Explicit

Private mText As String
Private Const DefaultText As String = "Valeur par défaut"

Public Property Let Text(Value As String)
mText = Value

'Effetue les traitements requis (exemple peindre le texte)
UserControl_Paint

'Indique que la propriété à changé
UserControl.PropertyChanged ("Text")
End Property

Public Property Get Text() As String
Text = mText
End Property

Private Sub UserControl_InitProperties()
'On affefcte comme texte de départ le texte par défaut
mText = DefaultText
End Sub

Private Sub UserControl_Paint()
UserControl.Cls
UserControl.CurrentX = 0
UserControl.CurrentY = 0
UserControl.Print mText
End Sub

Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
'Lecture des propriétés sauvegardées
mText = PropBag.ReadProperty("Text", DefaultText)
End Sub

Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
'Sauvegarde des propriétés
PropBag.WriteProperty "Text", mText, DefaultText
End Sub

'---------------------------------------------------------------------------
----------
'Voici un exemple d'utilisation dans une form, supposant que le usercontrol
se nomme
'usercontrol11
Option Explicit

Private Sub Form_Load()
UserControl11.Text = "Test"
End Sub

Private Sub UserControl11_TextChanged(ByVal OldText As String, ByVal NewText
As String, Cancel As Boolean)
Cancel = Not (MsgBox("Permettre le changement de texte de " & OldText &
" en " & NewText, vbYesNo) = vbYes)
End Sub

Pour une valeur de case à coché, au lieu de string, il s'agit d'un
OLE_TRISTATE

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


"Azor" a écrit dans le message de
news:403c7cb3$0$21683$
Bonjour,

Comment passer une commande de case à coché ou une chaine de
caractères à un controle utilisateur a partir d'une commande sur ma
feuille.

suis-je bien clair ,

Merci

Az


Avatar
François Picalausa
Bonjour/soir,

pour compléter ma réponse précédente, il existe un assistant de génération
d'interface de contrôles activex.
Il apparait lors de la création d'un nouvel usercontrol dans les
usercontrols disponibles.

Je te conseille aussi de jeter un oeil aux modèles Colorful Control et
Control Events, eux aussi présent lors de la création d'un nouvel
usercontrol

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


"Azor" a écrit dans le message de
news:403c7cb3$0$21683$
Bonjour,

Comment passer une commande de case à coché ou une chaine de
caractères à un controle utilisateur a partir d'une commande sur ma
feuille.

suis-je bien clair ,

Merci

Az


Avatar
Azor
Ok merci,
il s'agit de passage de variables d'un contrôle utilisateur à une feuille et
vice versa
je n'ai pas le temps de decortiquer vos reponses, je suis à la bourre :))
pour le pro.
à ce soir....
Codialement
Azzzzzzzz
Avatar
François Picalausa
Bonjour/soir,

Mon exemple correspond à ce que tu veux faire.
Tu peux passer des informations au travers d'une propriété (la form peut
définir ou retrouver une valeur quand elle en a besoin) ou au travers d'un
événement (event) (la form peut définir ou retrouver une valeur quand le
contrôle le propose).

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


"Azor" a écrit dans le message de
news:403c86d6$0$28133$
Ok merci,
il s'agit de passage de variables d'un contrôle utilisateur à une
feuille et vice versa
je n'ai pas le temps de decortiquer vos reponses, je suis à la bourre
:)) pour le pro.
à ce soir....
Codialement
Azzzzzzzz


Avatar
Azor
Super, j'ai compris merci encore François
Az


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

Mon exemple correspond à ce que tu veux faire.
Tu peux passer des informations au travers d'une propriété (la form peut
définir ou retrouver une valeur quand elle en a besoin) ou au travers d'un
événement (event) (la form peut définir ou retrouver une valeur quand le
contrôle le propose).

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


"Azor" a écrit dans le message de
news:403c86d6$0$28133$
> Ok merci,
> il s'agit de passage de variables d'un contrôle utilisateur à une
> feuille et vice versa
> je n'ai pas le temps de decortiquer vos reponses, je suis à la bourre
> :)) pour le pro.
> à ce soir....
> Codialement
> Azzzzzzzz




Avatar
Azor
Super, j'ai compris merci encore François
Az

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

Mon exemple correspond à ce que tu veux faire.
Tu peux passer des informations au travers d'une propriété (la form peut
définir ou retrouver une valeur quand elle en a besoin) ou au travers d'un
événement (event) (la form peut définir ou retrouver une valeur quand le
contrôle le propose).

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


"Azor" a écrit dans le message de
news:403c86d6$0$28133$
> Ok merci,
> il s'agit de passage de variables d'un contrôle utilisateur à une
> feuille et vice versa
> je n'ai pas le temps de decortiquer vos reponses, je suis à la bourre
> :)) pour le pro.
> à ce soir....
> Codialement
> Azzzzzzzz