25/05/2018, 07:23
Sử dụng HscrollBar (Thanh cuộn ngang)
HscrollBar là một điều khiển thường được sử dụng để cho người dùng thay đổi một giá trị nào đó một cách trực quan thay vì phải nhập các con số. VscrollBar làm việc hoàn toàn giống với HscrollBar, tuy rằng hiển thị theo chiều dọc, Do vậy ta sẽ không giới ...
HscrollBar là một điều khiển thường được sử dụng để cho người dùng thay đổi một giá trị nào đó một cách trực quan thay vì phải nhập các con số. VscrollBar làm việc hoàn toàn giống với HscrollBar, tuy rằng hiển thị theo chiều dọc, Do vậy ta sẽ không giới thiệu ở đây.
Thực hành: Thay đổi màu nền và kích thước font chữ trong textbox sử dụng thanh cuộc ngang (HscrollBar) – Giao diện như hình dưới.
Giao diện chương trình và kết quả khi chạy
Thiết lập giá trị cho các thuộc tính:
| Điều khiển | Thuộc tính / Giá trị |
| TextBox | Name: txtThongBaoText: Thay đổi các thanh cuộn và quan sát ! |
| Label | Caption: Thay đổi kích thước font chữ của textbox |
| Label | Caption: Thay đổi màu nền của TextBox |
| HScrollBar | Name: hscKichThuocMin: 10Max : 50SmallChange: 1LargeChange: 10 |
| HscrollBar | Name: hscMauNenMin: 0Max : 255SmallChange: 1LargeChange: 20 |
Viết lệnh:
| Form1.frm | |
| Option Explicit'/// Sự kiện này kích hoạt khi giá trị trên hscKichThuoc thay đổi'// nên ta sẽ thực hiện cập nhật lại kích thước font tại đâyPrivate Sub hscKichThuoc_Change()txtThongBao.Font.Size= hscKichThuoc.Value '/ Đặt fontsize bằng giá trị của hscRollbarEnd Sub'/// Sự kiện này kích hoạt khi giá trị trên hscMauNen thay đổi'// nên ta sẽ thực hiện cập nhật lại giá trị của màu nền tại đâyPrivate Sub hscMauNen_Change()txtThongBao.BackColor = hscMauNen.Value '/// Đặt màu bằng với hscMauNen.ValueEnd Sub |
Ghi chú:
- Có thể đặt "Thanh gạt" của thanh cuộn tại vị trí bất kỳ bằng cách thay đổi thuộc tính Value thích hợp (trong lúc thiết kế hoặc khi chương trình chạy).
