Visualizza wikitesto di Creare e distruggere un Controllo grafico in una DrawingArea

Essendo la ''DrawingArea'' un ''Container'' (''Contenitore'' di Oggetti grafici), risulta semplice creare al suo interno un ''Controllo'' grafico.
<BR>Per ottenere ciò, il ''Controllo'' grafico dovrà essere creato come Oggetto "Figlio" della ''DrawingArea''. <SUP>&#091;[[#Note|nota 1]]&#093;</sup>

Mostriamo un semplice codice per creare e per distruggere con il mouse una o più ''Label''.
 Private DrawingArea1 As DrawingArea
 Private lb As Label
 Private i As Integer
 
 
 Public Sub _new()
 
  With Me
    .W = Screen.AvailableWidth
    .H = Screen.AvailableHeight
    .Arrangement = Arrange.Fill
  End With
  With DrawingArea1 = New DrawingArea(Me) As "DrawingArea1"
    .Background = Color.White
  End With
 
 End
 
 
 Public Sub DrawingArea1_MouseDown()
 
 <FONT Color=gray>' ''Se non si è cliccato con il tasto '''sinistro''' del mouse, si esce dalla routine:''</font>
  If Not Mouse.Left Then Return
 
  Inc i
  
 <FONT Color=gray>' ''Genera e imposta una "Label", assegnadola come "figlia" alla "DrawingArea":''</font>
  With lb = New Label(DrawingArea1) As "Etichetta"
    .X = Mouse.X
    .Text = " Label " & CStr(i)
    .W = .Font.TextWidth(.Text) * 2
    .H = .Font.TextHeight(.Text) * 2
    .Y = Mouse.Y - .H
    .Alignment = Align.Center
    .Border = Border.Raised
    .Background = Color.SoftOrange
  End With
    
 End 
 
 
 Public Sub Etichetta_MouseDown()
 
 <FONT Color=gray>' ''Se si clicca con il tasto '''destro''' del mouse, la "Label" '''puntata''' viene distrutta:''</font>
  If Mouse.Right Then Last.Delete
 
 End
 
 
 Public Sub Etichetta_MouseUp()
  
  Last.Mouse = Mouse.Default
  
 End



=Note=
[1] Si veda anche questa pagina: [[Spostare con il mouse un Controllo grafico generato in una DrawingArea]].