Splash Screen

[Mefrio]

Ragazzi mi sono visti vari esempi, in particolare Sottofondo presente sul sito, ma non sono riuscito a capire come inserire uno splash screen ad un programma...ho provato a mettere in PUBLIC SUB Form_Open() un comando che mi facesse comparire un altro form e quando avesse finito alcune operazioni chiudeva quel form ma, naturalmente, non ha funzionato perchè, che io sappia, il form main è necessariamente quello che va eseguito per primo! Non vorrei trasportare tutto il form main in un altro secondario ed impostare il main come splash screen...vorrei quindi chiedere come fare a inserire in un programma uno splash screen simile a quello dell'esempio Sottofondo

[Ceskho]

Il fatto che FMain sia il form principale di default non deve essere visto un obbligo. In realtà gambas termina il programma quando il primo form lanciato viene chiuso....ti basta creare un form FSplash e renderlo form di avvio....poi invece di chiuderlo lo nascondi e lo chiudi effettivamente solo quando il tuo software viene chiuso....

[Mefrio]

come faccio a nasconderlo e a renderlo form di avvio?

[Mefrio]

Sono riuscito a farlo da solo però ho un altro problema! Volevo uno splash perchè il programma ci mette un po a partire in quanto ha da fare alcuni controlli! I controlli sono legati a variabili, anch'essi legati ad una combobox del form main e se metto quei comandi nel form splash il programma non si avvia

[Mefrio]

ecco come ho fatto ma, il programma si pianto sullo splash, non va avanti e non svolge le istruzioni date

Codice: gambas [Seleziona]

' Gambas class file

PUBLIC SUB _new()
  ME.Show
  ME.Center
END



PUBLIC SUB Form_Open()
  
  BLOCCO DI ISTRUZIONI DA ESEGUIRE PRIMA DEL FMAIN

  FMain.Show
  FSplash.Visible = FALSE
END

[Ceskho]

ecco come ho fatto ma, il programma si pianto sullo splash, non va avanti e non svolge le istruzioni date

Codice: gambas [Seleziona]

' Gambas class file

PUBLIC SUB _new()
  ME.Show
  ME.Center
END



PUBLIC SUB Form_Open()
  
  BLOCCO DI ISTRUZIONI DA ESEGUIRE PRIMA DEL FMAIN

  FMain.Show
  FSplash.Visible = FALSE
END

Purtroppo con due righe di codice non posso capire il tuo problema....tuttavia la logica è questa

Avvio FMain
All'interno di FMain_open lancio FSplash e nascondo FMain
FMain continua a fare i suoi controlli
Quando ha finito mostro FMain e nascondo FSplash

[Mefrio]

ok grazie mi funziona...per far durare di più lo splash esiste una funzione di "tempo"?

[Ceskho]

ok grazie mi funziona...per far durare di più lo splash esiste una funzione di "tempo"?

Il timer

[Mefrio]

Si sapevo che bisognava usare quello ma non capisco come...

[Ceskho]

Si sapevo che bisognava usare quello ma non capisco come...

Se ad esempio devi aspettare 10 secondi fai così:

Codice: gambas [Seleziona]

i AS Integer = 0

PUBLIC SUB Time1_Timer()

   IF i = 10 THEN
      'FAI CHE DEVI FARE
      Timer1.Stop
   ELSE
      INC i
   END IF

END

Ricordati di far partire il timer con Timer1.Start() e sopratutto che la proprietà Delay dello stesso sia settata a 1000

[Mefrio]

ok grazie