Eccoci quà appena sveglio subito a provare Classi e Moduli, vediamo se mi sto avvicinando a capire, possiamo dire che anche in definitiva la classe restituisce un valore ciò che il modulo non può fare ??
Ho provato a fare un esempio di prova :
Form1 (Main) :
codice:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim calcolaora As New Resto
calcolaora.Pagante = TextBox1.Text
calcolaora.HaPagato = TextBox2.Text
Label4.Text = calcolaora.CalcolaResto
End Sub
Classe (Resto) :
codice:
Public Class Resto
Private DaPagare As Double
Private Pagato As Double
Public Property Pagante() As Double
Get
Return DaPagare
End Get
Set(ByVal value As Double)
DaPagare = value
End Set
End Property
Public Property HaPagato() As Double
Get
Return Pagato
End Get
Set(ByVal value As Double)
Pagato = value
End Set
End Property
Public Function CalcolaResto()
Dim calcolo As Double
calcolo = HaPagato - DaPagare
Return calcolo
End Function
End Class
L'unica cosa è che tutto questo codice poteva essere sostituito con una semplice funzione di questo tipo (cambiando chiaramente la chiamata dal form):
codice:
Public Function CalcolaResto(byval HaPAgato as Double,byVal DaPagare as Double)
Dim calcolo As Double
calcolo = HaPagato - DaPagare
Return calcolo
End Function
e il risultato praticamente era sempre lo stesso però con meno codice.....cosè che mi sfugge come concetto ???? (Per farmi capire puoi usare il mio codice così capisco meglio)