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

Da Gambas-it.org - Wikipedia.
Riga 2: Riga 2:
 
  <HTML>
 
  <HTML>
 
  <HEAD>
 
  <HEAD>
−
 
 
   <SCRIPT type="text/javascript">
 
   <SCRIPT type="text/javascript">
 
   
 
   
Riga 8: Riga 7:
 
   
 
   
 
   </script>
 
   </script>
−
 
 
  </head>  
 
  </head>  
 
  </html>
 
  </html>
Riga 14: Riga 12:
  
 
====Il codice Gambas usando un Componente basato sulla libreria grafica "QT"====
 
====Il codice Gambas 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, contenuto nel file html e il cui risultato sarà mostrato nell'Oggetto ''WebView'':
+
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.
−
WebView1.HTML = File.Load("<FONT color=gray>''/percorso/del/file.html''</font>")
+
 
−
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'' con l'indirizzo del file ''.html''. Pertanto nel codice Gambas si potrà anche impostare l'oggetto ''WebView'' anche solo  così:
+
Mostriamo un esempio:
−
  Private vw As WebView
+
  Private WebView1 As WebView
 
   
 
   
 
   
 
   
 
  '''Public''' Sub Form_Open()
 
  '''Public''' Sub Form_Open()
 +
 +
  WebView1 = New WebView(Me)
 
   
 
   
−
  With vw = New WebView(Me)
+
'''End'''
−
    .HTML = File.Load("<FONT Color=gray>''/percorso/del/file.html''</font>")
+
−
  End With
+
'''Public''' Sub Button1_Click()
 +
 +
  WebView1.HTML = "<HTML><BODY>" &
 +
            "&lt;SCRIPT type=\"text/javascript&#092;">" &
 +
            "alert(\"Finestra aperta !\");" &
 +
            "</script>" &
 +
            "</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'' con l'indirizzo del file ''.html''.
  
 
====Il codice Gambas usando un Componente basato sulla libreria grafica "GTK"====
 
====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 contenuto nel file 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 contenuto nel file html:
−
  WebView1.SetHtml(File.Load("<FONT color=gray>''/percorso/del/file.html''</font>"))
+
  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.HTML = "<HTML><BODY>" &
 +
            "&lt;SCRIPT type=\"text/javascript&#092;">" &
 +
            "alert(\"Finestra aperta !\");" &
 +
            "</script>" &
 +
            "</body></html>"
 +
 +
'''End'''

Versione delle 08:17, 31 dic 2021

E' possibile ottenere l'apertura della finestra di un MessageBox, passando all'Oggetto WebView un apposito file html contenente il seguente codice HTML: 

<HTML>
<HEAD>
 <SCRIPT type="text/javascript">

     alert("Finestra aperta !");

 </script>
</head> 
</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"

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 con l'indirizzo del file .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 contenuto nel file 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.HTML = "<HTML><BODY>" &
           "<SCRIPT type=\"text/javascript\">" &
           "alert(\"Finestra aperta !\");" &
           "</script>" &
           "</body></html>"

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