Differenze tra le versioni di "Mostrare una finestra tipo MessageBox mediante codice HTML"

Da Gambas-it.org - Wikipedia.
Riga 11: Riga 11:
 
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.
 
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 usando un Componente basato sulla libreria grafica "QT"====
+
==Il codice Gambas in ambiente grafico==
−
Se è stato attivato un Componente basato sulla libreria grafica "QT", allora il codice Gambas avrà il consueto riferimento all'Oggetto ''WebView'' ed in particolare alla sua proprietà ".HTML", alla quale dovrà essere assegnato il codice, sopra descritto.
+
 
 +
===Usando un Componente basato sulla libreria grafica "QT"===
 +
Se è stato attivato un Componente basato sulla libreria grafica "QT", allora il codice Gambas avrà il consueto riferimento all'Oggetto ''WebView'' ed in particolare alla sua Proprietà ".HTML", alla quale dovrà essere assegnato il codice, sopra descritto.
  
 
Mostriamo un esempio:
 
Mostriamo un esempio:
Riga 18: Riga 20:
 
   
 
   
 
   
 
   
−
  '''Public''' Sub Form_Open()
+
  Public Sub Form_Open()
 
   
 
   
 
   WebView1 = New WebView(Me)
 
   WebView1 = New WebView(Me)
 
   
 
   
−
  '''End'''
+
  End
 +
 
   
 
   
−
  '''Public''' Sub Button1_Click()
+
  Public Sub Button1_Click()
 
   
 
   
 
   WebView1.HTML = "<HTML><BODY>" &
 
   WebView1.HTML = "<HTML><BODY>" &
Riga 32: Riga 35:
 
                   "</body></html>"
 
                   "</body></html>"
 
   
 
   
−
  '''End'''
+
  End
−
Come sopra mostrato, non è necessario che l'oggetto ''WebView'' sia visibile, o sia comunque effettivamente presente sul ''Form'', è sufficiente che sia inizializzato e che sia impostata la sua proprietà ''.HTML'', alla quale assegnare il predetto codice ''html''.
+
Come sopra mostrato, non è necessario che l'oggetto ''WebView'' sia visibile, o sia comunque effettivamente presente sul ''Form'', è sufficiente che sia inizializzato e che sia impostata la sua Proprietà ''.HTML'', alla quale assegnare il predetto codice ''html''.
  
−
====Il codice Gambas usando un Componente basato sulla libreria grafica "GTK"====
+
===Usando un Componente basato sulla libreria grafica "GTK"===
 
Se è stato attivato un Componente basato sulla libreria grafica "GTK", allora nel codice Gambas si utilizzerà il Metodo ".SetHtml()" della Classe ''WebView'', al quale andrà passato, come argomento, il codice html:
 
Se è stato attivato un Componente basato sulla libreria grafica "GTK", allora nel codice Gambas 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
 
   
 
   
 
   
 
   
−
  '''Public''' Sub Form_Open()
+
  Public Sub Form_Open()
 
   
 
   
 
  <FONT Color=gray>' ''Con la risorsa grafica "GTK" è necessario attribuire al "WebView" una sufficiente dimensione:''</font>
 
  <FONT Color=gray>' ''Con la risorsa grafica "GTK" è necessario attribuire al "WebView" una sufficiente dimensione:''</font>
Riga 50: Riga 53:
 
   End With
 
   End With
 
   
 
   
−
  '''End'''
+
  End
 +
 
   
 
   
−
  '''Public''' Sub Button1_Click()
+
  Public Sub Button1_Click()
 
   
 
   
 
   WebView1.SetHtml("<HTML><BODY>" &
 
   WebView1.SetHtml("<HTML><BODY>" &
Riga 60: Riga 64:
 
                   "</body></html>")
 
                   "</body></html>")
 
   
 
   
−
  '''End'''
+
  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'', avendo però l'accortezza di creare un Oggetto ''Window'', che farà solo e semplicemente da necessario ''Contenitore'' dell'Oggetto ''WebView''.
 +
<BR>Bisognerà quindi attivare comunque 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.gui.qt'' e ''gb.gui.qt.webkit'':
 +
WebView1 As WebView
 +
 +
 +
Public Sub Main()
 +
 +
  Dim <FONT Color=darkorange>wn</font> As New Window
 +
  Dim <FONT Color=darkgreen>WebView1</font> As WebView
 +
 +
  <FONT Color=darkgreen>WebView1</font> = New WebView(<FONT Color=darkorange>wn</font>)
 +
 +
  Wait 4
 +
 +
  <FONT Color=darkgreen>WebView1</font>.HTML = "<HTML><BODY>" &
 +
                  "<SCRIPT type=\"text/javascript\">" &
 +
                  "alert(\"Messaggio qualsiasi !\");" &
 +
                  "</script>" &
 +
                  "</body></html>"
 +
 +
End

Versione delle 12:58, 28 lug 2023

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("Finestra aperta !");

 </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

Usando un Componente basato sulla libreria grafica "QT"

Se è stato attivato un Componente basato sulla libreria grafica "QT", allora il codice Gambas avrà il consueto riferimento all'Oggetto WebView ed in particolare alla sua Proprietà ".HTML", alla quale dovrà essere assegnato il codice, sopra descritto.

Mostriamo un esempio: 

Private WebView1 As WebView


Public Sub Form_Open()

 WebView1 = New WebView(Me)

End


Public Sub Button1_Click()

 WebView1.HTML = "<HTML><BODY>" &
                 "<SCRIPT type=\"text/javascript\">" &
                 "alert(\"Finestra aperta !\");" &
                 "</script>" &
                 "</body></html>"

End

Come sopra mostrato, non è necessario che l'oggetto WebView sia visibile, o sia comunque effettivamente presente sul Form, è sufficiente che sia inizializzato e che sia impostata la sua Proprietà .HTML, alla quale assegnare il predetto codice html.

Usando un Componente basato sulla libreria grafica "GTK"

Se è stato attivato un Componente basato sulla libreria grafica "GTK", allora nel codice Gambas 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()

' Con la risorsa grafica "GTK" è necessario attribuire al "WebView" una sufficiente dimensione:
 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(\"Finestra aperta !\");" &
                  "</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, avendo però l'accortezza di creare un Oggetto Window, che farà solo e semplicemente da necessario Contenitore dell'Oggetto WebView.
Bisognerà quindi attivare comunque 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.gui.qt e gb.gui.qt.webkit: 

WebView1 As WebView


Public Sub Main()

 Dim wn As New Window
 Dim WebView1 As WebView

 WebView1 = New WebView(wn)

 Wait 4

 WebView1.HTML = "<HTML><BODY>" &
                 "<SCRIPT type=\"text/javascript\">" &
                 "alert(\"Messaggio qualsiasi !\");" &
                 "</script>" &
                 "</body></html>"

End
Estratto da "https://www.gambas-it.org/wiki/index.php?title=Mostrare_una_finestra_tipo_MessageBox_mediante_codice_HTML&oldid=34598"