OVH Cloud OVH Cloud

classe

4 réponses
Avatar
mimi
bonjour,
j' ai une feuille "test", et une classe "cla_test". J'ai=20
une fonction dans la classe : "retourne_pos". A partir de=20
ma feuille "test", j'ai une proc=E9dure "mousedown" qui fait=20
appel =E0 la fonction de ma classe. Le probl=E8me, c'est que=20
je n'arrive pas =E0 faire appel =E0 cette fonction. Comment=20
faut-il faire?
merci
mimi

4 réponses

Avatar
ng
Salut,
Il faut déclarer une instance de ta classe dans les déclarations de ta
feuille :

Dim cMaClasse as cla_test

Ensuite dans le form_load, par exemple, il faut créer cette instance :

Set cMaClasse = New cla_test

Dans form_unload, on détruit :

Set cMaClasse = Nothing

Et surtout dans ton MouseDown, appel ta proc ainsi :

Call cMaClasse.retourne_pos

En espèrant avoir répondu à la question,
Nicolas.
http://www.ngsoft-fr.com
"mimi" a écrit dans le message de
news: 0b0301c3da95$9cf39fe0$
bonjour,
j' ai une feuille "test", et une classe "cla_test". J'ai
une fonction dans la classe : "retourne_pos". A partir de
ma feuille "test", j'ai une procédure "mousedown" qui fait
appel à la fonction de ma classe. Le problème, c'est que
je n'arrive pas à faire appel à cette fonction. Comment
faut-il faire?
merci
mimi
Avatar
Sébastien Côté
Voici comment appeler une fonction d'une classe a partir d'une form.

Private Sub test_mousedown(Button As Integer, Shift As Integer, X As Single,
Y As Single)
Dim Classe as new cla_test
msgbox Classe.retourne_Pos
End Sub

Bonne chance!

Sebastien

"mimi" a écrit dans le message de
news:0b0301c3da95$9cf39fe0$
bonjour,
j' ai une feuille "test", et une classe "cla_test". J'ai
une fonction dans la classe : "retourne_pos". A partir de
ma feuille "test", j'ai une procédure "mousedown" qui fait
appel à la fonction de ma classe. Le problème, c'est que
je n'arrive pas à faire appel à cette fonction. Comment
faut-il faire?
merci
mimi
Avatar
Zoury
Salut! :O)

juste une petite note concernant cette déclaration
Dim Classe as new cla_test



Dim As New
http://groups.google.com/groups?threadmæks%24bV4BHA.2816%40tkmsftngp05

--
Cordialement
Yanick Lefebvre - MVP pour Visual Basic
http://faq.vb.free.fr/?rubrique=0 - http://www.mvps.org/vbnet/
http://www.mentalis.org/agnet/apiguide.shtml - http://www.mztools.com/

Merci de poster les réponses au groupe afin d'en faire profiter à tous
Avatar
mimi
>-----Message d'origine-----
Salut! :O)

juste une petite note concernant cette déclaration
Dim Classe as new cla_test



Dim As New
http://groups.google.com/groups?threadmæks%


24bV4BHA.2816%40tkmsftngp05

--
Cordialement
Yanick Lefebvre - MVP pour Visual Basic
http://faq.vb.free.fr/?rubrique=0 -


http://www.mvps.org/vbnet/
http://www.mentalis.org/agnet/apiguide.shtml -


http://www.mztools.com/

Merci de poster les réponses au groupe afin d'en faire


profiter à tous


.
merci à tous pour vos réponses.