OptionButton thường được dùng để yêu cầu người dùng chọn một trong các thông tin được liệt kê sẵn. Để tạo nhóm các OptionButton, ta có thể đặt chúng trong một điều khiển khung (Frame) hoặc đặt chúng trên UserForm.Hai OptionButton phục vụ cho việc lựa chọn loại hình dự án. Người dùng chỉ có thể chọn một trong hai điều khiển này.
CHƯƠNG III: CƠ BẢN VỀ NGƠN NGỮ LẬP TRÌNH VISUAL BASIC Dim tong As Double tong = Dim buocnhay As Long ' buoc nhay cua bien chay If chkChonsochan.Value Then ‘ xet lua chon chi tinh tong so chan buocnhay = Else buocnhay = End If For i = To so Step buocnhay tong = tong + i Next lblKetqua.Caption = "Ket qua: " & Str(tong) ‘ hien thi ket qua End Sub Nút tuỳ chọn (OptionButton) OptionButton thường dùng để yêu cầu người dùng chọn thông tin liệt kê sẵn Để tạo nhóm OptionButton, ta đặt chúng điều khiển khung (Frame) đặt chúng UserForm Hai OptionButton phục vụ cho việc lựa chọn loại hình dự án Người dùng chọn hai điều khiển Để thiết lập trạng thái chọn hay khơng chọn cho OptionButton, sử dụng thuộc tính Value, thuộc tính có kiểu Boolean Nếu giá trị True có nghĩa OptionButton chọn, cịn giá trị False OptionButton khơng chọn Ví dụ mã lệnh sau tương đương với việc người dùng chọn OptionButton tên optDAmoi optDAmoi.Value=True Hộp danh sách (ListBox) ListBox cho phép liệt kê danh sách giá trị để người dùng quan sát lựa chọn một vài giá trị danh sách Mỗi giá trị ListBox ln có số (Index) nội dung (Text) Ø Thuộc tính: Thuộc tính Mơ tả Ghi List Trả danh sách giá trị điều khiển Tham khảo Object Browser ListCount Trả số lượng giá trị danh sách Kiểu Long ListIndex Trả số giá trị chọn danh sách Kiểu Variant 73 Text Trả nội dung giá trị chọn Kiểu String Selected(i) Kiểm tra xem phần giá trị i có chọn hay không Kiểu Boolean Ø Phương thức: Phương thức Mô tả Ghi AddItem Thêm giá trị vào danh sách RemoveItem Xoá giá trị khỏi danh sách Tham khảo Help Clear Xố tồn danh sách Object Browser Ví dụ: tạo UserForm với ListBox hình dưới: UserForm: usfMc ListBox: lstDsMc Yêu cầu: chương trình hoạt động, ListBox có danh sách mặt cắt thống kê Mã lệnh cho kiện Initialize (sự kiện tự động gọi chương trình nạp UserForm vào nhớ máy tính) UserForm sau: Private Sub UserForm_Initialize() lstDsMc.AddItem "Mat cat dau", lstDsMc.AddItem "Mat cat L/4", lstDsMc.AddItem "Mat cat L/2", lstDsMc.AddItem "Mat cat 3L/4", lstDsMc.AddItem "Mat cat cuoi", End Sub GỢI Ý Phương thức AddItem có hai tham số tham số tuỳ chọn: tham số thứ nội dung phần tử, tham số thứ hai vị trí chèn phần tử danh sách Kết chạy chương trình sau: 74 CHƯƠNG III: CƠ BẢN VỀ NGƠN NGỮ LẬP TRÌNH VISUAL BASIC Để biết người dùng lựa chọn phần tử ListBox, viết mã lệnh cho kiện Click ListBox sau: Private Sub lstDsMc_Click() ‘Hiển thị giá trị chọn lên tiêu đề UserForm Me.Caption = lstDsMc.Text End Sub Kết người dùng chọn giá trị ListBox: Hộp danh sách tổ hợp (ComboBox) Tương tự ListBox, danh sách giá trị thể theo kiểu đầy đủ người dùng kích chuột vào Ngồi điều khiển cịn cho phép người dùng nhập giá trị cần tìm vào, điều giúp cho việc lựa chọn nhanh người dùng biết tên giá trị cần chọn danh sách chiều dài danh sách lại lớn 75 Các thuộc tính phương thức ComboBox tương tự ListBox Khung (Frame) Frame cho phép nhóm điều khiển UserForm lại theo chủ đề, giúp cho việc trình bày UserForm rõ ràng giúp cho người dùng dễ sử dụng chương trình Frame dùng để tập hợp OptionButton thành nhóm Khi tạo nhóm điều khiển Frame, nên tạo Frame trước tạo điều khiển thành phần (khi điều khiển tạo sau gắn Frame) Frame nhóm điều khiển phục vụ việc nhập liệu cho nhóm vật liệu khác Hình ảnh (Image) Image cho phép hiển thị hình ảnh vùng UserForm Sử dụng điều khiển giúp cho việc minh họa liệu cần nhập trở nên rõ ràng dễ hình dung Để chèn hình ảnh vào điều khiển, sử dụng thuộc tính Picture 76 CHƯƠNG III: CƠ BẢN VỀ NGƠN NGỮ LẬP TRÌNH VISUAL BASIC 12 Các hộp thoại thông dụng 12.1 Hộp thông điệp (Message Box – MsgBox) MsgBox sử dụng để nhắc nhở, thông báo cảnh báo người dùng MsgBox gọi theo kiểu thủ tục (khơng có giá trị trả về), theo kiểu hàm (giá trị trả nút lệnh người dùng chọn) Cú pháp gọi MsgBox sau: Ø Dạng thủ tục: MsgBox Prompt, [Buttons], [Title] Ø Dạng hàm MsgBox(Prompt, [Buttons], [Title]) (Giá trị trả hàm có kiểu VbMsgBoxResult – tham khảo Object Browser) Tham số Mơ tả Prompt Kiểu String Nội dung dịng nhắc MsgBox Buttons Kiểu VbMsgBoxStyle (tham khảo Object Browser) Kiểu hiển thị biểu tượng nút lệnh MsgBox Title Kiểu String Nội dung dòng tiêu đề MsgBox Ví dụ: MsgBox gọi với mã lệnh sau: MsgBox "Bạn có muốn khỏi chương trình khơng", vbCritical Or _ vbYesNo, "Thốt khỏi chương trình" 77 ... phần tử danh sách Kết chạy chương trình sau: 74 CHƯƠNG III: CƠ BẢN VỀ NGƠN NGỮ LẬP TRÌNH VISUAL BASIC Để biết người dùng lựa chọn phần tử ListBox, viết mã lệnh cho kiện Click ListBox sau: Private... sử dụng để nhắc nhở, thông báo cảnh báo người dùng MsgBox gọi theo kiểu thủ tục (khơng có giá trị trả về) , theo kiểu hàm (giá trị trả nút lệnh người dùng chọn) Cú pháp gọi MsgBox sau: Ø Dạng... dung dòng tiêu đề MsgBox Ví dụ: MsgBox gọi với mã lệnh sau: MsgBox "Bạn có muốn khỏi chương trình khơng", vbCritical Or _ vbYesNo, "Thốt khỏi chương trình" 77