- Đổi property Text của button thứ nhất (ToolbarButton1) ra Close vì ta muốn đóng chương trình khi user click lên button ấy. - Đổi property Style của button thứ nhì (ToolbarButton2) ra Separator vì ta muốn dùng nó để tạo khoảng cách giữa button thứ nhất và button thứ ba.. - Đổi property Text của button thứ ba (ToolbarButton3) ra Background Colour và property Style ra DropDownButton vì ta muốn dùng nó như một Combobox.. - Nếu user click button thứ nhất ta sẽ có ToolBar1.Buttons.IndexOf(e.Button) bằng 0, lúc ấy ta sẽ Close form chính.. - Private Sub ToolBar1_ButtonClick( ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles ToolBar1.ButtonClick. - Kế đó chúng ta cho đặt một ContextMenu tên ContextMenu1 vào form và assign nó vào property DropDownMenu của button thứ ba như trong hình dưới đây:. - Nếu không muốn assign ContextMenu1 vào button thứ ba trong lúc thiết kế, bạn có thể thực hiện việc ấy bằng code lúc form mới load như sau:. - Private Sub frmToolbar_Load( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load. - Khi chạy chương trình, nếu bạn click cái thanh có dấu tam giác đen nằm bên phải button thứ ba, ContextMenu1 sẽ hiện ra để bạn dùng. - Nếu bạn click button thứ ba, chương trình cũng generate một Click Event nhưng hiện giờ ta không dùng nó, chỉ hiển thị một sứ điệp nhỏ để xác định là có Event Click ấy.Như thế, ta thấy .NET ghép một ContextMenu vào một ToolbarButton để biến nó thành một DropDownMenu.. - Private Sub mnuXám_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuXám.Click. - Private Sub mnuTrắng_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuTrắng.Click
Xem thử không khả dụng, vui lòng xem tại trang nguồn hoặc xem
Tóm tắt