Bonsoir,
Dans la continuité de l’application « HelloWorld », nous allons voir 2 autres méthodes d’affichage de messages. Ces deux méthodes permettent l’affichage de messages en boîte de dialogue plutôt qu’en simple texte à la ligne de commande.
Méthode 1:
L’utilisation de la fonction ShowAlertDialog disponible avec l’application AutoCAD.
Exemple: Application.ShowAlertDialog(« Bonjour le monde!!! »)
Méthode 2:
L’utilisation de l’objet MessageBox inclut dans VB .Net. Pour pouvoir utiliser cet objet, vous devez ajouter la référence System.Windows.Forms à votre projet.
Ouvrez votre projet HelloWorld (ou HelloWorld2013), puis à partir de MyProject, allez à la section Références puis cliquez le bouton Ajouter…
À partir de la boîte de dialogue Ajouter une référence, sélectionnez l’onglet .NET puis la référence System.Windows.Forms.
Maintenant, retournez dans la commande ADCHW et ajoutez la ligne suivante:
System.Windows.Forms.MessageBox.Show(« Bonjour le monde!!! », « Message d’accueil »)
La fonction complète est maintenant la suivante:
Public Class MyFirstACADClass
<CommandMethod(« ADCHW »)> _
Public Sub ADC_HelloWorld()
Dim acDoc As Document = Application.DocumentManager.MdiActiveDocument
Dim acCurDb As Database = acDoc.Database
Dim acDocEd As Editor = acDoc.Editor
Using acTrans As Transaction = acCurDb.TransactionManager.StartTransaction()
acDocEd.WriteMessage(« Bonjour le monde » & vbLf)
Application.ShowAlertDialog(« Bonjour le monde!!! »)
System.Windows.Forms.MessageBox.Show(« Bonjour le monde!!! », « Message d’accueil »)
End Using
End Sub
End Class
Testez votre fonction dans AutoCAD et vous verrez les messages d’alerte sous forme de dialogue.
La méthode Show de l’objet MessageBox offre plusieurs paramètres dont le texte de la fenêtre de message. Une autre possibilité intéressante est l’ajout des boutons Oui/Non permettant de transformer cette boîte de message en question. Nous utiliserons éventuellement cette possibilité.
Dernier point, pour simplifier l’utilisation de l’objet MessageBox, vous pouvez ajouter « Imports System.Windows » dans l’entête du fichier de classe. Vous pourrez écrire alors:
Forms.MessageBox.Show(« Bonjour le monde », « Message d’accueil!!! »)
Pour mon prochain article je crois aller faire un tour du côté de la programmation d’AutoCAD sur Mac où j’en serai à mes premières armes. À moins que je reste du côté confortable de Windows en explorant les fonctions permettant d’interagir avec l’usager à la ligne de commande permettant ainsi de créer de nouvelles commandes dans AutoCAD.
D’ici là, bonne programmation et à bientôt!!!
André