Specific Picture on User Form selected from TextBox Value

[Colin Smit]

I am trying to get a picture to show on a User Form based on the selection from a textbox. Any idea how to get this working right? I can get a picture to show if it was placed in the code from a list box. See sample of code below.

Private Sub ListBox1_Click()

If ListBox1.ListIndex = 0 Then
    Image1.Picture = LoadPicture("C:\PartList\29812347.jpg")
End If

If ListBox1.ListIndex = 1 Then
    Image1.Picture = LoadPicture("C:\PartList\10012447.jpg")
End If

If ListBox1.ListIndex = 2 Then
    Image1.Picture = LoadPicture("C:\PartList\01639267.jpg")
End If

If ListBox1.ListIndex = 3 Then
    Image1.Picture = LoadPicture("C:\PartList\30554637.jpg")
End If

End Sub

Private Sub UserForm_Initialize()

With ListBox1
    .AddItem "29812347"
    .AddItem "10012447"
    .AddItem "01639267"
    .AddItem "30554637"
End With

End Sub

My problem is that the picture collection of the parts grows every week. The pictures are named with a numerical numbers and are always saved in the same folder. Is it possible to type in a certain part number inside a textbox of the user form and then have it displayed with a command button on the user form inside the image control?

[Leith Ross]

Hello Colin Smit,

Is the folder only used for these pictures?

[Colin Smit]

Hi Leith Ross

Is the folder only used for these pictures?

Yes the folder will only be used for the pictures. Each picture will be named as the part number that it represents.

[Leith Ross]

Hello Colin Smit,

This code will load the ListBox with the file names in the folder in ascending alphabetical order (A-Z).

You will need to change the folder path to match where your files are located.

UserForm_Initialize Event Code

Private Sub UserForm_Initialize()

    Dim Descnding   As Boolean
    Dim oFiles      As Object
    Dim oFile       As Object
    Dim Folder      As Variant
    Dim List        As Variant
    Dim j           As Long
    Dim n           As Long
    Dim Sorted      As Boolean
    Dim Temp        As Variant
    
        Folder = "C:\Users\Owner\Documents"
        
        With CreateObject("Shell.Application")
            Set oFiles = .Namespace(Folder).Items
            oFiles.Filter 64, "*.jpg"
            
            ReDim List(1 To oFiles.Count)
            
            For Each oFile In oFiles
                n = n + 1
                List(n) = oFile.Path
            Next oFile
        End With
        
            Do
                Sorted = True
                
                For j = 1 To n - 1
                    If Descending Xor List(j) > List(j + 1) Then
                        Temp = List(j + 1)
                        List(j + 1) = List(j)
                        List(j) = Temp
                        Sorted = False
                    End If
                Next j
                
                n = n - 1
            Loop Until Sorted Or n < 1

        ListBox1.List = Application.Transpose(List)

End Sub

ListBox1_Click Event Code

Private Sub ListBox1_Click()

    Image1.Picture = LoadPicture(ListBox1.List(ListBox1.ListIndex))
    
End Sub

[Colin Smit]

I am not sure what I am doing wrong but I keep getting an error. (See attached workbook)

Am I right in saying that the code will generate a list of all the parts in this folder? If the answer is yes.....I need to type them in manually as there will be photos of over a 1000 parts in there. To have a list to scroll trough will take up time. On the other hand the user will have the part number and could type it into the textbox. Is it possible?

[Leith Ross]

Hello Colin Smit,

I changed the TextBox to ComboBox. This combines the features of the ListBox and TextBox.'

The macro is in the UserForm_Initialize event which is where it is supposed to be, not in the Submit button Click event.

[Colin Smit]

Hello Colin Smit,

I changed the TextBox to ComboBox. This combines the features of the ListBox and TextBox.'

The macro is in the UserForm_Initialize event which is where it is supposed to be, not in the Submit button Click event.

Thank you for that help. I now understand what I did wrong in the code. The picture now shows but only with the ListBox selection. If I type in only the part number it does not work. I see that the ListBox shows the picture selection as "C:\PartList\1990236.jpg". I presume that it does not work if I only type in the part number "1990236" because the location is not added. Is it possible to have to location added in the script so that the user only needs to type in the part number? Location will always be the same.

[Leith Ross]

Hello Colin Smit,

Here is the revised code for the UserForm. The attached workbook has all the changes included.

Private Sub cmdbutton_close_Click()
        Unload Me
End Sub

Private Sub cmdbutton_submit_Click()

    Dim Filepath As String
    Dim nList    As Long
    
        nList = ComboBox1.ListIndex
        
        If nList > -1 Then
            Filepath = ComboBox1.List(nList, 1)
            Image1.Picture = LoadPicture(Filepath)
        End If
    
End Sub

Private Sub UserForm_Initialize()
    
    Dim Descending   As Boolean
    Dim oFiles      As Object
    Dim oFile       As Object
    Dim Folder      As Variant
    Dim List        As Variant
    Dim j           As Long
    Dim n           As Long
    Dim Sorted      As Boolean
    Dim Temp        As Variant
    
        Folder = "C:\Users\Owner\Documents"
        
        With CreateObject("Shell.Application")
            Set oFiles = .Namespace(Folder).Items
            oFiles.Filter 64, "*.jpg"
            
            ReDim List(1 To oFiles.Count, 1 To 2)
            
            For Each oFile In oFiles
                n = n + 1
                List(n, 1) = oFile.Name
                List(n, 2) = oFile.Path
            Next oFile
        End With
        
            Do
                Sorted = True
                
                For j = 1 To n - 1
                    If Descending Xor List(j, 1) > List(j + 1, 1) Then
                        Temp = List(j + 1, 1)
                        List(j + 1, 1) = List(j, 1)
                        List(j, 1) = Temp
                        
                        Temp = List(j + 1, 2)
                        List(j + 1, 2) = List(j, 2)
                        List(j, 2) = Temp
                        
                        Sorted = False
                    End If
                Next j
                
                n = n - 1
            Loop Until Sorted Or n < 1

        ComboBox1.List = List

End Sub

[Colin Smit]

Hi Leith Ross

Thank you for the help. I will mark the thread as solved. The form works great!

[Leith Ross]

Hello Colin Smit,

You're welcome. I' m glad you like. If you have any questions about the code, please ask.