- Về thái độ:
c. Thay đổi form khởi động
4.3.3 Nút lệnh Command Button
Nút lệnh là một điều khiển dùng để bắt đầu, ngắt hoặc kết thúc một quá trình. Người sử dụng luôn có thể chọn một nút lệnh nào đó bằng cách nhấn chuột trên nút lệnh đó. Hoặc có thể nhấn Enter để chọn nút lệnh khi nút đó đang có Focus.
Thuộc tính của nút
Tên Ý nghĩa
Name Tên nút
BackColor Màu nền
BackgroundImage Hình nền của nút
Enabled Ngầm định là True - Nếu là False nút sẽ bị mờ đi và không có hiệu lực.
Font Kiểu chữ
ForeColor Màu chữ
Image Hình của nút
ImageAlign Kiểu căn lề của image
Locked Khóa hay không khóa điều khiển button
Text Dòng văn bản hiển thị trên nút
TextAlign Căn lề chuỗi text trên nút
Visible Mặc định là True cho phép hiển thị nút trên biểu mẫu
Phương thức
Location: di chuyển nút đến tọa độ X,Y: location = new point (X,Y)
Sự kiện
Click: Xuất hiện khi người sử dụng nhấn chuột vào nút lệnh hoặc Enter khi nút lệnh đang có Focus
Ví dụ: Nhập một số n từ bàn phím và in ra các số lẻ trong phạm vi n, các số chẵn trong phạm vi n
Thiết kế form như hình 4.2 với 3 nút lệnh Hiển thị, Tiếp và Thoát. Nút Hiển thị sẽ liệt kê các dãy số chẵn lẻ trong textbox tương ứng. Nút Tiếp cho phép xóa trắng các textbox nhập liệu, kết quả và chuyển con trỏ đến hộp n để nhập giá trị mới. Nút Thoát sẽ kết thúc chương trình.
81 Hình 4.2
1. Thiết kế
Điều khiển Thuộc tính Giá trị
Form: Name Frm1 FormBorderStyle FixedSingle MaximizeBox False MinimizeBox False StartPosition CenterScreen Label 1 Text n= Label 2 Text Số chẵn Label 3 Text Số lẻ Textbox 1 Name txtn Textbox 2 Name txtsc Textbox 3 Name txtsl
Button 1 Name cmdhienthi
Text Hiển thị
82
Điều khiển Thuộc tính Giá trị
Text Tiếp
Button 3 Name cmdthoat
Text Thoát
2. Viết Code
Biến cố Click của cmdhienthi Dim i%, n%
n = CInt(txtn.Text) For i = 1 To n
If i Mod 2 = 1 Then
txtsl.Text &= " " & i Else
txtsc.Text &= " " & i End If
Next
Biến cố Click của cmdTiep txtn.Clear()
txtsc.Text = "" txtsl.Clear() txtn.Focus()
Biến cố Click của cmdThoat end