Leggere da codice le proprietà di un oggetto

[vuott]

Vi segnalo questa interessante discussione apparsa nel forum della comunità tedesca dei programmatori Gambas:

http://www.gambas-club.de/viewtopic.php?f=3&t=4598

[Top Fuel]

Sarà anche interessante, ma ha un solo difetto: è scritta tutta in tedesco...

[Picavbg]

Sarà anche interessante, ma ha un solo difetto: è scritta tutta in tedesco...

Il tedesco è un problema? Per me no. Il mio strumento di browser ,Google Chrome, attivo, conosce tutte le lingue e, quando accede alle finestre scritte in lingua straniera, me le traduce automaticamente e posso leggerne il contenuto nella mia lingua. 

@ vuott:
Grazie per la tua pssione di ricercatore. 
L'argomento è sicuramente interessante e dimostra come il mondo Gambas sia più un universo di cui i piccoli utenti come me conoscono solo una piccolissima parte. Da istruzioni come

Codice: [Seleziona]

Public Sub Button1_Click()
  EnumerateProperties(Last)
End

si possono scoprire nuovi scenari nell'utilizzo di Gambas..
 

[Picavbg]

Codice: [Seleziona]

Public Sub Button1_Click()
  EnumerateProperties(Last)
End

L'ho provato, ma a me non funziona.:

Unknown identifier EnumerateProperties

[vuott]

Codice: [Seleziona]

Public Sub Button1_Click()
  EnumerateProperties(Last)
End

L'ho provato, ma a me non funziona.

...perché è la chiamata della funzione descritta prima nell'intervento di quell'iscritto al forum tedesco.

Il codice completo da provare è:

Codice: gambas [Seleziona]

Public Sub Button1_Click()

   EnumerateProperties(Last)

End


Private Sub EnumerateProperties(hObject As Object)

' Ein Objekt holen, welches die Klasse von hObject beschreibt
  Dim hClass As Class = Object.Class(hObject)
  Dim sSymbol As String

' Ueber alle nach auszen sichtbaren Symbole der Klasse (Eigenschaften,
' Methoden, Konstanten, ...) iterieren
    For Each sSymbol In hClass.Symbols

' Nur Eigenschaften auflisten
      If hClass[sSymbol].Kind = Class.Property Then

' Erst der Name des Symbols (der Eigenschaft), dann dessen Wert
       Print sSymbol, Object.GetProperty(hObject, sSymbol)

      Endif
 
    Next

End

Per effettuare un test più ampio ed esaustivo, si potrebbero piazzare sul Form due o più oggetti appartenenti ad un medesimo Gruppo, e sostituire, quindi, la riga:

Codice: gambas [Seleziona]

  Public Sub Button1_Click()

con la riga:

Codice: gambas [Seleziona]

  Public Sub nomeGruppo_Click()

o, magari, poiché non tutti gli oggetti posseggono l'evento _Click(), usare _MouseDown() . 

[Top Fuel]

Il tedesco è un problema? Per me no. Il mio strumento di browser ,Google Chrome, attivo, conosce tutte le lingue e, quando accede alle finestre scritte in lingua straniera, me le traduce automaticamente e posso leggerne il contenuto nella mia lingua. 

Esiste qualcosa per Firefox, che tu sappia?

[Picavbg]

Ormai ho abbandonato da più di un anno FireFox, perciò non ti so dire se ora funziona. Per la mia esperienza posso dirti che quando ho provato io  riportava un'indicazione su come ottenere la traduzione in via dinamica, ma io non sono riuscito a farla funzionare.Con google Chrome invece è stato tutto assolutamente immediato e trasparente.