Toolbar/ImageList

[Neato]

I asked about this on the forums awhile back, and was given replies that these styles are the only way possible. Since I know alot of beginners and some intermediate visual programmers have questions about these two things, I decided to write a brief but in-depth example with three ways to implement the toolbar and imagelist into your application.

1. A pre-set imagelist
2. Load Images from a set directory
3. Let the consumer (user) chooses

Hope it helps anyone looking for answers on thsi subject =)

[jdc6029]

Thanks for the code. In your Load Images from a set directory example,
how would you add all the icons in the directory wihtout having to specify each one individually?

[Edgemeal]

Thanks for the code. In your Load Images from a set directory example,
how would you add all the icons in the directory wihtout having to specify each one individually?

You can use the Dir command to get file names, something like,....

'Load the images to the respective ImageList
Dim strDir As String
Dim strFile As String
Dim intCount As Integer
' set path
strDir = App.Path & "\gfx\One\"
' get all "*.ico" filenames in strDir folder
strFile = Dir(strDir & "*.ico", vbNormal)
Do Until strFile = vbNullString
    intCount = intCount + 1
    ' add to img list
    Call ImageList1.ListImages.Add(intCount, "", LoadPicture(strDir & strFile))
    strFile = Dir ' get next filename
Loop

' [continue with the rest of code]
'Set the toolbar so that it reads.......

[jdc6029]

Thanks!