VB program example of Toolbar

Program show the working of toolbar

Sample :

I can't show you complete code Directly so download full code from below .
Download the output  for the form (design).
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Dim a As VbMsgBoxResult
    Select Case Button.Key
        Case Is = "New"
            a = MsgBox("You click the new button", vbOKOnly, "Button")
        Case Is = "Open"
            a = MsgBox("You click the open button", vbOKOnly, "Button")
        Case Is = "Save"
            a = MsgBox("You click the save button", vbOKOnly, "Button")
        Case Is = "Close"
            a = MsgBox("Are you sure you want to exit", vbYesNo, "Exit")
        End Select
        If a = vbYes Then
            End
        End If
End Sub


Full Code :
Output(toolbar.exe)

Full code(toolbar.doc)

Full project(toolbar.zip)

*Note Full project require Visual Basic 6.0
Share This:    Facebook Twitter Google+ Stumble Digg