Discussion :

[jjcasalo]

Bonjour à tou(te)s,

J'ai un bout de code VB qui est celui ci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 Public ReadOnly Property Picture() As stdole.IPicture Implements Interop.TOTO.Ia2MenuItem.Picture
        Get
            Return Nothing
        End Get
    End Property

C'est pour afficher une petite icône devant un menu.
En mettant "Return Nothing", ça n'affiche pas d'image.

Comment faire pour lui indiquer d'afficher une image ?
J'ai essayé de taper :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 Return "C:\TEMP\image.png"

mais il n'aime pas :

Erreur 2 Option Strict On interdit les conversions implicites de 'String' en 'stdole.IPicture'.

Je comprends bien que je ne peux pas lui passer directement l'adresse du fichier image, et qu'il faut que je le indique que ce fichier est une image, mais je ne sais pas comment faire.

Merci d'avance pour votre aide.

[Flamby38]

Je pense que tu devrais inclure ton image dans ton projet (clic droit sur le projet, add file).

Ensuite il faudra aller faire un tour du coté de la fonction ImageToIPicture, ca devrait donner quelque chose comme ca :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
 Public ReadOnly Property Picture() As stdole.IPicture Implements Interop.TOTO.Ia2MenuItem.Picture
        Get
            Return Microsoft.VisualBasic.Compatibility.VB6.ImageToIPicture(monimage.bmp)
        End Get
    End Property

[jjcasalo]

Merci, je vais tester ça...