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: | ||
− | + | 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' | + | 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 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 | + | For Each s In cl.Symbols |
− | + | Print s | |
Next | Next | ||
− | + | ||
− | + | 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