Testato sotto gb.qt. funziona. Il combo resta aperto e premendo Ctrl + s fai la cattura.
PUBLIC SUB ComboBox1_KeyPress()
DIM picSchermata AS NEW Picture
IF key.Code = Key["s"] AND IF Key.Control THEN picSchermata = Desktop.Grab()
END
Ho fatto entrambe le prove che mi hai suggerito e:
1) quella citata sopra non ha funzionato; propabilmente non ha funzionato la chiamata
Desktop.Grab(), che fra l'altro non conosco;
2) ho poi provato il popup da codice col WAIT dopo, ma anche così dopo avere cliccato sul pulsante lanciatore il popup é scomparso;
3) ho risolto settando un ritardo di alcuni secondi nella funzione "Cattura schermata". Così facendo, dopo aver cliccato sul pulsante "Cattura schermata", ho di nuovo cliccato sulla ComboBox da fotografare ed il popup é ricomparso in tempo per essere compreso nell'immagine catturata.
Così ti saresti liberato di me, ma prima potresti aggiungere come potrei conoscere la funzione Desktop.Grab e come potrei capire il mancato funzionamento.
Ciao.