Differenze tra le versioni di "Conoscere le risorse formali contenute da un oggetto della Classe ShapeItem"

Da Gambas-it.org - Wikipedia.
 
(4 versioni intermedie di uno stesso utente non sono mostrate)
Riga 1: Riga 1:
Per conoscere quali siano le risorse (simboli) possedute da un Oggetto appartenente alla Classe nascosta ''_ShapeItem'' del Componente gb.map, lo si può analizzare in quanto "Oggetto".
+
E' possibile conoscere quali siano le risorse (simboli), possedute da un Oggetto appartenente alla Classe ''virtuale'' "_ShapeItem" del Componente ''gb.map'', analizzandolo in quanto "Oggetto".
  
Nell'esempio seguente si verificheranno i simboli appartenenti all'oggetto di tipo ''_ShapeItem'' restituito dal Metodo "''.AddPoint( )''":
+
Nell'esempio seguente si verificheranno i simboli appartenenti all'Oggetto, che fa riferimento alla Classe virtuale ''_ShapeItem'', restituita dal Metodo ".AddPoint()":
  '''Public''' Sub Form_Open()
+
  Public Sub Form_Open()
 
    
 
    
 
   Dim ob As Object
 
   Dim ob As Object
Riga 16: Riga 16:
 
    
 
    
 
  <FONT Color=gray>' ''Stampa in console tutti i simboli posseduti dall'oggetto di tipo "_ShapeItem":''</font>
 
  <FONT Color=gray>' ''Stampa in console tutti i simboli posseduti dall'oggetto di tipo "_ShapeItem":''</font>
   For Each s In it.Symbols
+
   For Each s In cl.Symbols
    Print s
+
    Print s
 
   Next
 
   Next
 
+
  '''End'''
+
  End

Versione attuale delle 05:02, 18 gen 2024

E' possibile conoscere quali siano le risorse (simboli), possedute da un Oggetto appartenente alla Classe virtuale "_ShapeItem" del Componente gb.map, analizzandolo in quanto "Oggetto".

Nell'esempio seguente si verificheranno i simboli appartenenti all'Oggetto, che fa riferimento alla Classe virtuale _ShapeItem, restituita dal Metodo ".AddPoint()":

Public Sub Form_Open()
 
 Dim ob As Object
 Dim cl As Class
 Dim s As String
 
' Ottiene la variabile generica di tipo "Object" dall'oggetto di tipo "_ShapeItem".
' In questo modo l'oggetto della Classe nascosta di tipo "_ShapeItem" può essere puntato da una variabile.
 ob = MapView1.Map.AddShape(Null).AddPoint(Null, Null)
 
' Ottiene la variabile generica di tipo "Class" dalla variabile di tipo "Object":
 cl = Object.Class(ob)
 
' Stampa in console tutti i simboli posseduti dall'oggetto di tipo "_ShapeItem":
 For Each s In cl.Symbols
   Print s
 Next

End