Extract Filenames From An ImageList Using VB.NET

Submitted by donbermoy on Tuesday, August 4, 2015 - 10:52.

This tutorial will teach you how to create a program that can extract filenames from an ImageList using VB. Now, let's start this tutorial! 1. Let's start with creating a Windows Form Application for this tutorial by following the following steps in Microsoft Visual Studio: Go to File, click New Project, and choose Windows Application. 2. Next, add only one Button named Button1 , ListBox named ListBox1, and an ImageList . You must design your interface like this: output

3. We will need to put images from the ImageList. output

4. Now, lets do the coding! We will first rename the text of the button and the title of the form in our Form_Load.

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        With Me
            .CenterToScreen()
            .Text = "ImageList - Extract filenames"
            .Button1.Text = "Extract"
        End With
    End Sub

Then we will create a function named GetFilenamesInImageList to extract all the filenames from the imagelist.

    Private Function GetFilenamesInImageList(ByVal il As ImageList) As List(Of String)
        Dim List As New List(Of String)
        Dim Count As Integer = il.Images.Count()
        Try
            If Count > 0 Then
                For Each Filenames As String In il.Images.Keys
                    List.Add(Filenames)
                Next
            Else
                List = Nothing
            End If
        Catch
        End Try
        Return List
    End Function

Lastly, we will code for the Button_Click. This will use the function that we have created above to extract the filenames on the imagelist.

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If (GetFilenamesInImageList(Me.ImageList1)) IsNot Nothing Then
            Me.ListBox1.Items.AddRange(GetFilenamesInImageList(Me.ImageList1).ToArray())
        End If
    End Sub

Output:

For more inquiries and need programmer for your thesis systems in any kind of programming languages, just contact my number below. Best Regards, Engr. Lyndon Bermoy IT Instructor/System Developer/Android Developer/Freelance Programmer Mobile: 09488225971 Landline: 826-9296 E-mail:[email protected] Add and Follow me on Facebook: https://www.facebook.com/donzzsky Visit and like my page on Facebook at: https://www.facebook.com/BermzISware

Add new comment

259 views