Tham khảo tài liệu ''giáo trình phân tích khả năng ứng dụng lập trình bằng ngôn ngữ visual basic trên java p6'', công nghệ thông tin, kỹ thuật lập trình phục vụ nhu cầu học tập, nghiên cứu và làm việc hiệu quả
3 Tạo hệ thống Menu gán mã lệnh cho MenuItem Sub TaoMenu() Dim cb As CommandBar Dim cpop As CommandBarPopup Dim cpop2 As CommandBarPopup Dim cbtn As CommandBarButton ' LẤY THAM CHIẾU ĐẾN THANH TRÌNH ĐƠN Set cb = Application.CommandBars("Worksheet Menu Bar") ' TẠO MENU1: “VI DU MENU” (CommandBarPopup) Set cpop = cb.Controls.Add(Type:=msoControlPopup, Temporary:=True) cpop.Caption = "&Vi du Menu" ' TẠO MENUITEM2: “TINH TONG” (CommandBarButton) ' (thêm MenuItem vào MENU1) Set cbtn = cpop.Controls.Add(msoControlButton, , , , True) ' Gán thuộc tính cho MenuItem cbtn.Caption = "Tinh Tong" ‘ Gán tiêu đề cbtn.OnAction = "Macro1" ‘ Gán mã lệnh ' TẠO MENUITEM3: “TINH TICH” (CommandBarButton) Set cbtn = cpop.Controls.Add(msoControlButton, , , , True) cbtn.Caption = "Tinh Tich" cbtn.OnAction = "Macro2" ' TẠO MENU4: “MENU CAP 2” (CommandBarPopup) ' Đây MenuItem bắt đầu nhóm trình đơn khác Set cpop2 = cpop.Controls.Add(msoControlPopup, , , , True) cpop2.Caption = "Menu Cap 2" ' Thêm SeparatorBar vào phía trước Menu cpop2.BeginGroup = True ' TẠO MENUITEM5: “LUA CHON 1” (CommandBarButton) Set cbtn = cpop2.Controls.Add(msoControlButton, , , , True) cbtn.Caption = "Lua chon &1" cbtn.OnAction = "Macro3" ' TẠO MENUITEM6: “LUA CHON 2” (CommandBarButton) Set cbtn = cpop2.Controls.Add(msoControlButton, , , , True) cbtn.Caption = "Lua chon &2" cbtn.OnAction = "Macro4" End Sub Trong câu lệnh tạo hệ thống trình đơn trên, tham số Temporary phương thức Add gán True, vậy, người dùng khỏi Excel hệ thống trình đơn vừa thêm vào tự động xoá 8.4.3 Xoá trình đơn tuỳ biến Khi người dùng đóng workbook mà khơng đóng Excel, trình đơn vừa thêm vào cịn hiển thị hệ thống trình đơn Excel người dùng làm việc với workbook khác mà khơng cần đến tính trình đơn Như vậy, có lúc cần phải xố trình đơn vừa thêm vào Để thực điều này, sử dụng phương thức Delete có đối tượng kiểu CommandBarControl CommandBarPopup CommandBarButton Đoạn mã lệnh sau thực xố trình đơn “Vi du Menu” tạo ví dụ 178 CHƯƠNG IV: LẬP TRÌNH TRÊN MICROSOFT EXCEL Sub XoaMenu() Dim cb As CommandBar Dim cbp As CommandBarPopup ‘Lấy tham chiếu đến trình đơn Set cb = Application.CommandBars("Worksheet Menu Bar") On Error Resume Next ‘Tham chiếu đến trình đơn “Vi du Menu” Set cbp = cb.Controls("Vi du Menu") If Not IsNull(cbp) Then cbp.Delete End If End Sub Ngồi ra, thay xố trình đơn vừa tạo ra, người lập trình thiết lập lại trạng thái ban đầu hệ thống trình đơn Excel thông qua phương thức Reset Sau sử dụng phương thức này, tất trình đơn người dùng tạo xoá đi, hệ thống trình đơn trở trạng thái mặc định Sub ResetMenu() Dim cb As CommandBar Dim cbp As CommandBarPopup ‘Lấy tham chiếu đến trình đơn Set cb = Application.CommandBars("Worksheet Menu Bar") cbp.Reset End Sub Trong hầu hết trường hợp, người lập trình tạo trình đơn lúc mở workbook, xố trình đơn đóng workbook ta thực tự động q trình thông qua viêc xử lý kiện liên quan đến việc mở đóng Workbook Trong kiện Workbook_Open, gọi đến thủ tục thực việc tạo trình đơn, cịn kiện Workbook_BeforeClose, gọi đến thủ tục thực việc xố trình đơn ‘SỰ KIỆN Workbook_Open Private Sub Workbook_Open() ‘Gọi thủ tục thực việc tạo trình đơn TaoMenu End Sub ‘SỰ KIỆN Workbook_BeforeClose Private Sub Workbook_BeforeClose(Cancel As Boolean) ‘Gọi thủ tục thực việc xố trình đơn XoaMenu End Sub 8.4.4 Gán phím tắt cho Menu Item Gán phím tắt cho Menu Item thực chất gán phím tắt cho Macro tương ứng với Menu Item (là Macro gán cho Menu Item thơng qua thuộc tính OnAction) Bổ sung đoạn mã lệnh sau vào cuối thủ tục TaoMenu ví dụ trước để gán phím tắt CTRL+SHIFT+T cho Menu Item “Tinh Tong”: ‘Tạo phím tắt cho MenuItem Application.MacroOptions _ Macro:="Macro1", _ HasShortcutKey:=True, _ ShortcutKey:="T" 179 Trong tạo hệ thống trình đơn “Vi du Menu” ví dụ trước, Menu Item “Tinh Tong” có thuộc tính OnAction gán “Macro1” Do để gán phím tắt cho Menu Item này, người lập trình phải thực thơng qua việc gán phím tắt cho Macro có tên “Macro1” 180 CHƯƠNG IV: LẬP TRÌNH TRÊN MICROSOFT EXCEL 181 CHƯƠNG V: LẬP TRÌNH TRÊN AUTOCAD Tổng quan AutoCAD 1.1 Khả AutoCAD AutoCAD phần mềm hỗ trợ tạo vẽ kỹ thuật dùng phổ biến Đây sản phẩm hãng Autodesk phát triển liên tục nhiều năm nay, điều thể việc cập nhật hàng năm phiên AutoCAD Với AutoCAD, người dùng dễ dàng tạo vẽ kỹ thuật dạng chiều dựng mơ hình ba chiều cho vật thể với nhiều cách thể khác dạng khung lưới dạng vật thể đặc hình Hình vẽ AutoCAD tổ chức chủ yếu theo dạng vector chuẩn lưu trữ dạng DWG biết đến chuẩn lưu trữ hình vẽ dạng vector hiệu giới Để tạo thuận lợi tối đa cho người dùng, AutoCAD thiết kế với cấu trúc tính hợp lý: Ø Không gian để tạo vẽ chia thành hai loại: Khơng gian mơ hình (Model), nơi mà người dùng vẽ hay dựng mơ hình vật thể mà không cần quan tâm đến giới hạn kích thước đối tượng, vẽ tỷ lệ trình bày Khơng gian trình bày hay cịn gọi khơng gian in (Layout), nơi mà người dùng vẽ hay dựng mơ khơng gian mơ hình, khơng phải mục đích khơng gian in Mục đích khơng gian in giúp cho người dùng biểu diễn trình bày vẽ theo ý tưởng dựa mơ hình dựng (hay vẽ) không gian mơ hình Trong khơng gian in, với số lượng khơng hạn chế, người dùng dễ dàng tạo in có tỷ lệ khác nhau, cách bố trí, đặt khác từ mơ hình vẽ Hình mơ hình vật thể xây dựng khơng gian mơ hình 182 ... phím tắt cho Macro có tên “Macro1” 180 CHƯƠNG IV: LẬP TRÌNH TRÊN MICROSOFT EXCEL 181 CHƯƠNG V: LẬP TRÌNH TRÊN AUTOCAD Tổng quan AutoCAD 1.1 Khả AutoCAD AutoCAD phần mềm hỗ trợ tạo vẽ kỹ thuật... ‘Lấy tham chiếu đến trình đơn Set cb = Application.CommandBars("Worksheet Menu Bar") cbp.Reset End Sub Trong hầu hết trường hợp, người lập trình tạo trình đơn lúc mở workbook, xố trình đơn đóng workbook... chiếu đến trình đơn “Vi du Menu” Set cbp = cb.Controls("Vi du Menu") If Not IsNull(cbp) Then cbp.Delete End If End Sub Ngồi ra, thay xố trình đơn vừa tạo ra, người lập trình thiết lập lại trạng