ActiveX (UserControl) - Probleme entre un UserControl et un Form

Question

Bonjour,j'ai un UserControl (Name UsrCtrl), et un Form (Name ClientColors)

Dans mon Form, j'ai un bouton qui doit attribuer une valeur &#224; une variable qui se trouve dans le UserControl, mais je narrive pas a y acceder, quelquun saurait comment faire ??

UserControl:

Dim ClientMsgColor As String

ClientColor:

Private Sub TextColorWhite_Click()
    ' Ici il doit d&#233;finir la variable ClientMsgColor
End Sub

Merci d'avance

cs_Willi · Answer

Bonsoir,
Public ClientMsgColor As String

Mais utilise plutot une propri&#233;t&#233; dont tu acc&#233;deras de cette mani&#232;re
Private Sub TextColorWhite_Click()
   ClientMsgColor = "blanc..."

End Sub

8<---------------------------------------------------
Private m_ClientMsgColor As String


Public Property Get ClientMsgColor() As String
    ClientMsgColor = m_ClientMsgColor
End Property


Public Property Let ClientMsgColor(ByVal sNewValue As String)
    m_ClientMsgColor = sNewValue
End Property
--------------------------------------------------->8

PCPT · Answer

salut, &#224; quelques d&#233;tails pr&#232;s, Willi t'a r&#233;pondu.



en effet il faut utiliser les propri&#233;t&#233;s.

par contre, c'est une couleur, donc OLE_COLOR et non String.



ensuite au Let, il faut dire au contr&#244;le que sa propri&#233;t&#233; a chang&#233; :

propertychanged "ClientMsgColor"



ce n'est pas tout, ces valeurs, il faut aussi les enregistrer. pour &#231;&#224; on utilise le PropertyBag.

Init se d&#233;clenche &#224; la pose du contr&#244;le, Read &#224; la lecture, et Write ...&#224; l'&#233;criture ;)



voir les nombreuses sources pour avoir des exemples plus concrets

++

PCPT [AFCK]

cs_Willi · Answer

Oui en effet j'ai oubli&#233; quelques choses....&#224; 3h30 c'est dur

DakM · Answer

Hum je me suis mal expliqu&#233; je crois :p

En fait c'est que a partir de mon Form, je n'arrive pas a acceder aux variables, controles de mon UserControl, alors que jarrive a faire le contraire ...

DakM · Answer

En cherchant un peu... j'ai trouv&#233; un petit truc,
dans mon projet j'ai sa

Projet (Nom du UserControl: UsrCtrl       ---- Functions.bas
                                                      ---- TChatFunc.bas
                                                      ---- ClientColors.bas

Dans TChatFunc.bas j'ai rajout&#233;

Dim Pt As ActiveXTChat.UsrCtrl

Ce qui me permet d'acceder aux fonctions de UsrCtrl.
Donc je corrige mon message pr&#233;c&#233;dant, si vous aviez un moyen d'acceder aux variables et aux controles ...


 


REMerci ;)


 


DakM

PCPT · Answer

les variables doivent &#234;tre Private, et on y acc&#232;de par les Property (qui sont Public).

si ton usercontrol peut acc&#233;der aux variables de la Form qu'elle
contient, c'est d&#233;j&#224; qu'il y a un souci de conception (sauf exceptions)

PCPT · Answer

gni?


tu confonds Usercontrol (CTL) et Control/Projet (OCX/ActiveX contenant CTL et autre).


il va falloir &#234;tre plus pr&#233;cis, mais &#231;&#224; ne change rien aux pr&#233;c&#233;dents messages

DakM · Answer

Bon jsuis perdu lol
j'te fais un screen sa ira plus vite ^^

DakM · Answer

URL du screenshot: http://gfx.themagma.fr/screen%20VB.JPG

PCPT · Answer

ton module est unique et il le restera. ton usercontrol sera instanci&#233; par une Form (lors de sa pose).

il est totalement impossible que le module r&#233;cup&#232;re quoi que ce soit
(objet) pos&#233; sur ton ctl. comment le module pourrait savoir qu'il doit
regarder sur UsrCtrl1, UsrCtrl2 ou UsrCtrl35 ....



c'est la conception qui est mauvaise.

une Form instancie le ctl (en exe ou en ocx). le ctl varie en fonction
des param&#232;tres (propri&#233;t&#233;s publiques) configur&#233;s par la Form, et il
peut ensuite appeler des fonctions / proc&#233;dures publiques en donnant en
param&#232;tres ses objets (ByRef)

ActiveX (UserControl) - Probleme entre un UserControl et un Form

10 réponses

Discussions similaires