WITH...END WITH

Da Gambas-it.org - Wikipedia.

La parola-chiave WITH indica una struttura di controllo che consente di raccogliere più risorse di una Classe, evitando che sia ripetuta per ciascuna di quelle risorse l'identificatore dell'Oggetto della Classe.
Pertanto tale struttura di controllo più risultare utile come scorciatoia per raggruppare in un unico insieme le risorse di una Classe richiamate dall'Oggetto, della quale esso è istanza concreta.
Detta struttura di controllo termina con la parola chiave End... With.
All'interno della struttura "With...End With" le risorse della Classe sono impostate e precedute dal consueto Operatore, avente come simbolo il punto (.).

La sintassi può essere esplicitata come segue:

WITH identificatore_della_struttura_di_controllo   ' E' sempre un Oggetto di una Classe
  .Proprietà = ...
  .Metodo(...)
  .Etc
END WITH

Mostriamo un semplice esempio pratico con una Label, già posta sul Form:

WITH Label1
   .X = 10         ' Equivale a Label1.X = 10
   .Y = 10         ' Equivale a Label1.Y = 10
   .W = 100        ' Equivale a Label1.W = 100
   .H = 100        ' Equivale a Label1.H = 100
   .Adjust()       ' Equivale a Label1.Adjust()
END WITH


Uso nella creazione di un Oggetto di una Classe

La struttura "With...End With" può essere utilizzata proficuamente anche all'atto dell'istanziazione da codice di un Oggetto di una Classe:

WITH identificatore_di_un_Oggetto = New Classe As "Gruppo_degli_Eventi"
  .Proprietà = ...
  .Metodo(...)
  .Etc
END WITH

Mostriamo un esempio pratico, nel quale si imposteranno alcune risorse di una Label, usando la struttura "With...End With":

Public Sub Form_Open()

  Dim Label1 As Label

  With Label1 = New Label(Me) As "Label1"
    .X = 10
    .Y = 10
    .W = 100
    .H = 100
    .Background = Color.Yellow
    .Adjust()
  End With

End


Introduzione di un'istruzione estranea alla Classe

E' possibile inserire nella struttura di controllo anche un'istruzione particolare, estranea alla Classe cui fa riferimento l'Oggetto in questione, per ottenere ad esempio il valore della Proprietà dell'Oggetto o ritornato da un Metodo:

Public Sub Form_Open()

 Dim Label1 As Label

 With Label1
   .X = 10
   .Y = 10
   .W = 100
   .H = 100
   .Background = Color.Yellow
   Print .Background
 End With

End


Uso di una sotto-risorsa come identificatore della struttura di controllo

L'Identificatore della struttura "With...End With", laddove risulti utile, può essere anche una risorsa della Classe, qualora essa abbia delle sotto-risorse.
Ovviamente tale risorsa sarà accompagnata dall'identificatore dell'Oggetto:

With Oggetto.Risorsa
  .sotto-risorsa1 = ...
  .sotto-risorsa2 = ...
  .sotto-risorsa3(...)
End With

Un esempio pratico può darsi richiamando la Proprietà ".Font":

With Label1.Font
  .Size = 12
  Print .TextSize("testo qualsiasi")
End With

laddove la Proprietà ".Size" e il Metodo ".TextSize()" sono, appunto, due sotto-risorse della Proprietà ".Font" (che del resto possiede tali risorse in quanto è essa stessa una Classe) della Classe Label


Accesso ai vettori

La struttura "With...End With" può essere utilizzata anche come scorciatoia per l'accesso all'array:

With array
  .[0] = "Primo inserimento"
  .[1] = "Secondo inserimento"
End With

Così anche con Controlli che hanno degli array nelle loro risorse:

Public Sub Form_Open()

 Dim hGrid As GridView
 Me.Arrangement = Arrange.Vertical
 With hGrid = New GridView(Me) As "GridView1"
   .Expand = True
   .Rows.Count = 10
   .Columns.Count = 4
   .[0, 0].Text = "prima base"
   .[1, 1].Text = "seconda base"
   .[2, 2].Text = "terza base"
   .Columns.Width = -1
 End With  

End