19/05/2023: A causa di un errore sono stati cancellati, insieme ad account creati da bot, alcuni account legittimi. Si prega di leggere qui: https://www.gambas-it.org/smf/index.php?topic=9733.0
Visualizza post
Questa sezione ti permette di visualizzare tutti i post inviati da questo utente. N.B: puoi vedere solo i post relativi alle aree dove hai l'accesso.
... il contenitore degli oggetti lo devi fornire tu stesso (ad es. un Variant[] o un Object[]).
...bensì uno solo ogni qual volta io premo un tasto; ma sempre mediante l'uso di un array che mi consenta di distinguerli per numero ai fini di una successiva gestione.
.....nell'attesa di una risposta, ho dovuto cercare di rispondermi da me 
.
' Gambas class file
s As Integer
i As Integer
Public Sub Button1_Click() ' Crea UNA SOLA Label ogni qualvolta viene premuto Button1
Dim lab As Label
i = i + 1
' crea la Label e aggiunge al suo nome anche il numero contenuto nella variabile “ i “.
lab = New Label(Me) As "lab" & i
With lab
.X = 20
.Y = s
.Width = 50
.Height = 20
.tooltip = "Sono la Label " & i
' imposta il testo all'interno della Label.
.Text = "Label" & i
End With
s = s + 30
Object.Attach(lab, Me, "Evento") ' associa l'oggetto Label alla definizione "Evento"
End
Public Sub Evento_MouseDown() ' cliccando su una Label, fra quelle create, essa viene eliminata.
Dim Obj As Object = Last
Dim a As String
a = Obj.name
Obj.delete ' elimina la Label riportata da Last
' Scrive quale Label è stata eliminata fra quelle precedentemente create.
' La variabile " a " indica il nome riportato da Obj.name.
Print "Eliminata " & a
EndGrazie all'imposizione delle mani...
dim permesso as boolean
dim scrivi as... puoi scrivere
If permesso = TRUE then
scrivi = OPEN "/Wiki" for WRITE
else
print "Vatti a fa' un giretto altrove !"
endif
Vi farò sapere eventualmente quello che succede con l'uso di Embed.
Public Sub Button1_Click()
Dim id As New Integer[]
id = Desktop.FindWindow(FMain.Title) ' .FindWindow : SOLO per Gambas3; mentre per Gambas2 è .Find !!!
If id.Count > 0 Then
label1.text = id[0] ' se si vuole vedere il PID
Endif
Embedder1.Embed(id[0]) ' inserisco la variabile contenente il PID della finestra (opportunamente già minimizzata) di Gedit.
End 
! (cfr. al riguardo: http://www.gambas-it.org/smf/index.php?topic=1822.0). Lì ho domandato perché e soprattutto se anche altri riscontrano comportamenti analoghi, ma nessuno mi ha risposto. Ahimé !
. Fatta, però, la prova di inglobamento invece con la calcolatrice, questa funziona regolarmente.desktop.open(percorso_file) dovrebbe fare al caso tuo
Public Sub Button1_Click()
desktop.open("/percorso_file/nome_file.txt")
Endhttp://www.gambas-it.org/wiki/index.php/Come_creare_un_componente
A as integer
Public Sub Button1_MouseDown()
Do While A > -1
A = A + 1
Print A
Wait 0.001 ' WAIT mi serve, altrimenti non riesco a bloccare il ciclo cliccando.
Loop
A = 0 ' ponendo A = 0 mi consentirà una volta bloccato il loop di riavviarlo, e di scrivere A in console da 1.
End
Public Sub Button1_MouseUp()
A = -1 ' mi consente di bloccare il loop
EndObserver....
Non so come hai fatto a capire che i pulsanti (Button) scatenino eventi solamente dopo che il tasto venga rilasciato.
desktop.findwindow non ti piace?
di questo genere:Shell "wmctrl -p -l"
l' ID, con conversione da esadecimale in decimale, nel comando finale di:Embedder1.embed(numero_PID_decimale)
...e dovrò così trovare la strategia, la soluzione (ma mi pare che wmctrl non offra questa possibilità) pure per fare questo. "Desktop.Find", con il quale - come mostrato in qualche discussione nella parte relativa alla programmazione in Gambas 2 - era possibile trovare appunto l' ID di una finestra aperta sul desktop da utilizzare con ''embed'' per inglobare quella finestra in un form.