IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VB.NET Discussion :

les images my.ressource pour dans imagelist


Sujet :

VB.NET

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre éprouvé
    Homme Profil pro
    Étudiant
    Inscrit en
    Janvier 2018
    Messages
    323
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Nord (Nord Pas de Calais)

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Janvier 2018
    Messages : 323
    Par défaut les images my.ressource pour dans imagelist
    Bonjour,

    j'arrive pas afficher les images dans listview1 avec imagelist car les images sont dans le dossier Ressources.

    Voici mon code :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
            ImageListview2("_0", "Image-0", ListView1)
        End Sub
    Private Sub ImageListview2(ByVal Img As String, ByVal Name As String, ByVal listView As ListView)
            Dim images As New ImageList With {.ColorDepth = ColorDepth.Depth32Bit, .ImageSize = New Size(40, 40)}
            listView.LargeImageList = images
            Dim obj As Bitmap = CType(My.Resources.ResourceManager.GetObject(Img), Bitmap)
            If Not obj Is Nothing Then
                images.Images.Add(obj)
                Dim lvi As New ListViewItem("", images.Images.Count - 1)
                lvi.SubItems.Add(Name)
                listView.Items.Add(lvi)
            Else
                MsgBox("L'Image " & Img & " est introuvable dans le fichier ressources", MessageBoxIcon.Error)
            End If
    Comment je peux faire pour les images ce trouve dans ressources et ce mettre dans imagelist?
    Merci pour votre réponse.

  2. #2
    Membre Expert
    Avatar de wallace1
    Homme Profil pro
    Administrateur systèmes
    Inscrit en
    Octobre 2008
    Messages
    1 966
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Puy de Dôme (Auvergne)

    Informations professionnelles :
    Activité : Administrateur systèmes
    Secteur : Aéronautique - Marine - Espace - Armement

    Informations forums :
    Inscription : Octobre 2008
    Messages : 1 966
    Billets dans le blog
    7
    Par défaut
    Bonjour,

    Il faut au préalable charger les images (de Resources) dans ton ImageList. De cette manière elles sont indexées et facilement retrouvables par la suite.

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
     
    Public Class Form1
     
        Private m_imgList As ImageList
     
        Sub New()
            InitializeComponent()
            m_imgList = New ImageList
            ListView1.LargeImageList = m_imgList
            InitImagesFromResources()
        End Sub
     
        'On charge l'imageList puisque tu connais dès le départ l'emplacement et le nom des images dans Resources
        Private Sub InitImagesFromResources()
            With m_imgList
                .ColorDepth = ColorDepth.Depth32Bit
                .ImageSize = New Size(32, 32)
            End With
            m_imgList.Images.Add(My.Resources._1)
            m_imgList.Images.Add(My.Resources._2)
            m_imgList.Images.Add(My.Resources._3)
            m_imgList.Images.Add(My.Resources._4)
            m_imgList.Images.Add(My.Resources._5)
        End Sub
     
        Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
            AddImageToListViewItem(0)
            AddImageToListViewItem(1)
            AddImageToListViewItem(2)
        End Sub
     
        Private Sub AddImageToListViewItem(Index As Integer)
            Dim Lvi As New ListViewItem With {
                .ImageIndex = Index
            }
            ListView1.Items.Add(Lvi)
        End Sub
    End Class
    PS : Il est bien évidement possible d'ajouter dynamiquement des images à ImageList comme on pourrait le faire lorsqu'on parcours des arborescence de répertoires contenant des fichiers. Cependant dans ton cas tu connais d'avance l'emplacement des images et leur nom puisqu'elles sont dans tes Resources de projet.

    ImagesFromRes.zip

    A+

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. dans mon site web les images mettent 5mn pour s'afficher, pourkoi ?
    Par lao.patrick dans le forum Balisage (X)HTML et validation W3C
    Réponses: 3
    Dernier message: 04/11/2009, 05h13
  2. Ou son stocker les images d une bibliotheque dans WSS
    Par neuneu1 dans le forum SharePoint
    Réponses: 6
    Dernier message: 19/11/2008, 08h21
  3. Afficher les images d'un dossier dans une IHM
    Par danathane dans le forum Langage
    Réponses: 4
    Dernier message: 26/06/2008, 15h27
  4. Comprimez les images des document inclus dans dossier
    Par Fredheg dans le forum VBA Word
    Réponses: 41
    Dernier message: 26/12/2007, 12h39
  5. Réponses: 8
    Dernier message: 03/08/2006, 16h19

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo