Highlights
All Snippets
Top 100 Snippets
Librarians
gbCodeLib

By Language
VB6
JavaScript
Perl
HTML
SQL
Java
DOS

GBIC >> Source Code >> Visual Basic >> Snippet

Toolbar - responding to button selection


Private Sub  Toolbar1_ButtonClick( ByVal Button As MSComctlLib.Button)
    Select Case Button.Key
        Case "selectfolder"
            If ToolBar.Buttons( "selectfolder" ).Value = tbrPressed Then
                'Do something
            End If
        Case "copylist"
             'Do a copy thing
        Case "email"
             'Do an email thing
   End Select
End Sub