Discussion :

[parp1]

Bonjour a tous j'en remets une couche. J'ai delesté l'autre post car celui que je post maintenant est plus général.

J'ai dans mon projet trois choses.

Un ControlActiveX que l'on appelera Control1
Une Form que l'on appelera FORM1
Et un module que l'on appelera pas mais dont on sais qu'il est la.

Ce que je souhaite faire.

Lancer de ma FORM1, une fonction qui prend comme argument un objet de Control1, comme une HscrollBar par exemple.


Avec un simple bouton dans FORM1 je fais ca.

Code :

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

1
2
3
Private Sub Command1_Click()
MsgBox Str Parent.Control1.HScroll1.Value
End Sub

J'ai essayé plusieurs choses comme

Code :

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

1
2
Control1.HScroll1.Value
Control1.Parent.HScroll1.Value

Mais en vain. Est ce que quelqu'un a une idée? Merci.

[parp1]

Bon j'ai trouvé une solution, qui je pense n'ai pas propre.... enfin.

Je créer un integer public dans mon module, je lui applique la valeur de Hscroll1 et le rappel dans mon Control1.

Je ne sais pas s'il existe un chemin plus court??? !

[ThierryAIM]

c'est ton contrôle ActiveX qui doit renvoyer une propriété HScrollValue, par exemple, basée sur la valeur de ta scrollbar
Tu ne peux pas accéder directement aux propriétés des objets contenus dans ton ActiveX

[parp1]

Euh ce n'est pas ce que je fais au dessus? Ou alors je créer une variable dans mon Control par exemple.

Code :

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

1
2
Dim seuil as integer
seuil=Hscroll1.Value

Et dans ma form je l'appel comme ca?

Code :

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

FonctionQuelquonque(Control1.seuil)

Est ce que c'est ca?

[ThierryAIM]

nan
un petit exemple vite fait :
dans ton activex :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
Public Property Get HscrollValue() As Integer
    HscrollValue = HScroll1.Value
End Property
 
Public Property Let HscrollValue(ByVal New_HscrollValue As Integer)
    HScroll1.Value() = New_HscrollValue
    PropertyChanged "HscrollValue"
End Property
 
'Initialiser les propriétés pour le contrôle utilisateur
Private Sub UserControl_InitProperties()
    HScroll1.Value = 0
End Sub
 
'Charger les valeurs des propriétés à partir du stockage
Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
    HScroll1.Value = PropBag.ReadProperty("HscrollValue", 0)
End Sub
 
'Écrire les valeurs des propriétés dans le stockage
Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
    Call PropBag.WriteProperty("HscrollValue", HScroll1.Value, 0)
End Sub

dans ta form :

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Form_Activate()
'-- Utilise Property Get
    MsgBox Me.UserControl11.HscrollValue
End Sub
 
Private Sub Form_Load()
'-- Utilise Property Let
    Me.UserControl11.HscrollValue = 50
End Sub

Edit : sympa ton Garfield

[parp1]

Merci a toi, pour toute ces infos, euh j'ai renlever garfield. Si tu veux le meme.... il est la.