Bonjour,

j'aurais voulu savoir comment passer un formulaire (Form1 par exemple) au travers d'une procédure pour pouvoir l'utiliser ensuite dans la procédure qui se situe dans une classe...

J'ai tenté de déclarer dans la procédure une variable type frmForm as Form1 et en envoi Init(Form1) mais ca ne marche pas...

Merci

salut,

t'étais pas loin...
c'est de type FORM

donc dans un module :
public sub InitFrm(byref oFrm as form)
'tes actions
msgbox oFrm.caption
end sub


et tu appelles par
call InitFrm(Form1)
ou
call InitFrm(me)

++

---

Prenez un instant pour répondre à ce sondage svp  

Hello,

merci pour la réponse, mais il continue à me dire que le type est incompatible....

J'appelle ma classe après l'avoir instanciée de la manière suivante :

Adv.Init(Form1)

Ensuite la procédure dans ma classe est comme tu me la montré:

Public Sub Init(ByRef tmpForm As Form)

j'ai fais une erreur ????

Je devrais peut être préciser que l'appelle de procédure se fait en dehors de la classe....c'est peut être ça le problème ?

tu peux montrer un peu plus de code stp
déclaration de la classe, déclarations dans la classe
initialisation de la classe
méthode Init complète

nb : tu es bien en VB6, pas en VBA?

---

Prenez un instant pour répondre à ce sondage svp  

alors en fait voila pour mon code :
Tu m'excuseras mais ça fait un moment que j'ai plus taper de vb et je dois dire que j'ai perdu un peu la main :p

dans ma procédure principale :

Set Adv = New TriPub

Adv.Init (Form1)

Dans la classe :

Option Explicit
Private tmpForm2 As Form

Public Property Let Init(ByRef tmpForm As Form)

tmpForm2 = tmpForm

End Property

tu peux essayer d'être plus précis de suite qu'on ne fasse pas 50 échanges pour rien?!!

VB6, CERTAIN ?

Set Adv = New TriPub
Adv.Init (Form1)

Où EST LA DéCLARATION?
CE CODE SE TROUVE Où?

et l'erreur, c'est quoi le message exact, et sur quelle ligne ?

ps : SET tmpForm2 = tmpForm

(donc 4 réponses attendues)


pour reprendre mon exemple de départ, chez moi çà fonctionne :

---

'-----
'Form1
'-----
'
Option Explicit
Private adv As New Class1

Private Sub Form_Load()
    adv.InitFrm Me
    adv.InitFrm Form1
    Unload Me
End Sub

Private Sub Form_Unload(Cancel As Integer)
    Set adv = Nothing
End Sub

---

'------
'Class1
'------
'
Option Explicit

Public Sub InitFrm(ByRef oFrm As Form)
    MsgBox oFrm.Caption
End Sub

---

Prenez un instant pour répondre à ce sondage svp  

ok j'ai vu.....

(...)au travers d'une procédure(...)
Public Property Let Init(ByRef tmpForm As Form)


property çà veut dire procédure?

tel quel, c'est
Set Adv = New TriPub
Adv.Init =Form1

---

Prenez un instant pour répondre à ce sondage svp  

Alors pour être précis :

Option Explicit
Private adv As New TriPub

Private Sub Form_Load()
    adv.InitFrm Me 'LE MESSAGE D'ERREUR EST ICI
End Sub

Pour la classe

Option Explicit

Private tmpForm2 As Form

Public Sub InitFrm(ByRef tmpForm As Form)
    tmpForm2 = tmpForm
End Sub

L'erreur est de type : Erreur d'exécution 13 Type incompatible

Et c'est  du VB6