[Risolto] La proprietà .Tag può essere un array

[vuott]

Non sapevo   che la proprietà .Tag di un oggetto potesse essere anche un array capace di contenere valori di diverso tipo; una sorta di Struttura !

Codice: gambas [Seleziona]

Public Struct provStrutt      ' dichiaro una Struttura
  a As Byte
  b As Integer
  c As String
End Struct

Private pStr As New ProvStrutt     ' creo una variabile del tipo della Struttura


Public Sub Button1_Click()

 Dim prova As String = "prova"
 Dim arrarr As New Byte[]
 Dim j As Byte

 With pStr      ' assegno alcuni valori agli elementi della variabile del tipo di quella Struttura
   .a = 10
   .b = 1000
   .c = "c = " & Str(.a + .b)
 End With

 For j = 0 To 9              ' assegno i valori per ciascun elemento della variabile array
   arrarr.Add(j + 100)
 Next

 With Button1
      .Tag = ["ali", "baba", 324, prova, arrarr, pStr]    ' assegno un array formato da valori e variabili al .Tag del Button, poi li vado a vedere...
    Print .Tag[0]
    Print .Tag[1]
    Print .Tag[2]
    Print .Tag[3]
   For j = 0 To 9
     Print .Tag[4][j]   ' vedo tutti i valori assegnati agli elementi della variabile array
   Next
    Print .Tag[5].a    ' vado a vedere i valori contenuti dagli elementi della variabile di tipo "Struttura"
    Print .Tag[5].b
    Print .Tag[5].c
  End With

End

[md9327]

Se leggevi bene il tipo usato per Tag, Variant, capivi subito che poteva contenere di tutto... 

Variant è molto simile a void, riferito ad una funzione, in c/c++.

Quando non sai cosa può contenere a priori una variabile, la fai di tipo Variant. E' ovvio che poi questo sottintende una verifica prima di usare la variabile.

[vuott]

Se leggevi bene il tipo usato per Tag, Variant, capivi subito che poteva contenere di tutto... 

Conosco la "capacità" di variant, ma nelle mie letture  evidentemente mi era sfuggito  "il tipo usato per Tag". 

[fsurfing]

scusa .... ma non riesci a fare degli esempi meno controrti? ......  

[vuott]

scusa .... ma non riesci a fare degli esempi meno controrti? ......  

...è il tormento interiore dell'artista !  


Ho inserito ora qualche commento, per renderlo più facilmente leggibile.

[md9327]

Lo sapevo... ormai il virus "ceskho" si è diffuso... 

[vuott]

Lo sapevo... ormai il virus "ceskho" si è diffuso...  

Esisterà pure una cura contro 'sto virus !  

[md9327]

Mi sà di no... 

[vuott]

Mi sà di no... 

Farò una fine tristissima ! 
Ecco gli effetti devastanti del virus della ceskhonite acuta.

[Ceskho]

Mi sà di no... 

Farò una fine tristissima ! 
Ecco gli effetti devastanti del virus della ceskhonite acuta.

Fidati che agli stati più avanzati è pure peggio...

[vuott]

Ma... allora tu non sei un Papa Santo... tu sei un untore !  

Sotto potete vedere la prova: Ceskho fotografato mentre "unge" una panchina con liquido contenente il virus.

[md9327]

 

[Ceskho]

Ma... allora tu non sei un Papa Santo... tu sei un untore !  

Sotto potete vedere la prova: Ceskho fotografato mentre "unge" una panchina con liquido contenente il virus della Ceskhonite.

Devo smetterla di postare le mie immagini su facebook.....

[md9327]

In particolare perchè potresti spaventare i bambini...