CORRECTIF : lorsque vous utilisez SendMessage avec TB_GETIMAGELIST pour obtenir un handle ImageList sur Windows XP, vous ne pas obtenir le handle de correction

Traductions disponibles Traductions disponibles
Numéro d'article: 811415 - Voir les produits auxquels s'applique cet article
Cet article a été archivé. Il est proposé « en l'état » et ne sera plus mis à jour.
Agrandir tout | Réduire tout

Sommaire

Symptômes

Vous pouvez utiliser SendMessage pour obtenir le handle de l'image à partir de divers contrôles dans des contrôles courants Microsoft Windows 6.0 (Mscomctl.ocx). En utilisant SendMessage , vous pouvez transmettre TB_GETIMAGELIST, LVM_GETIMAGELIST TVM_GETIMAGELIST ou TCM_GETIMAGELIST pour obtenir le descripteur imagelist pour les barre d'outils, ListView, TreeView, et contrôle TabStrip.

Cependant, lorsque vous effectuez cette opération sur un ordinateur exécutant Windows XP, le descripteur incorrect est renvoyé. Si vous appelez les autres API et puis transmettez cette poignée, les appels D'API ne fonctionneront pas correctement.

Cause

Ce problème se produit car Windows XP et Mscomctl.ocx chargent deux versions différentes de Comctl32.dll qui ne sont pas compatibles.

Résolution

Un correctif est désormais disponible auprès de Microsoft, mais il ne vise qu'à corriger le problème décrit dans cet article. Uniquement l'appliquer à des systèmes rencontrant ce problème spécifique. Ce correctif peut subir des tests supplémentaires. Par conséquent, si vous n'êtes pas gravement touché par ce problème, nous vous recommandons d'attendre le pack de service Visual Studio 6.0 suivant qui comprendra ce correctif.

Pour résoudre ce problème immédiatement, contactez support technique Microsoft pour obtenir le correctif. Pour une liste complète des numéros de téléphone des services de support technique Microsoft et des informations sur les frais de support technique, reportez-vous au site de Web Microsoft suivant :
http://support.microsoft.com/default.aspx?scid=fh;EN-US;CNTACTMS
note Dans certains cas, les frais aucuns de support peuvent être facturés si un technicien du support technique Microsoft détermine qu'une mise à jour spécifique peut résoudre votre problème. Les coûts habituels du support technique s'appliqueront aux autres questions et problèmes non traités par la mise à jour en question.

La version anglaise de ce correctif dispose des attributs de fichier (ou version ultérieure) répertoriés dans le tableau suivant. Les dates et heures de ces fichiers sont exprimées en coordinated universal temps (UTC). Lorsque vous affichez les informations de fichier, il est convertie en heure locale. Pour connaître le décalage entre l'heure UTC et l'heure locale, utilisez l'onglet Fuseau horaire dans l'outil Date et heure du Panneau de configuration.
   Date         Time   Version   Size       File name
   -----------------------------------------------------
   13-Dec-2002  00:18  6.0.97.1  1,062,160  Mscomctl.ocx

Statut

Microsoft a confirmé qu'il s'agit un bogue dans les produits Microsoft répertoriés au début de cet article.

Plus d'informations

Procédure pour reproduire le comportement

Pour reproduire le problème en utilisant le contrôle de barre d'outils, procédez comme suit :
  1. Démarrez un nouveau projet EXE standard Visual Basic 6.0. Par défaut, Form1 est créé.
  2. Dans le menu projets , cliquez sur composants . Dans la boîte de dialogue composants , ajoutez une référence à Microsoft Windows 6.0 contrôles communs .
  3. Ajoutez un contrôle ImageList (ImageList1), un contrôle de barre d'outils (Toolbar1) et un bouton de commande (Command1) à Form1.
  4. Cliquez avec le bouton droit sur le contrôle ImageList , puis cliquez sur l'onglet images ajouter deux images à la ImageList contrôlent.
  5. Add the following code to Form1:
    Option Explicit
    
    Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByRef lParam As Any) As Long
    Private Declare Function GetImageCount Lib "comctl32" Alias "ImageList_GetImageCount" (ByVal p As Long) As Long
    Private Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal cmd As Long) As Long
    
    
    Private Const WM_USER = &H400
    Private Const TB_GETIMAGELIST = WM_USER + 49
    Private Const GW_CHILD = 5
    
    Private Sub Command1_Click()
        Dim hImageList As Long, hChild As Long
        
        hChild = GetWindow(Toolbar1.hwnd, GW_CHILD)
        
        hImageList = SendMessage(hChild, TB_GETIMAGELIST, 0, 0)
        MsgBox "Image Count = " & GetImageCount(hImageList)
    End Sub
    
    Private Sub Form_Load()
        Set Toolbar1.ImageList = ImageList1
        Toolbar1.Buttons.Add , , "Button 1"
        Toolbar1.Buttons.Add , , "Button 2"
        Toolbar1.Buttons(1).Image = 1
        Toolbar1.Buttons(2).Image = 2
    End Sub
    
  6. Exécuter l'application, puis cliquez sur Command1 . La zone de texte Nombre de l'image contient 0 . Après avoir appliqué le correctif logiciel, le nombre d'images renvoie correctement sous 2 .

Propriétés

Numéro d'article: 811415 - Dernière mise à jour: lundi 24 février 2014 - Version: 2.3
Les informations contenues dans cet article s'appliquent au(x) produit(s) suivant(s):
  • Microsoft Visual Basic 6.0 Édition Entreprise
  • Microsoft Visual Basic 6.0 Édition initiation
  • the operating system: Microsoft Windows XP
Mots-clés : 
kbnosurvey kbarchive kbmt kbvbp600fix kbfix kbqfe KB811415 KbMtfr
Traduction automatique
IMPORTANT : Cet article est issu du système de traduction automatique mis au point par Microsoft (http://support.microsoft.com/gp/mtdetails). Un certain nombre d?articles obtenus par traduction automatique sont en effet mis à votre disposition en complément des articles traduits en langue française par des traducteurs professionnels. Cela vous permet d?avoir accès, dans votre propre langue, à l?ensemble des articles de la base de connaissances rédigés originellement en langue anglaise. Les articles traduits automatiquement ne sont pas toujours parfaits et peuvent comporter des erreurs de vocabulaire, de syntaxe ou de grammaire (probablement semblables aux erreurs que ferait une personne étrangère s?exprimant dans votre langue !). Néanmoins, mis à part ces imperfections, ces articles devraient suffire à vous orienter et à vous aider à résoudre votre problème. Microsoft s?efforce aussi continuellement de faire évoluer son système de traduction automatique.
La version anglaise de cet article est la suivante: 811415
L'INFORMATION CONTENUE DANS CE DOCUMENT EST FOURNIE PAR MICROSOFT SANS GARANTIE D'AUCUNE SORTE, EXPLICITE OU IMPLICITE. L'UTILISATEUR ASSUME LE RISQUE DE L'UTILISATION DU CONTENU DE CE DOCUMENT. CE DOCUMENT NE PEUT ETRE REVENDU OU CEDE EN ECHANGE D'UN QUELCONQUE PROFIT.

Envoyer des commentaires

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com