Những chức năng mới trong giao diện cửa sổ của VB.NET (phần V)

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ữ ...
Nội dung trích xuất từ tài liệu:
Những chức năng mới trong giao diện cửa sổ của VB.NET (phần V) 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)ToolbarsToolbars trong .NET đã được nâng cấp bằng cách thêm chức năng cho cácToolBarButtons trong collection của những buttons ấy.Để dùng thử Toolbarcontrol, bạn hãy khởi động một Project mới và đặt một Toolbar vào form chínhbằng cách doubleclick lên Toolbar icon trong Toolbox. Một Toolbar sẽ hiện ranằm ngay dưới tiêu đề của form. Kế đó rightclick lên Toolbar ấy và chọnProperties để 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ị ToolbarButtonCollectionEditor.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:Bây giờ ta sẽ viết code để xử lý Event Click của Toolbar. Chỉ có một handler,Sub ToolBar1_ButtonClick, được dùng cho tất cả các buttons. Ta phân biệtButton nào dựa vào Index của nó, giống giống như một array of buttons trongVB6. 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, ByVale As System.Windows.Forms.ToolBarButtonClickEventArgs) HandlesToolBar1.ButtonClick Select Case ToolBar1.Buttons.IndexOf(e.Button) Case 0 Close Button Me.Close() Case 1 Never happens because the Button is a Separator Case 2 MessageBox.Show(You clicked the third button) End SelectEnd SubNếu không muốn dùng ToolBar1.Buttons.IndexOf(e.Button), bạn cũng có thể sosánh Buttons với operator Is như sau:If e.Button Is ToolBarButton1 Then Me.Close()ElseIf e.Button Is ToolBarButton3 Then MessageBox.Show(You clicked the third button)End IfKế đó 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ạncó 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 AsSystem.EventArgs) Handles MyBase.Load ToolBarButton3.DropDownMenu = ContextMenu1End SubBạn hãy edit hai menuItems cho ContextMenu1: một cái tên mnuXám với Textlà Xám và cái kia tên mnuTrắng với Text là Trắng. Khi chạy chương trình, nếubạ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ươngtrình cũng generate một Click Event nhưng hiện giờ ta không dùng nó, chỉ hiểnthị một sứ điệp nhỏ để xác định là có Event Click ấy.Như thế, ta thấy .NET ghépmộ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ạnkhó 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 AsSystem.EventArgs) Handles MyBase.Load ToolBarButton3.DropDownMenu = ContextMenu1 ToolBarButton3.Text = XámEnd SubPrivate Sub mnuXám_Click( ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles mnuXám.Click MessageBox.Show(Bạn chọn màu Xám) ToolBarButton3.Text = XámEnd SubPrivate Sub mnuTrắng_Click( ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles mnuTrắng.Click MessageBox.Show(Bạn chọn màu Trắng) ToolBarButton3.Text = TrắngEnd SubKhi chạy chương trình bạn sẽ thấy như sau: