Besoin de comprendre L'utilisation des objets avec Set et New
Résolu
codea
Messages postés
94
Date d'inscription
dimanche 9 mai 2004
Statut
Membre
Dernière intervention
6 août 2006
-
16 oct. 2005 à 20:59
PCPT Messages postés 13272 Date d'inscription lundi 13 décembre 2004 Statut Membre Dernière intervention 3 février 2018 - 16 oct. 2005 à 23:38
PCPT Messages postés 13272 Date d'inscription lundi 13 décembre 2004 Statut Membre Dernière intervention 3 février 2018 - 16 oct. 2005 à 23:38
5 réponses
PCPT
Messages postés
13272
Date d'inscription
lundi 13 décembre 2004
Statut
Membre
Dernière intervention
3 février 2018
47
16 oct. 2005 à 22:32
16 oct. 2005 à 22:32
salut,
voici un exemple concret et fonctionnel VB6
en espérant qu'il t'aide à mieux comprendre....
Dim AfCrypt As New Cls_CrypDecryp
Dim ooo As Object
'
'
Private Sub Form_Load()
Set AfCrypt = New Cls_CrypDecryp
Set ooo = AfCrypt
ooo.Tag = "ouai"
End Sub
'
'
Private Sub Form_Unload(Cancel As Integer)
Set AfCrypt = Nothing
Set ooo = Nothing
End Sub
'
'
'
Private Sub Command1_Click()
MsgBox ooo.Tag
End Sub
<SMALL> Coloration syntaxique automatique [AFCK]</SMALL>
PCPT [AFCK]
voici un exemple concret et fonctionnel VB6
en espérant qu'il t'aide à mieux comprendre....
Dim AfCrypt As New Cls_CrypDecryp
Dim ooo As Object
'
'
Private Sub Form_Load()
Set AfCrypt = New Cls_CrypDecryp
Set ooo = AfCrypt
ooo.Tag = "ouai"
End Sub
'
'
Private Sub Form_Unload(Cancel As Integer)
Set AfCrypt = Nothing
Set ooo = Nothing
End Sub
'
'
'
Private Sub Command1_Click()
MsgBox ooo.Tag
End Sub
<SMALL> Coloration syntaxique automatique [AFCK]</SMALL>
PCPT [AFCK]
Paladin2107
Messages postés
154
Date d'inscription
samedi 25 octobre 2003
Statut
Membre
Dernière intervention
5 septembre 2008
1
16 oct. 2005 à 21:51
16 oct. 2005 à 21:51
on peut instancier un objet de 2 facon
1 Créé en mémoire directement
Dim Machin as new OBJET
2 Crée lors du set
Dim Machin as OBJET
Set machin = ....
Ps : détruit l'objet
Set Machin = Nothing
Couscous
1 Créé en mémoire directement
Dim Machin as new OBJET
2 Crée lors du set
Dim Machin as OBJET
Set machin = ....
Ps : détruit l'objet
Set Machin = Nothing
Couscous
codea
Messages postés
94
Date d'inscription
dimanche 9 mai 2004
Statut
Membre
Dernière intervention
6 août 2006
16 oct. 2005 à 22:13
16 oct. 2005 à 22:13
Oui mais est-til possible d'utiliser le même objet avec 2 variables différentes
du genre
Dim Machin as new objet
dim Machin1 as Objet
Machin.text=""
set Machin1=Machin
Machin1.text devrait etre= à ""
Machin1.text=allo
Machin.text devrait etre = à "Allo"
Je me trompe ?
Rien ne sert de courir, il faut partir à point.
&
du genre
Dim Machin as new objet
dim Machin1 as Objet
Machin.text=""
set Machin1=Machin
Machin1.text devrait etre= à ""
Machin1.text=allo
Machin.text devrait etre = à "Allo"
Je me trompe ?
Rien ne sert de courir, il faut partir à point.
&
codea
Messages postés
94
Date d'inscription
dimanche 9 mai 2004
Statut
Membre
Dernière intervention
6 août 2006
16 oct. 2005 à 22:38
16 oct. 2005 à 22:38
ca fais quoi si on déclare :
ooo as Cls_CrypDecryp
et après:
Set ooo = AfCrypt
Rien ne sert de courir, il faut partir à point.
&
ooo as Cls_CrypDecryp
et après:
Set ooo = AfCrypt
Rien ne sert de courir, il faut partir à point.
&
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
PCPT
Messages postés
13272
Date d'inscription
lundi 13 décembre 2004
Statut
Membre
Dernière intervention
3 février 2018
47
16 oct. 2005 à 23:38
16 oct. 2005 à 23:38
AfCrypt étant déjà déclaré et initialisé, ooo reçoit donc un format valide.
testé. çà fonctionne.
seulement, çà peut dépendre aussi du type de classe (peut-être), et celle en exemple est peu exigeante.....
PCPT [AFCK]
testé. çà fonctionne.
seulement, çà peut dépendre aussi du type de classe (peut-être), et celle en exemple est peu exigeante.....
PCPT [AFCK]
