Các bài tập Microsoft .NET 161
Bài 12
Những chức năng mới trong giao diện cửa sổ của
VB.NET (phần V)
Toolbars
Toolbars trong .NET đã được nâng cấp bằng cách thêm chức năng cho
các ToolBarButtons trong collection của những buttons ấy.
Để dùng thử Toolbar control, bạn hãy khởi động một Project mới và đặt
một Toolbar vào form chính bằng cách doubleclick lên Toolbar icon
trong Toolbox. Một Toolbar sẽ hiện ra nằm ngay dưới tiêu đề của form.
Kế đó rightclick lên Toolbar ấy và chọn Properties để edit property
Buttons Collection bằng cách click lên chữ (Collection) rồi click ba dấu
chấm phía bên phải để hiển thị ToolbarButton Collection Editor.
Bạn hãy Add vào Toolbar ba buttons với những đặc tính sau:
•
Đổ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. By default Style của
ToolbarButton là PushButton.
•
Đổ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.
Khi chạy thử chương trình ta sẽ thấy hình giống như dưới đây:
Các bài tập Microsoft .NET 162

Handles MyBase.Load
ToolBarButton3.DropDownMenu = ContextMenu1
End Sub
Bạn hãy edit hai menuItems cho ContextMenu1: một cái tên mnuXám
với Text là Xám và cái kia tên mnuTrắng với Text là Trắng.
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. Có điều sau khi user đã chọn một
Item trong ContextMenu/DropDownMenu, Text của Item đó không được
hiển thị giống như trong một ComboBox. Nếu bạn khó tính và muốn có
chuyện đó thì phải tự làm lấy như cho thấy trong code dưới đây:
Private Sub frmToolbar_Load( ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles MyBase.Load
ToolBarButton3.DropDownMenu = ContextMenu1
ToolBarButton3.Text = "Xám"
End Sub
Private Sub mnuXám_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
mnuXám.Click
MessageBox.Show("Bạn chọn màu Xám")
Các bài tập Microsoft .NET 164
ToolBarButton3.Text = "Xám"
End Sub
Private Sub mnuTrắng_Click( ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles mnuTrắng.Click
MessageBox.Show("Bạn chọn màu Trắng")
ToolBarButton3.Text = "Trắng"