Moduli di classe

martedì 06 giugno 2006 - 14.55

FELIX NET Profilo | Newbie

Ciao a tutti....

Sto lavorando sui moduli di classe...Sto quindi realizzando qualche prova.

Vorrei un parere riguardo al codice di questa classe:


Nel modulo di classe:

Private mvarcognome As String 'Copia locale.
Private mvartel As String 'Copia locale.

Public Function ftel() As String
ftel = UCase$(Trim$(mvartel))
End Function

Public Function fcognome() As String
fcognome = UCase$(Trim$(mvarcognome))
End Function

Public Property Let tel(ByVal vData As String)
If vData = "" Then
MsgBox ("error")
Else
mvartel = vData
End If
End Property

Public Property Let cognome(ByVal vData As String)
If vData = "" Then
MsgBox ("error")
Else
mvarcognome = vData
End If
End Property

Nel codice del form:

Private Sub C1_Click()
Dim anag As New anagrafica
anag.cognome = T2.Text
T2.Text = anag.fcognome

anag.tel = T3.Text
T3.Text = anag.ftel
End Sub

Il codice formatta le caselle di testo di un form:
Nessun errore e funziona.....ma vorrei sapere se concettualmente e' giusto o se migliorabile

grazie

Brainkiller Profilo | Guru

>Il codice formatta le caselle di testo di un form:
>Nessun errore e funziona.....ma vorrei sapere se concettualmente
>e' giusto o se migliorabile

Ciao,
si è corretto, certo è un inizio, bisogna vedere poi cosa fai delle tue strutture dati e oggetti. Un consiglio mio personale è di abbandonare VB6.0 se intendi programmare per classi e oggetti (OOP) perchè in VB6.0 questo concetto è solo simulato e non è un vero linguaggio orientati agli oggetti come può essere VB.NET o C#.
Ciao

David De Giacomi
Microsoft MVP
http://blogs.dotnethell.it/david/
Partecipa anche tu! Registrati!
Hai bisogno di aiuto ?
Perchè non ti registri subito?

Dopo esserti registrato potrai chiedere
aiuto sul nostro Forum oppure aiutare gli altri

Consulta le Stanze disponibili.

Registrati ora !
Copyright © dotNetHell.it 2002-2024
Running on Windows Server 2008 R2 Standard, SQL Server 2012 & ASP.NET 3.5