Questo sito utilizza cookies, anche di terze parti, per mostrare pubblicità e servizi in linea con il tuo account. Leggi l'informativa sui cookies.
Username: Password: oppure
Mini Cad - Figura.vb

Figura.vb

Caricato da: Poggi Marco
Scarica il programma completo

  1. Imports System
  2. Imports System.Drawing
  3.  
  4. Public Class Figura
  5.     Protected foglio As Disegno
  6.     Private coordinate As tratto
  7.     Private vecchieCoordinate As Tratto
  8.     Private PennaLinea As Pen
  9.     Private stato As Boolean
  10.  
  11.     Public Sub New(ByVal posto As Disegno)
  12.         foglio = posto
  13.         stato = False
  14.         PennaLinea = New Pen(Color.Red, 1)
  15.         PennaLinea.EndCap = Drawing2D.LineCap.Round
  16.         PennaLinea.StartCap = Drawing2D.LineCap.Round
  17.     End Sub
  18.  
  19.     Public Function getCoordinate() As Tratto
  20.         Return New Tratto(coordinate)
  21.     End Function
  22.  
  23.     Public Overridable Sub setCoordinate(ByVal nuove As Tratto)
  24.         vecchieCoordinate = New Tratto(coordinate)
  25.         coordinate = New Tratto(nuove)
  26.     End Sub
  27.  
  28.     Public Overridable Function GetLeVecchieCoordinate() As Tratto
  29.         Return New Tratto(vecchieCoordinate)
  30.     End Function
  31.  
  32.     Public Overridable Sub disegna()
  33.         ' non fa nulla
  34.     End Sub
  35.  
  36.     Public Overridable Sub disegna(ByVal eliminaPrecedente As Boolean)
  37.         ' non fa nulla
  38.     End Sub
  39.  
  40.     Public Overridable Sub cancella()
  41.         ' Non fa nulla
  42.     End Sub
  43.  
  44.     Public Overridable Property attivo() As Boolean
  45.         Get
  46.             Return stato
  47.         End Get
  48.         Set(ByVal value As Boolean)
  49.             stato = value
  50.         End Set
  51.     End Property
  52.  
  53.  
  54.     Public Overridable Property pennino() As Pen
  55.         Get
  56.             Return PennaLinea
  57.         End Get
  58.         Set(ByVal value As Pen)
  59.             PennaLinea.Width = value.Width
  60.             PennaLinea.Color = value.Color
  61.             foglio.pennino = value
  62.         End Set
  63.     End Property
  64.  
  65.     Public Overridable Function area() As Double
  66.         Return 0.0
  67.     End Function
  68.  
  69.     Public Overridable Function perimetro() As Double
  70.         Return 0.0
  71.     End Function
  72.  
  73.     Public Overrides Function ToString() As String
  74.         Return "Classe base"
  75.     End Function
  76.  
  77. End Class