Ocx vb6 Résolu/Fermé

Question

Bonjour, 

Svp, je peux savoir comment connaitre à partir d'un activex le nom de la form fans laquelle est utilisée l'activex ca veut dire si par exemple la form ou il ya l'activex s'appelle frmMain alors moi je veux un code qui permet de savoir que l'activex est dans la form frmMain.
Merci ! 

Configuration: Windows XP / Firefox 3.6.8

lermite222 · Answer

Bonjour,
Il n'y a pas de commande directe pour répondre à ta question mais ont peu employer une petite astuce pour y arriver...
Private Sub Command1_Click()
Dim i
Dim F As Form
    On Error Resume Next
    For Each F In Forms
        i = F.List1.Tag
        If Err = 0 Then
            MsgBox "l'OCX se trouve sur la feuille " & F.Name
            Exit Sub
        End If
        Err.Clear
    Next
End Sub
Bien sûr, remplacer List1 par le nom de ton contrôle.
A+

alio350 · Answer

Merci de ta part ca marche Nickell! :)

alio350 · Answer

SVP je peux savoir comment faire ca a partir d'un OCX car dans mon cas c l'ocx qui dois determiner la form danslaquel il est utilisé

lermite222 · Answer

Pas compris ta question !!

alio350 · Answer

bonjour, je voulais dire que je voulais un code ou je mettrais dans le UserControl et qui va me permettre de déterminer le nom de la form dans laquelle est utilisé mon ocx . Si tu comprend pas repose moi la question ou donne moi ton msn pour qu'on puisse communiquer ! Merci !

lermite222 · Answer

toujours pas compris du tout et
UserControl  c'est quoi en VB6 ?

alio350 · Answer

usercontrol c'est la form ou on met les objets dans un activex dans vb6

lermite222 · Answer

Ah boooon... Tu est en train de FAIRE un ocx.. C'est pas ce qui ressort de tes postes précédants  
Et tu doit connaître le nom de la feuille dans lequel il est ?  
ca dépend où tu met le code, ça peu être...  
    Nom = Me.Parent.name
ou encore      
    Nom = Extender.Parent.name
De mémoire.. si c'est pas ça tu dis, je regarderais dans un de mes anciens projet.
A+  
L'expérience instruit plus sûrement que le conseil. (André Gide)    
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)

alio350 · Answer

ca marche pa :s
je t'ai di que le code j'vaii l'mettre dans le usercontrol et pas dans la feuille ou il ya l'ocx

lermite222 · Answer

CA MARCHE PAS...

C'est tout ce que tu sais dire ?
Tu cherche même pas un tout petit peu !!!
J'ai vérifié et... CA MARCHE, c'est toi qui sais pas où le mettre.
Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
...... Lire les propriétés
Dim Nom As String
    Nom = Extender.Parent.name
End Sub

alio350 · Answer

ok merci ca marche mnt !!

Ocx vb6

11 réponses

Discussions similaires