Dichiarare una classe

In Visual Basic è possibile dichiarareuna classe che specifichi gli elementi di dati ed i relativimetodi applicabili. I progetti Visual Basic memorizzano leclassi in file separati con l'estensione .cls. Peraggiungere un file classe occorre selezionare il comando Inserisci Modulo Classe dal menu Progetto.

Gli elementi dati che vengono specificati inuna classe possono essere tipi di dati predefiniti,personalizzati, enumerati personali o altre classi.

La sintassi generale è:

[Private ¦ Public] elementoDati As Tipo

E' data anche la possibilità didichiarare funzioni e procedure in modo che queste sicomportino come metodi che siano in grado di manipolareelementi dati interni alla classe. Una routine puòessere dichiarata Public o Private. Nel primo caso sarannoaccessibili ai componenti di altre classi o di altri moduli,mentre nel secondo caso potranno operare solo con altreroutine della stessa classe.

Esempio di una classe che dichiara Point cheprevede gli elementi dati mintXCoord di tipo Private Inteferche memorizza il valore della coordinata x e mintYCoord perla coordinata y:

Option ExplicitPrivate mintXCoord As IntegerPrivate mintYCoord As Integer Public Sub MoveTo (X As Integer, Y As Integer)MintXCoord = XMintYCoord = YEnd Sub Public Sub MoveBy (XDist As Integer, YDist As Integer)MintXCoord = mintXCoord + XdistMintYCoord = mintYCoord + YdistEnd Sub Function GetX( ) As IntegerGetX = mintXCoordEnd Function Function GetY( ) As IntegerGetY = mintYCoordEnd Function Public SubMove ToCoord (Coord As Cpoint)MintXCoord = Coord.GetXMintYCoord = Coord.GetYEnd Sub

La classe dichiara anche la routine MoveTo( ),MoveBy( ), GetX( ), GetY( ) e MoveToCoord( ). La proceduraMoveTo( ) copia i valori degli argomenti indicati neglielementi dati mintXCoord e mintYCoord. La procedura MoveBy( )aggiunge i valori degli argomenti indicati agli elementimintXCoord e MintYCoord. Le funzioni GetX( ) e GetY( )restituiscono i valori degli elementi dati mintXCoord emintYCoord. La procedura MoveToCoord( ) copia le coordinatedell'argomento Coord di tipo Cpoint (istanza della classeCpoint) negli elementi dati mintXCoord e mintYCoord.