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
Je ne suis pas sûr que la totalité du code soit vraiment nécessaire, mais ce n'est ni un reproche, ni une critique, seulement un commentaire ; comme d'habitude, chacun a loisir d'adapter le code a ses propres besoins !
Merci pour cette source, plutôt utile et intéressante selon moi.
Renfield avait développé quelque chose d'approchant avec une source appelée "Pilotage d'applications", il me semble. Cette source plutôt bien faite, n'a pu être utilisée par mes soins, car nécessitant l'aide d'un logiciel annexe (WinInspector, je crois), que je n'ai pu trouvé facilement. Dommage !!
J'ignore si vous êtes devenu un expert dans l'utilisation de "SendMessage" ou de passages de paramètres entre applications, mais si tel est le cas, je vous encourage à poster, c'est super utile !
Travail superbe, merci encore !!!
Serait-il possible d'avoir le code source de l’exécutable "executable debugform.zip" aussi ?
Car là est tout l'intérêt de la chose.
Peux-tu donner des détails techniques sur la méthode utilisée pour communiquer entre les 2 applications ?
Est-ce que ton système gère plusieurs applications en même temps ?
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.