Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionPublic Class Calcul Public Function somme(ByVal a As Integer, ByVal b As Integer) As Integer Return a + b End Function End Class
dim c as new calcul dim somme as integer somme = c.somme(1,2)
Option Explicit Private Sub Command1_Click() toto Me End Sub
Option Explicit Sub toto(f As Form) f.Controls("Label1") = "toto" End Sub
Private Sub CmdOk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdOk.Click Dim Fonction As New f_page() Fonction.ref_page(page) End Sub
Public Class f_page Public Function ref_page(ByRef nom_page As WebForm1) nom_page.ResFct.Text = "Toto" End Function End Class