https://www.gambas-it.org/wiki/index.php?action=history&feed=atom&title=Verificare_se_un_Form_%C3%A8_attivo 2026-10-23T09:03:29Z Cronologia della pagina su questo sito MediaWiki 1.39.15 https://www.gambas-it.org/wiki/index.php?title=Verificare_se_un_Form_%C3%A8_attivo&diff=34901&oldid=prev 2023-09-30T21:18:35Z

<p></p> <table style="background-color: #fff; color: #202122;" data-mw="interface"> <col class="diff-marker" /> <col class="diff-content" /> <col class="diff-marker" /> <col class="diff-content" /> <tr class="diff-title" lang="it"> <td colspan="2" style="background-color: #fff; color: #202122; text-align: center;">← Versione meno recente</td> <td colspan="2" style="background-color: #fff; color: #202122; text-align: center;">Versione delle 15:18, 30 set 2023</td> </tr><tr><td colspan="2" class="diff-lineno" id="mw-diff-left-l3">Riga 3:</td> <td colspan="2" class="diff-lineno">Riga 3:</td></tr> <tr><td class="diff-marker"></td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div>==Uso delle risorse della Classe ''Application''==</div></td><td class="diff-marker"></td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div>==Uso delle risorse della Classe ''Application''==</div></td></tr> <tr><td class="diff-marker"></td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div>Si utilizzerà la Proprietà &quot;.ActiveWindow&quot; della Classe ''Application''.</div></td><td class="diff-marker"></td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div>Si utilizzerà la Proprietà &quot;.ActiveWindow&quot; della Classe ''Application''.</div></td></tr> <tr><td class="diff-marker" data-marker="−"></td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #ffe49c; vertical-align: top; white-space: pre-wrap;"><div>&lt;<del style="font-weight: bold; text-decoration: none;">BRSe </del>la verifica deve avvenire all'apertura del ''Form'', sarà necessario imporre ''Wait'' anche di qualche decimo di secondo.</div></td><td class="diff-marker" data-marker="+"></td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div>&lt;<ins style="font-weight: bold; text-decoration: none;">BR&gt;Se </ins>la verifica deve avvenire all'apertura del ''Form'', sarà necessario imporre ''Wait'' anche di qualche decimo di secondo.</div></td></tr> <tr><td class="diff-marker"></td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><br/></td><td class="diff-marker"></td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><br/></td></tr> <tr><td class="diff-marker"></td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div>Mostriamo un esempio:</div></td><td class="diff-marker"></td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div>Mostriamo un esempio:</div></td></tr> </table>

Vuott https://www.gambas-it.org/wiki/index.php?title=Verificare_se_un_Form_%C3%A8_attivo&diff=34900&oldid=prev 2023-09-30T21:15:20Z

<p>Creata pagina con &quot;Per verificare se un Form è attivo, si potranno utilizzare alcune modalità. ==Uso delle risorse della Classe &#039;&#039;Application&#039;&#039;== Si utilizzerà la Proprietà &quot;.ActiveWindow&quot;...&quot;</p> <p><b>Nuova pagina</b></p><div>Per verificare se un Form è attivo, si potranno utilizzare alcune modalità.<br /> <br /> ==Uso delle risorse della Classe ''Application''==<br /> Si utilizzerà la Proprietà &quot;.ActiveWindow&quot; della Classe ''Application''.<br /> &lt;BRSe la verifica deve avvenire all'apertura del ''Form'', sarà necessario imporre ''Wait'' anche di qualche decimo di secondo.<br /> <br /> Mostriamo un esempio:<br /> Public Sub Form_Open()<br /> <br /> Me.Show<br /> <br /> Wait 0.5<br /> <br /> Print Application.ActiveWindow.Name<br /> <br /> End<br /> oppure:<br /> Public Sub Form_Open()<br /> <br /> Me.Show<br /> <br /> Do<br /> Wait 0.5<br /> Loop Until Application.ActiveWindow.Name = &quot;FMain&quot;<br /> <br /> Print Application.ActiveWindow.Name <br /> <br /> End<br /> <br /> <br /> ==Uso della Classe ''DesktopWindow''==<br /> Per la verifica di un ''Form'' o comunque di una qualunque altra finestra si può anche pensare ad una soluzione che ne accerti l'esistenza partendo dal suo nome ''visibile'' mediante la Classe ''DesktopWindow''.<br /> &lt;BR&gt;E' necessario attivare i Componenti ''gb.desktop'' e ''gb.desktop.x11'' .<br /> &lt;BR&gt;Poniamo il caso che il ''Form'' da verificare si chiami &quot;Finestra&quot;:<br /> Public Sub Button1_Click()<br /> <br /> Dim dw As DesktopWindow<br /> <br /> &lt;FONT Color=gray&gt;' ''Di ogni finestra aperta sul desktop...''&lt;/font&gt;<br /> For Each dw In Desktop.Windows<br /> &lt;FONT Color=gray&gt;' ''...cerca il nome. Se il nome &quot;visibile&quot; è uguale al nome del &quot;Form&quot; che cerchiamo, allora lo rileva:''&lt;/font&gt;<br /> If dw.VisibleName = &quot;Finestra&quot; then Print &quot;Il Form è attivo !&quot;<br /> Next<br /> <br /> End</div>

Vuott