Viết lệnh cho các nút trên thanh công cụ

Thực hành: Thực hiện lệnh thoát khỏi chương trình khi người dùng click vào nút Back và hiển thị thông báo là "Bạn đã click vào nút Next" khi người dùng click vào nút Next.

Thiết kế giao diện: như phần 5

Viết lệnh: Mở cửa sổ code Editor, viết lệnh cho thủ tục sự kiện ButtonClick của Toolbar

Option Explicit

'/// Thủ tục này được kích hoạt khi người dùng click chuột lên bất kỳ nút nào của Toolbar

Private Sub tbrMenu_ButtonClick(ByVal Button As MSComctlLib.Button)

SelectCase Button.Key

Case "cmdBack" '/// Nếu người dùng click vào nút Back thì thoát chương trình

End

Case "cmdNext"

MsgBox "Bạn đã click vào nút Next trên toolbar", vbInFormation

End Select

End Sub

Ghi chú:

• Sự kiện ButtonClick được kích hoạt khi người dùng click chọn một mục bất kỳ trên thanh công cụ, khi đó thuộc tính Button.Key sẽ trả về Tên (Name) của nút vừa bị click. Thuộc tính này được sử dụng để viết lệnh tương ứng (như ví dụ trên)
• Mỗi nút trên thanh công cụ có thể lại chứa một danh sách các nút khác bằng cách đặt thuộc tính style là : 5 – Dropdown

Tạo các mục menu cho nút Back

• Để viết lệnh ứng với khi người dùng click chọn các mục menu con, ta viết trong thủ tục sự kiện: ButtonMenuClick, như ví dụ sau:

Private Sub tbrMenu_ButtonMenuClick(ByVal ButtonMenu As MSComctlLib.ButtonMenu)

SelectCase ButtonMenu.Key

Case "cmdNut1" : Msgbox "Bạn đã click mục menu 1 của nút Back"

Case "cmdNut2": MsgBox "Bạn đã click mục menu 2 của nút Back"

'…………

End Select

End Sub