Differenze tra le versioni di "Mostrare una finestra tipo MessageBox mediante codice HTML"
(6 versioni intermedie di uno stesso utente non sono mostrate) | |||
Riga 4: | Riga 4: | ||
<SCRIPT type="text/javascript"> | <SCRIPT type="text/javascript"> | ||
− | alert(" | + | alert("Messaggio qualsiasi !"); |
</script> | </script> | ||
Riga 12: | Riga 12: | ||
==Il codice Gambas in ambiente grafico== | ==Il codice Gambas in ambiente grafico== | ||
− | + | Si utilizzerà il Metodo ".SetHtml()" della Classe ''WebView'', al quale andrà passato, come argomento, il codice html: | |
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
Private WebView1 As WebView | Private WebView1 As WebView | ||
Riga 45: | Riga 18: | ||
Public Sub Form_Open() | Public Sub Form_Open() | ||
− | |||
With WebView1 = New WebView(Me) | With WebView1 = New WebView(Me) | ||
.X = 0 | .X = 0 | ||
Riga 68: | Riga 40: | ||
==Il codice Gambas in un'applicazione ''a riga di comando''== | ==Il codice Gambas in un'applicazione ''a riga di comando''== | ||
− | E' possibile ottenere la visualizzazione di un ''MessageBox'' grazie all'uso dell'Oggetto ''WebView'' e il protocollo ''HTML'', | + | E' possibile ottenere la visualizzazione di un ''MessageBox'' grazie all'uso dell'Oggetto ''WebView'' e il protocollo ''HTML'' anche in un'applicazione ''a riga di comando''. Bisognerà avere, però, l'accortezza di creare un Oggetto ''Window'', che farà solo e semplicemente da necessario ''Contenitore'' dell'Oggetto ''WebView'', attivando un Componente grafico di Gambas e il relativo Componente che consente di usare la Classe ''WebView''. |
− | |||
− | Mostriamo un esempio, nel quale sono attivati i Componenti ''gb. | + | Mostriamo un esempio, nel quale sono attivati i Componenti ''gb.qt5'' e ''gb.qt5.webview'', oppure i Componenti ''gb.qt6'' e ''gb.qt6.webview'': |
Public Sub Main() | Public Sub Main() | ||
Riga 77: | Riga 48: | ||
Dim <FONT Color=darkgreen>WebView1</font> As WebView | Dim <FONT Color=darkgreen>WebView1</font> As WebView | ||
− | <FONT Color=darkgreen>WebView1</font> = New WebView(<FONT Color=darkorange>wn</font>) | + | With <FONT Color=darkgreen>WebView1</font> = New WebView(<FONT Color=darkorange>wn</font>) |
− | + | .SetHtml("<HTML><BODY>" & | |
− | + | "<SCRIPT type=\"text/javascript\">" & | |
+ | "alert(\"Messaggio qualsiasi !\");" & | ||
+ | "</script>" & | ||
+ | "</body></html>") | ||
+ | End With | ||
− | + | Wait 0.1 | |
− | |||
− | |||
− | |||
− | |||
End | End |
Versione attuale delle 15:32, 22 lug 2024
E' possibile ottenere l'apertura della finestra di un MessageBox, passando all'Oggetto WebView un apposito file html contenente il seguente codice HTML:
<HTML> <BODY> <SCRIPT type="text/javascript"> alert("Messaggio qualsiasi !"); </script> </body> </html>
Appena richiamato il file html, si aprirà la finestra di messaggio che arresterà il proseguo dell'eventuale codice Gambas, sino a quando l'utente non avrà cliccato sul tasto "OK" della finestra del MessageBox, creata dal codice html.
Il codice Gambas in ambiente grafico
Si utilizzerà il Metodo ".SetHtml()" della Classe WebView, al quale andrà passato, come argomento, il codice html:
Private WebView1 As WebView Public Sub Form_Open() With WebView1 = New WebView(Me) .X = 0 .Y = 0 .W = Me.W * 0.5 .H = Me.H End With End Public Sub Button1_Click() WebView1.SetHtml("<HTML><BODY>" & "<SCRIPT type=\"text/javascript\">" & "alert(\"Messaggio qualsiasi !\");" & "</script>" & "</body></html>") End
Il codice Gambas in un'applicazione a riga di comando
E' possibile ottenere la visualizzazione di un MessageBox grazie all'uso dell'Oggetto WebView e il protocollo HTML anche in un'applicazione a riga di comando. Bisognerà avere, però, l'accortezza di creare un Oggetto Window, che farà solo e semplicemente da necessario Contenitore dell'Oggetto WebView, attivando un Componente grafico di Gambas e il relativo Componente che consente di usare la Classe WebView.
Mostriamo un esempio, nel quale sono attivati i Componenti gb.qt5 e gb.qt5.webview, oppure i Componenti gb.qt6 e gb.qt6.webview:
Public Sub Main() Dim wn As New Window Dim WebView1 As WebView With WebView1 = New WebView(wn) .SetHtml("<HTML><BODY>" & "<SCRIPT type=\"text/javascript\">" & "alert(\"Messaggio qualsiasi !\");" & "</script>" & "</body></html>") End With Wait 0.1 End