Sarà anche interessante, ma ha un solo difetto: è scritta tutta in tedesco... :rolleyes:
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. :P
@ vuott:
Grazie per la tua pssione di ricercatore. :D
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
Public Sub Button1_Click()
EnumerateProperties(Last)
End
:ciao:
Public Sub Button1_Click()
EnumerateProperties(Last)
End
L'ho provato, ma a me non funziona.:
Unknown identifier EnumerateProperties
(http://image.forumfree.it/1/0/0/4/2/7/8/1/1379538734.gif)
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 è:
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:
Public Sub Button1_Click()
con la riga:
Public Sub nomeGruppo_Click()
o, magari, poiché non tutti gli oggetti posseggono l'evento _Click(), usare _MouseDown() . :-\