Visualizza wikitesto di Creare array di oggetti

Verranno mostrati alcuni esempi per la creazione di oggetti mediante l'uso di un [http://it.wikipedia.org/wiki/Array array] o ''vettore''.. |[[#Note|1]]|



==Semplice codice basilare per la creazione di un array del tipo di un oggetto==
In questo caso l'array sarà creato e riempito immediatamente con gli oggetti del tipo stabilito:
 '''Public''' Sub Form_Open()
 
  Dim bt As Button
  Dim arrBt As New Button[]
  Dim j As Byte
 
 
   For j = 0 To 9
     
 <FONT color=gray>' ''La sintassi "New Button(Me)" istruisce l'interprete''
 ' ''che l'oggetto deve essere creato ed assegnato al "Form" ("Parent/Genitore"):''</font>
     With bt = New Button(Me) As "tasto"
       .X = 10
       .Y = 1 + (30 * j)
       .W = 60
       .H = 30
     End With
 
 <FONT color=gray>' ''Si assegna il nuovo "Button creato al vettore di tipo dell'oggetto "Button":''</font>
     arrBt.<FONT color=#B22222>Add(bt)</font>
  
  Next
  
 '''End'''



==Creare un array di dimensioni <SPAN style="text-decoration:underline">definite</span> a priori==
In questo caso viene posto a priori un limite massimo agli elementi dell'array. L'array sarà riempito di volta in volta che si preme un tasto:
 Private Lblarray As New Label[<Font Color=#B22222>10</font>]   <Font Color=gray>' ''è posto il limite massimo a 10 oggetti''</font>
 Private i As Integer
 Private n As Integer
 
 
 '''Public''' Sub Button1_Click()   <Font Color=gray>' ''Crea una Label ogni qualvolta viene premuto Button1''</font>
     
 <Font Color=gray>' ''Impedisce che venga superato il limite stabilito di Label da creare:''</font>
   If i = Lblarray.count Then Return
   
   n += 50
 
   With Lblarray[i] = New Label(Me)
     .Border = Border.Raised   <Font Color=gray>' ''sono definite le caratteristiche della label...''</font>
     .W = 100
     .H = 20
     .X = n
     .Y = n
     .text = "Nuova Label"
   End With
 
 <Font Color=gray>' ''Viene incrementata la variabile relativa all'indice dell'array:''</font>
   Inc i
 
 '''End'''


altro esempio:
 '''Public''' Sub Form_Open()
 
  Dim llbb As New Label[3]
  Dim lb As Label
  Dim b As Byte
  
 <FONT Color=gray>' ''Con un ciclo vengono create 3 Label ed assegnate al vettore di tipo "Label":''</font>
   For b = 0 To 2
     
     With lb = New Label(Me)
       .Border = Border.Raised
       .X = (10 * b) * 4
       .Y = 10
       .W = 20
       .H = 20
     End With
 
 <FONT Color=gray>' ''Assegna la variabile della Label, appena creata, al vettore di tipo "Label":''</font>
     llbb[b] = lb
 
   Next
 
 '''End'''



==Creare un array indefinito di oggetti del medesimo tipo==
Nell'esempio, che segue, ogni volta che si clicca sul ''Button'' viene creato un nuovo ''Button'' sul ''Form'':
 '''Private''' i As Integer
 '''Private''' tasti As New Button[]
  
 
 '''Public''' Sub Button1_Click()
 
  Dim bt As Button
   
   With bt = New Button(Me) As "tasto"
     .X = 10    
     .Y = 40 * i
     .Width = 100    
     .Height = 40    
     .text = "Tasto n. " & i    
   End With     
   
   tasti.<FONT color=#B22222>Add(bt)</font>
 
   Inc i
 
 '''End'''
 
 
 '''Public''' Sub tasto_Click()   <FONT color=gray>' ''Andiamo a verificare il tasto premuto''</font>
 
    Print "E' stato premuto il tasto n. " & tasti.Find(Last)   |[[#Note|2]]|
  
 '''End'''



==Creare un array di oggetti di tipo diverso==
Come sappiamo, un ''array'' è un insieme di elementi del medesimo tipo. Per poter, dunque, creare un array che ''di fatto'' contenga oggetti di tipo diverso, sarà necessario individuare, se possibile, un tipo di variabile che possa a sua volta ''rappresentare'', e dunque contenere tali oggetti diversi. La variabile in questione è quella di tipo: ''Object'', la quale si pone rispetto ai vari oggetti in un rapporto di ''genus'' e ''species''.

Nell'esempio seguente si creerà un array di quattro diversi tipi di oggetti. Si dovrà porre sul ''Form'' quattro ''Button'', a ciascuno dei quali sarà attributo il nome "''crea''" come Gruppo, nonché il nome dell'oggetto da creare come parola della proprietà .''Text''. Quindi il codice sarà il seguente:
 '''Private''' ogg As New Object[]
 '''Private''' i As Integer
 '''Private''' oy As Integer
 
 
 '''Public''' Sub Form_Open()  
    
 '''End'''
    
    
 '''Public''' Sub crea_Click()
 
  Dim bt As Button
  Dim lb As Label
  Dim tb As ToggleButton
  Dim te As TextEdit
  
      
  Select Case Last.Text
    Case "Button"
      bt = New Button(Me) As "button"
      ogg.Add(bt)
    Case "Label"
      lb = New Label(Me) As "label"
      ogg.Add(lb)
    Case "ToggleButton"
      tb = New ToggleButton(Me) As "toggleButton"
      ogg.Add(tb)
    Case "TextEdit"
      te = New TextEdit(Me) As "textEdit"
      ogg.Add(te)
  End Select
      
            
      With ogg[i]
        .X = 10    
        .Y = oy    
        .width = 150    
        .height = 40   
        .Font.Size = 7
        .text = "Oggetto: " & ogg[i].Name
      End With     
          
      oy += 40    
 
  i = i + 1
 
 '''End'''


==Creare un vettore di oggetti, ma assegnando ciascuno di quegli oggetto ad un ''Gruppo'' diverso==
Nei paragrafi precedenti, laddove gli oggetti creati, per essere successivamente assegnati ad un vettore, sono stati inclusi anche in un ''Gruppo' avente la caratteristica di essere l'unico ed il medesimo per tutti gli oggetti creati.
<BR>E' possibile, erò, anche creare un vettore di più oggetti attribuendo ciascuno di essi ad un ''Gruppo'' diverso, il quale, così, verrà ad essere costituito da un solo oggetto.

Per fare ciò si attribuirà come nome del nuovo ''Gruppo'' uno o più caratteri alfanumerici diversi dagli altri, oppure ad un nome base si aggiungerà di volta in volta un carattere, lettera o numero:
 '''Public''' Sub Form_Open()
 
  Dim bt As Button
  Dim ar As New Button[]
  Dim j As Byte
 
 
   For j = 0 To 9
 
     with bt = New Button(Me) As <FONT color=#B22222>"bt" & '''j'''</font>
       .X = 10
       .Y = 1 + (30 * j)
       .W = 60
       .H = 30
     End With
 
     ar.Add(bt)
  
   Next
  
 '''End'''




----
==Note==

[1] Un ''Array'' o ''Vettore'' è un insieme di elementi del medesimo tipo. Pertanto un ''Array'' del tipo Integer sarà un insieme di valori ''interi''.

[2] ''tasti.Find(Last)'' ritorna la posizione nel vettore del ''Button'' creato che in questo caso è stato premuto.