Ocx vb6
Résolu
alio350
Messages postés
3
Date d'inscription
Statut
Membre
Dernière intervention
-
alio350 -
alio350 -
A voir également:
- Ocx vb6
- Vb6 - Télécharger - Divers Utilitaires
- Comctl32.ocx ✓ - Forum Windows 7
- Comdlg32.ocx ✓ - Forum Bases de données
- Mscomct2.ocx ✓ - Forum Logiciels
- Fichier ocx ✓ - Forum Windows
11 réponses
Bonjour,
Il n'y a pas de commande directe pour répondre à ta question mais ont peu employer une petite astuce pour y arriver...
Bien sûr, remplacer List1 par le nom de ton contrôle.
A+
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+
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é
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
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 !
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...
ou encore
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)
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)
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
je t'ai di que le code j'vaii l'mettre dans le usercontrol et pas dans la feuille ou il ya l'ocx
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.
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
