Differenze tra le versioni di "Immagine scorrevole"

Da Gambas-it.org - Wikipedia.
(Nuova pagina: Per ottenere un'immagine scorrevole sul ''Form'' si potrà utilizzare il codice html. Si attiverà il componente ''gb.qt4webkit'', e conseguentemente si farà uso di una ''WebView'', e...)
 
 
(6 versioni intermedie di uno stesso utente non sono mostrate)
Riga 1: Riga 1:
−
Per ottenere un'immagine scorrevole sul ''Form'' si potrà utilizzare il codice html. Si attiverà il componente ''gb.qt4webkit'', e conseguentemente si farà uso di una ''WebView'', e si adopererà nel codice la sua proprietà ''Url''.
+
Per ottenere un'immagine scorrevole sul ''Form'' si potrà utilizzare il seguente codice con una ''PictureBox'' e la Classe ''Timer'' : <SUP><B>&#091;[[#Note|nota 1]]&#093;</b></sup>
−
  '''Public''' Sub Form_Open()
+
Private PictureBox1 As PictureBox
 +
Private Timer1 As Timer
 +
  Private c As Short
 
   
 
   
−
  WebView1.Url = "filehtml.html"
 
 
   
 
   
−
  '''End'''
+
  Public Sub Form_Open()
−
Con detta proprità richiamerà, appunto, un file ''.html'' (posto magari nella cartella "''Dati''" del progetto), nel quale sarà stato inserito il comando html &lt;MARQUEE&gt;, che permetterà di avere così una immagine scorrevole: |[[#Note|1]]|
+
−
  <HTML>
+
  With Me
−
  <MARQUEE><IMG src=file_immagine.xxx>Eventuale testo
+
    .W = Screen.AvailableWidth
−
  </html>
+
    .H = Screen.AvailableHeight
−
 
+
  End With
 +
  With PictureBox1 = New PictureBox(Me) As "PictureBox1"
 +
    .Image = Image.Load("<Font Color=darkgreen>''/percorso/del/file/immagine''</font>")
 +
    .Resize(.Image.W, .Image.H)
 +
  End With
 +
 +
  c = Me.W
 +
 +
  Wait 1
 +
 +
  With Timer1 = New Timer As "Timer1"
 +
<Font Color=gray>' ''Imposta la velocità di scorrimento della "PictureBox":''</font>"
 +
    .Delay = 10
 +
    .Start
 +
  End With
 +
 +
End
 +
 +
 +
Public Sub Timer1_Timer()
 +
 +
  PictureBox1.X = c
 +
 +
<Font Color=gray>' ''La posizione della "PictureBox" decrementa di volta in volta, dando così l'effetto dello scorrimento verso sinistra:''</font>"
 +
  c -= 1
 +
 +
  <Font Color=gray>' ''Se la "PictureBox" è totalmente al di fuori sulla sinistra del Form, allora ricominciamo subito da capo:''</font>"
 +
  If c = PictureBox1.W * -1 Then c = FMain.W
 +
   
 +
End
  
  
−
----
 
  
−
==Note==
+
=Note=
−
[1] In vero si potrà ottenere anche una [http://www.gambas-it.org/wiki/index.php/Scritta_scorrevole scritta scorrevole].
+
[1] Vedere anche la seguente pagina: [[Oggetti scorrevoli]]

Versione attuale delle 13:54, 3 lug 2024

Per ottenere un'immagine scorrevole sul Form si potrà utilizzare il seguente codice con una PictureBox e la Classe Timer : [nota 1] 

Private PictureBox1 As PictureBox
Private Timer1 As Timer
Private c As Short


Public Sub Form_Open()

 With Me
   .W = Screen.AvailableWidth
   .H = Screen.AvailableHeight
 End With
 With PictureBox1 = New PictureBox(Me) As "PictureBox1"
   .Image = Image.Load("/percorso/del/file/immagine")
   .Resize(.Image.W, .Image.H)
 End With

 c = Me.W

 Wait 1

 With Timer1 = New Timer As "Timer1"
' Imposta la velocità di scorrimento della "PictureBox":"
   .Delay = 10
   .Start
 End With

End


Public Sub Timer1_Timer()

 PictureBox1.X = c

' La posizione della "PictureBox" decrementa di volta in volta, dando così l'effetto dello scorrimento verso sinistra:"
 c -= 1

' Se la "PictureBox" è totalmente al di fuori sulla sinistra del Form, allora ricominciamo subito da capo:"
 If c = PictureBox1.W * -1 Then c = FMain.W

End


Note

[1] Vedere anche la seguente pagina: Oggetti scorrevoli

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