Appel de fonction

Fermé
anima - 13 nov. 2015 à 16:07
Kalissi Messages postés 218 Date d'inscription jeudi 2 mai 2013 Statut Membre Dernière intervention 15 juillet 2019 - 21 nov. 2015 à 23:13
Bonjour,

en vb j'essaie d'appeler une fonction, qui est dans la classe d'un model.
Mais je n'y arrive pas, lorsque je suis dans mon vbhtml, je peux appeler sans soucis mon model, mais lorsque j'essaie monmodel.mafonction, ma fonction "n'est pas défini".
A voir également:

4 réponses

Whismeril Messages postés 19021 Date d'inscription mardi 11 mars 2003 Statut Contributeur Dernière intervention 16 avril 2024 928
14 nov. 2015 à 18:20
Bonjour

vu le peu d'éléments que tu donnes, pas facile de répondre.

Voici un petit tuto sur le passage de données d'une form à une autre, en .Net.
A savoir qu'entre classe, c'est pareil.

https://codes-sources.commentcamarche.net/faq/11107-interactions-entre-form-en-net-c-et-vb-net
0
Salut, désolé pour le temps de réponse, et merci, je vais voir ça.
0
Je tourne un peu en rond, je n'arrive vraiment pas à faire ce que je veux...
En gros dans ma vue j'ai un bouton, et lorsque je clique dessus, j'aimerais qu'il appel la fonction de mon model.
Pour faire des test j'ai fais comme dans l'exemple du lien que tu m'a donné :

Private Shared Sub test(ByVal sender As Object, ByVal e As EventArgs)
msgbox("test")
End Sub

Le soucis est que dans ma vue, test n'existe pas...

Avant d'essayer ça, j'avais ma fonction :

public shared function test()
msgbox("test")
end function

et la j'essaie de récupérer la fonction avec
dim a as new model.test

mais j'ai une erreur comme quoi model.test n'est pas défini.

J'ai donc essayer de le récupérer dans un foreach

For each test in model.test
@test
Next

mais cette fois j'ai cette erreur : "La référence d'objet n'est pas définie à une instance d'un objet."
0
Kalissi Messages postés 218 Date d'inscription jeudi 2 mai 2013 Statut Membre Dernière intervention 15 juillet 2019 20
21 nov. 2015 à 23:13
Bonjour,

Si tu as une fonction dans un modèle,
il te faut d'abord instancié ton modèle.

' Attributs
Private zInstanceMod As MonTypeModele ' La classe de ton modèle

' Propriété

Private Readonly Property InstanceMod As MonTypeModele
Get
.......If (Me.zInstanceMod Is Nothing) Then
...........Me.zInstanceMod = New MonTypeModele
.......End If
.......Return Me.zInstanceMod
End Get
End Property


' Méthode

Private Sub AtteindreFonction()

Dim MaVariable as Int64 = InstanceMod.MaFonction()

End Sub

Et voilà ...

K
0