[VB] Messaggio di attesa

[simofe78]

Ciao a tutti,

come faccio a far apparire in VB una finestra di attesa intanto che il programma elabora dei dati?

Il mio programma all'avvio compatta il Db access e essendo in rete ci mette abbastanza tempo.. io vorrei dare all'utente un msg del tipo "..attendere compattazione DB in corso..." in modo che l'utente nn pensi che il programma nn funzioni e provi a rilanciarlo

Grazie
Simo

[Toeke]

http://forum.html.it/forum/showthrea...hreadid=214612

Puoi fare in modo che prma dell'esecuzione del processo si apra una form che ti dice che sta eseguendo il programma e una volta terminato tale form scompare.

[simofe78]

Scusa la mia ignoranza ma..io vorrei che la procedura venga lanciata automaticamente all'avvio, quindi se la metto nella Form_Load prima di farmi vedere la finestra esegue tutto....Dove devo mettere il richiamo alla funzione?

[xegallo]

Originariamente inviato da simofe78
Scusa la mia ignoranza ma..io vorrei che la procedura venga lanciata automaticamente all'avvio, quindi se la metto nella Form_Load prima di farmi vedere la finestra esegue tutto....Dove devo mettere il richiamo alla funzione?

all'inizio della form load
esempio

private sub form_load()
   frmAspetta.show
   call CompattaDB()
   unload frmAspetta
end sub

[simofe78]

Ok grazie ma adesso ho il problema che non si vede quello che ho scritto nella form, la form viene visualizzata ma appare tutta nera e nn si vede la label che c'è dentro.

[xegallo]

Originariamente inviato da simofe78
Ok grazie ma adesso ho il problema che non si vede quello che ho scritto nella form, la form viene visualizzata ma appare tutta nera e nn si vede la label che c'è dentro.

prova a refreshare(che bel termine :gren: )

[simofe78]

Thanxz Adesso funziona.....Ciao

[sebamix]

Originariamente inviato da simofe78
...
Il mio programma all'avvio compatta il Db access e essendo in rete ci mette abbastanza tempo..
...

Guarda che potrebbe essere pericoloso compattare il database ad ogni avvio oltre che lento. Solitamente è consigliabile includere una voce di menu "Compatta archivio ..." e non farlo sempre.

[Toeke]

Originariamente inviato da sebamix
Guarda che potrebbe essere pericoloso compattare il database ad ogni avvio oltre che lento. Solitamente è consigliabile includere una voce di menu "Compatta archivio ..." e non farlo sempre.

Se tale procedura la esegui tramite un oggetto (come un bottone ad esempio) potresti cambiare la caption del bottone.

Private Sub CompattaBD_Click()
    CompattaBD.Caption="Processing ..."
    Call compattaBD()
    CompattaBD.Caption="Completed"
End Sub

O qualcosa di simile