- Về thái độ:
c. Thay đổi form khởi động
4.6 Điều khiển thanh cuộn
Là một điều khiển có thanh trượt cho phép cuộn ngang (HscrollBar) hoặc cuộn dọc (VscrollBar) như một thiết bị nhập hoặc một thiết bị chỉ định cho số lượng hoặc vận tốc.
Thuộc tính:
Name: Tên của thanh cuộn Max: Giá trị lớn nhất của thanh cuộn Min: Giá trị nhỏ nhất của thanh cuộn
90 Largerchange: Xác định khoảng thay đổi khi người dùng ấn chuột lên mũi tên đầu thanh cuộn.
Smallchange: Xác định khoảng thay đổi khi người dùng ấn chuột lên mũi tên cuối thanh cuộn.
Sự kiện:
Scroll: Xảy ra mỗi khi người sử dụng di chuyển thanh cuộn.
Ví dụ: Trong hình 4-6 dưới đây có sử dụng một textbox và một thanh cuộn dọc để hiển thị giá trị của cỡ chữ. Cỡ chữ sẽ thay đổi khi người sử dụng điều khiển thanh cuộn hoặc khi người sử dụng nhập một giá trị vào textbox và nhấn Enter. Cỡ chữ ban đầu là 16.
Hình 4.6 Form sử dụng kết hợp các điều khiển để thay đổi định dạng văn bản - Thuộc tính:
Textbox cỡ chữ: + Name: txtsize Thanh cuộn dọc: + Name: VS1
- Thiết lập giá trị cho textbox và thanh cuộn ở thời điểm chạy chương trình (load form):
91 txtsize.Text = 16
VS1.Value = 16
Các giá trị này có thể thiết lập ngay tại thời điểm thiết kế bằng cách thay đổi các thuộc tính thích hợp.
- Đoạn mã cho phép thay đổi giá trị textbox và thay đổi cỡ chữ của hộp văn bản mẫu khi người sử dụng điều khiển thanh cuộn VS1 (sự kiện Scroll của VS1)
txtsize.Text = VS1.Value
txtvbmau.Font = New Font(txtvbmau.Font.Name, VS1.Value, _ txtvbmau.Font.Style)
- Đoạn mã cho phép thay đổi giá trị thanh cuộn và thay đổi cỡ chữ của hộp văn bản mẫu khi người sử dụng nhập một giá trị mới vào textbox và nhấn Enter (sự kiện KeyPress của txtsize):
If e.KeyChar = ChrW(13) Then VS1.Value = txtsize.Text
txtvbmau.Font = New Font(txtvbmau.Font.Name, VS1.Value, _ txtvbmau.Font.Style)
End If
Đoạn chương trình trên sử dụng lệnh khởi tạo font mới theo mẫu số 7 (trong tổng số 13 cú pháp).
Tên_điều_khiển.Font = New Font (Font_Name, Font_size, Font_Style)