Newsgroup: it.comp.lang.visual-basic
Titolo: Screen Saver...un pò lungo.

Prima di tutto un saluto a tutti.
[Uso VB 6.0]
Il mio quesito è questo:
Sto cercando di realizzare un piccolo screen saver, ho creato due Form
(fmrScreen01, frmScreen02), ho inserito in ognuno:
- un controllo Image con due immagini diverse (imgImmagine01, imgImmagine02)
- un controllo Timer con intervallo 2000ms (tmrTimer01, tmrTimer02)
Nella procedura d'evento Load del frmScreen01 ho impostato:
tmrTimer01.enable = true
nella pocedura d'evento tmrTimer01 ho impostato:
frmScreen02.show
Nella procedura d'evento Load del frmScreen02 ho impostato:
tmrTimer02.enable = true
nella pocedura d'evento tmrTimer01 ho impostato:
frmScreen02.hide
Risultato: vedo la prima immagine, dopo 2s vedo la seconda immagine, dopo 2s
rivedo la prima immagine e poi basta.
Come posso fare per proseguire il ciclo all'infinito?
Ps: ho impostato in entrambi i form la procedura Mouse_Move con End
Grazie in anticipo.

 Grazie in anticipo.
prego, ciao.
---------------------------------------------------------
             ASSA
http://assatarram.yohoo.it
Bookmark download:
http://www.redangel.it/beta_zone/Click_p.asp?ID_P=19
Napster: Assatarram3
---------------------------------------------------------

 Non so se come dio io funge, non ho provato.
Purtroppo no...

 ha scritto nel messaggio
news:gccP6.369$zb1....@news.infostrada.it...

Prova a sostituire frmScreen02.hide con:
Unload frmScreen02
ciao
--


 ciao
Niente da fare purtroppo.
Ps. Complimenti per il sito:-)

 ha
scritto:
scusami ma non e' piu' semplice creare un solo form
con due (o piu') controlli immagine e un timer
ad ogni evento timer nascondi una immagine e visualizzi l'altra
Ciao
Luca


 Luca
Si Luca ho provato anche cosi, ma con un unico form e due controlli Image,
succede che si vede la prima immagine, la seconda e poi stop.
Ho impostato la proprietą Visible delle immagini.
E' come se il Timer conta solo la prima volta:-((

E' come se il Timer conta solo la prima volta:-((
Non ho provato, ma potrebbe funzionare: coun un form solo,
metti tutto il codice di disegno nell' evento Paint di tale form in un ciclo do...loop,
contenente (fra l' altro) anche un doevents per intercettare e tenere conto
dell'input dell' utente: se lo fai bene puoi anche animare le immagini.
ciao, hal
(che una volta aveva scritto un giochino nell' evento Paint)

 (che una volta aveva scritto un giochino nell' evento Paint)
Grazie per il consiglio Hal, ma ancora non studio ne la funzione doevents e
nemmeno la procedura d'evento Form_Paint, penso che per ora non sarò capace
di fare ciò che mi hai spiegato.
Ciao, Piero.

 ha
scritto:
sbagli qualcosa nel timer
inserisci qualcosa del genere:
Private Sub Timer1_Timer()
    If Image1.Visible = True Then
        Image1.Visible = False
        Image2.Visible = True
    Else
        Image1.Visible = True
        Image2.Visible = False
    End If
End Sub
ovviamente solo per cominciare
poi per migliorare la cosa puoi inserire un array di immagini
e cercare di usare piu' immagini
e cosi via ...
Ciao
Luca


 End Sub
cosi' va ?
Private Sub Timer1_Timer()
    Image1.Visible = not Image2.Visible
End Sub
ciao, a.


Appena provo, vi faccio sapere.
Grazie a tutti.
A buon rendere.
Ciao Piero.

ciao, a.
Ciao
Luca

 ha scritto

giustissimo -- me ne ero accorto subito -- subito dopo ^invio cioe' :))

Di seguito ho scritto il codice funzionante per il mio piccolo screen saver.
Grazie a tutti quelli che mi hanno aiutato.
Una volta creato .exe, basta rinominarlo in .scr, cliccarci con il tasto dx
del mouse e selezionare "Installa".
Private Sub Form_Load()
tmrTimer01.Enabled = True
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single,
Y As Single)
End
End Sub
Private Sub tmrTimer01_Timer()
If Image1.Visible = True Then
Image1.Visible = False
Image2.Visible = True
Else
Image1.Visible = True
Image2.Visible = False
End If
End Sub
Ciao da Piero.

 selezionare "Installa".
questo post fa veramente piacere :)
grazie, hal

Volevo avvisare tutti coloro fossero intenzionati a farsi un piccolo screen
saver con il codice che ho scritto in un post precedente.
Purtroppo mi sono accorto di un bug per cui il programmino si ricarica ogni
volta fino ad esaurire la memoria del PC.
Codice da migliorare.
Ciao8-|