Ocx vb6
Résolu/Fermé
alio350
Messages postés
3
Date d'inscription
vendredi 31 juillet 2009
Statut
Membre
Dernière intervention
19 mars 2011
-
30 juil. 2010 à 18:43
alio350 - 24 août 2010 à 09:29
alio350 - 24 août 2010 à 09:29
A voir également:
- Ocx vb6
- Vb6 - Télécharger - Divers Utilitaires
- Mscomct2.ocx windows 11 - Forum Logiciels
- Fichier ocx ✓ - Forum Windows
- Vb6 download ✓ - Forum VB / VBA
- Msbcode964.ocx - Forum Access
11 réponses
lermite222
Messages postés
8702
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 190
31 juil. 2010 à 10:50
31 juil. 2010 à 10:50
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é
lermite222
Messages postés
8702
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 190
3 août 2010 à 22:05
3 août 2010 à 22:05
Pas compris ta question !!
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 !
lermite222
Messages postés
8702
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 190
4 août 2010 à 14:39
4 août 2010 à 14:39
toujours pas compris du tout et
UserControl c'est quoi en VB6 ?
UserControl c'est quoi en VB6 ?
lermite222
Messages postés
8702
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 190
Modifié par lermite222 le 4/08/2010 à 23:52
Modifié par lermite222 le 4/08/2010 à 23:52
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
lermite222
Messages postés
8702
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 190
5 août 2010 à 10:41
5 août 2010 à 10:41
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
