Discussion :

[cauriera]

Bonjour

J'ai nu programme de traitement de base de données dont l'execution est relativement lente.
Je travaille dessus, et il lui arrive parfois de planter. J'affiche donc des MsgBox pour suivre l'evolution du programme.
Le problème, c'est que si je ne suis pas devant le pc, la msgbox bloque l'execution du programme.

Existe t il un type de msgbox qui laisse le programme s'executer en tache de fond lorsque celle ci apparait?

Antoine

[pc75]

Bonjour,

Tu peux éventuellement utiliser une listbox dans laquelle tu fais des AddItem de tes messages ?

[LeXo]

sinon tu fais un

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

debug.print maVariable

[Vld44]

Non il n'en existe pas.
Pour résoudre le problème je me suis fait la mienne, une form dont le constructeur a les même propriétés que celui du msgBox mais que je peux positionner en non modal.

[Theocourant]

Bonjour,

Il n'y a pas de msgbox non blocante alors ce que j'ai fait j'ai simple fait un formulaire que j'affiche en permanence (1er plan) avec une textbox multiligne et j'écris au fur et à mesure dans la textbox ...

+

Théo

[avigeilpro]

Tu peux logger ce qu'il se passe au cours de ton programme soit dans une boite texte, soit dans un fichier afin que, si le programme venait à être quitté brutalement, tu ais une sauvegarde de ce qui c'est passé
Voici comment ouvrir un fichier, ajouter des données à la fin de celui-ci et le tout de façon assez simple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
Dim LogAdresse As String
Dim Contenu As String
Dim Taille As Single
Dim Message As String
 
LogAdresse = "C:\AppliLog.txt"
Message = "Problème"
 
Taille = Filelen(LogAdresse)
If Taille<>0 Then
   Contenu = Space(Taille)
   Open LogAdresse For Binary As #1
      Get #1,,Contenu
   Close #1
   Contenu = Contenu & VbCrLf
   Kill LogAdresse
End If
 
Contenu = Contenu & Message
 
Open LogAdresse For Binary As #1
   Put #1,,Contenu
Close #1