French ProgressDialogShow

[JJM]

Bonjour,

J'ai un problème avec ProgressDialogShow:

ProgressDialogShow("Patience...")
Dim Ti As Long
Ti = DateTime.Now +100
Do While DateTime.Now < Ti
DoEvents
Loop
LoadTableFromCSV(fd.FilePath ,fd.ChosenName ,True)
ProgressDialogHide

Avec cette programmation j'obtiens une fenêtre avec un cercle sans animation pendant tout le temps du chargement de ma BDD (30secondes environ).
Comment dois-je programmer pour obtenir une animation de ce cercle?
Merci par avance.

 

[Informatix]

Bonjour,

J'ai un problème avec ProgressDialogShow:

ProgressDialogShow("Patience...")
Dim Ti As Long
Ti = DateTime.Now +100
Do While DateTime.Now < Ti
DoEvents
Loop
LoadTableFromCSV(fd.FilePath ,fd.ChosenName ,True)
ProgressDialogHide

Avec cette programmation j'obtiens une fenêtre avec un cercle sans animation pendant tout le temps du chargement de ma BDD (30secondes environ).
Comment dois-je programmer pour obtenir une animation de ce cercle?
Merci par avance.

Ce n'est pas possible sans modifier LoadTableFromCSV pour mettre un DoEvents dans la boucle interne de cette fonction:

For i = 0 To List1.Size - 1
Dim row() As String
row = List1.Get(i)
AddRow(row)
DoEvents
Next

Inconvénient: le chargement de ta BD va être encore plus long.

 

[JJM]

Merci pour la réponse et bonne journée.
JJM