Le compilateur met en évidence automatiquement la première ligne de la déclaration de fonction pour vous lorsque l'erreur apparaît. Cela signifie que l'erreur se produit quelque part dans cette ligne. Parfois, ce n'est pas aussi utile que vous le souhaitez, mais dans ce cas, il réussit à vous dire beaucoup.
Plus précisément, le seul "type défini par l'utilisateur" (vraiment, le seul "type" du tout) qui apparaît dans la déclaration de fonction est mscomptllib.button . Ce que le message d'erreur du compilateur vous dit ici est qu'il ne sait pas ce qu'est un mscomptllib.button est. Il suppose donc que c'est un type "défini par l'utilisateur" car il ne sait souvent pas ce que l'utilisateur parle. : -)
De toute façon, le correctif est simple: vous devez dire au compilateur quel mscomptllib.button est. Dans ce cas, il devinait mal en supposant qu'il s'agisse d'un type défini par l'utilisateur. C'est en fait un bouton fourni dans la bibliothèque Microsoft Windows Common Controls. Pour dire à VB 6 sur ce contrôle, vous devez ajouter le composant correspondant à votre projet. Suivez ces étapes:
-
dans le menu "Projet", sélectionnez "Composants".
-
Dans la boîte de dialogue qui apparaît, faites défiler environ 2/3 de la liste des MS. Placez une vérification par «Microsoft Windows Common Commands Controls 6.0» et «Microsoft Common Controls-2 6.0». (Ne vous inquiétez pas si vous avez une désignation de service de service différente.)
-
Cliquez sur le bouton OK. Si vous êtes rapide, vous verrez des contrôles supplémentaires ajoutés à votre boîte à outils. Ce sont les contrôles fournis par les bibliothèques de composants que vous venez d'ajouter. Parmi ces contrôles, on appelle une touche .
Enfin, essayez de compiler et d'exécuter votre projet à nouveau - tout devrait être bien cette fois, car le compilateur sait maintenant ce que le type mscomptllib.button est. Si vous ne le faites toujours pas, c'est un bouton qui apparaît sur votre barre d'outils. La commande de la barre d'outils est fournie par la bibliothèque Commandes commune et comprend un type qui définit un bouton individuel apparaissant sur cette barre d'outils.
Comment vous attendez-vous à nous de déboguer un problème comme celui-ci sauf si vous postez du code? Plus précisément, la partie le débogueur met en évidence pour vous comme contenant l'erreur.
Sélectionner une boîte à outils privéeBar1_buttonclick (bouton byval comme mscomptllib.button) Sélectionnez Bouton de cas.Key "Trace": appel Mntrace_click Case "Snrplot": appel Mnsnrplot_click ": appel Mnskyplot_click Case" NMEA ": appel MNNMEA_CLICK Case" Navigation ": Appel mnnavigation_click case "Survey": appel Mnsurvey_click case "Pause / Démarrage": appelez mnpause_click cas "Enregistrer": appelez mnsave_click case "Imprimer": appel Mnprint_click Case "Offline": appelez mnoffline_click End Select Sub Sub