Public Class form1 Call classeC1.procedureP1() End Class Public Class ClassC1 Shared Sub procedureP1() MsgBox("Ici Class1C") End Sub End Class
dim cercle as integer = 0 ' form1_load(...) cercle = 2 call rond msgbox(cercle) ' = 4 end sub ' sub rond() cercle = cercle * 2 end sub
on n'a pas besoin de faire des classes
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questiondim moncercle = cercle
Public Sub New(ByVal r As Double) _Rayon = r End Sub
dim moncercle as new cercle(4)
Public Sub New(Optional ByVal r As Double = 1) _Rayon = r End Sub
dim mycircle as new cercle mycircle.Rayon = 4 Dim sr As Double sr = mycircle.Surface
dim mycircle as new cercle(4) Dim sr As Double sr = mycircle.Surface