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

Da Gambas-it.org - Wikipedia.
 
(12 versioni intermedie di uno stesso utente non sono mostrate)
Riga 4: Riga 4:
 
   <SCRIPT type="text/javascript">
 
   <SCRIPT type="text/javascript">
 
   
 
   
−
       alert("Finestra aperta !");
+
       alert("Messaggio qualsiasi !");
 
   
 
   
 
   </script>
 
   </script>
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.
+
Si utilizzerà il Metodo ".SetHtml()" della Classe ''WebView'', al quale andrà passato, come argomento, il codice html:
−
 
 
−
Mostriamo un esempio:
 
 
  Private WebView1 As WebView
 
  Private WebView1 As WebView
 
   
 
   
 
   
 
   
−
  '''Public''' Sub Form_Open()
+
  Public Sub Form_Open()
 +
 +
  With WebView1 = New WebView(Me)
 +
    .X = 0
 +
    .Y = 0
 +
    .W = Me.W * 0.5
 +
    .H = Me.H
 +
  End With
 
   
 
   
−
  WebView1 = New WebView(Me)
+
End
 
   
 
   
−
'''End'''
 
 
   
 
   
−
  '''Public''' Sub Button1_Click()
+
  Public Sub Button1_Click()
 
   
 
   
−
   WebView1.HTML = "<HTML><BODY>" &
+
   WebView1.SetHtml("<HTML><BODY>" &
−
            "&lt;SCRIPT type=\"text/javascript&#092;">" &
+
                  "&lt;SCRIPT type=\"text/javascript&#092;">" &
−
            "alert(\"Finestra aperta !\");" &
+
                  "alert(\"Messaggio qualsiasi !\");" &
−
            "</script>" &
+
                  "</script>" &
−
            "</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''.
 
  
−
====Il codice Gambas 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:
+
==Il codice Gambas in un'applicazione ''a riga di comando''==
−
  Private WebView1 As WebView
+
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.gui.qt'' e ''gb.gui.qt.webkit'':
 +
  Public Sub Main()
 
   
 
   
 +
  Dim <FONT Color=darkorange>wn</font> As New Window
 +
  Dim <FONT Color=darkgreen>WebView1</font> As WebView
 
   
 
   
−
'''Public''' Sub Form_Open()
+
   With <FONT Color=darkgreen>WebView1</font> = New WebView(<FONT Color=darkorange>wn</font>)
−
 
+
     .SetHtml("<HTML><BODY>" &
−
   With WebView1 = New WebView(Me)
+
            "<SCRIPT type=\"text/javascript\">" &
−
     .X = 0
+
            "alert(\"Messaggio qualsiasi !\");" &
−
    .Y = 0
+
            "</script>" &
−
    .W = Me.W * 0.5
+
            "</body></html>")
−
    .H = Me.H
 
 
   End With
 
   End With
 
   
 
   
−
'''End'''
+
   Wait 0.1
−
 
−
'''Public''' Sub Button1_Click()
 
−
 
−
   WebView1.HTML = "<HTML><BODY>" &
 
−
            "&lt;SCRIPT type=\"text/javascript&#092;">" &
 
−
            "alert(\"Finestra aperta !\");" &
 
−
            "</script>" &
 
−
            "</body></html>"
 
 
   
 
   
−
  '''End'''
+
  End

Versione attuale delle 20:35, 20 gen 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.gui.qt e gb.gui.qt.webkit: 

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
Estratto da "https://www.gambas-it.org/wiki/index.php?title=Mostrare_una_finestra_tipo_MessageBox_mediante_codice_HTML&oldid=36399"