Bonjour a tous
Voici un petit logiciel pour aider le débogage d'une application une fois le fichier exe créé
Comment ça marche ?
Le logiciel debugform récupère les messages (méthode SendMessage 'handle du textbox de debugform', WM_SETTEXT, 0, ByVal 'message' )que l'on vient d'insérer dans le code du programme et les affiches.
Pour inclure les messages dans le programme :
-Ajouter le module de classe 'debugclass.cls'
-Ajouter la ligne dans la déclaration de la feuille :
Dim cdebug as New debugclass
-Ajouter le message a l'endroit voulu :
cdebug.nomapplication -> nom de l'application
cdebug.printtext « mon message » -> envoie le message
cdebug.cleartexte -> efface les messages
cdebug.couleur -> choix de la couleur (noir,rouge ou bleu)
cdebug.gras-> texte en gras true ou false
Une fois le logiciel compilé lancer le logiciel 'debugform.exe' et lancer le logiciel compilé.
-il est possible de lancer plusieurs applications a la fois.
Attention!
-compilez l'executable debugform.exe dans le dossier 'Fichier source debugform' pour avoir le fichier debugform.exe!
-le logiciel inscrit une valeur dans la base de registre et l'efface un fois le logiciel clôturé.
Source / Exemple :
VERSION 5.00
Begin VB.Form Form1
BorderStyle = 1 'Fixed Single
Caption = "test débogage"
ClientHeight = 5550
ClientLeft = 2865
ClientTop = 5685
ClientWidth = 6555
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 5550
ScaleWidth = 6555
Begin VB.Timer Timer1
Interval = 2000
Left = 1335
Top = 2085
End
Begin VB.CommandButton Command1
Caption = "lancer le timer"
Height = 465
Left = 4035
TabIndex = 0
Top = 1155
Width = 1365
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim cdebug As New debugclass
Private Sub Command1_Click()
cdebug.cleartexte
cdebug.couleur = cnoir
cdebug.gras = False
cdebug.printtext "Appuie sur lancer le timer"
cdebug.couleur = cbleu
cdebug.gras = True
cdebug.printtext "je lance le timer"
End Sub
Private Sub Timer1_Timer()
cdebug.printtext "Sub timer1_timer"
End Sub
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.