Chương 7 Scrollbar – Image – Timer I. SCROLLBAR Là một đối tượng điều khiển dùng chọn một giá trị trong một khoảng cố định cho trước một cách trực quan. Có hai loại thanh cuộn: thanh cuộn dọc (VScrollbar) và thanh cuộn ngang (HScrollbar) | Giáo trình Visual Basic 69 Chương 7 Scrollbar - Image - Timer I. SCROLLBAR Là một đối tượng điều khiển dùng chọn một giá trị trong một khoảng cố định cho trước một cách trực quan. Có hai loại thanh cuộn thanh cuộn dọc VScrollbar và thanh cuộn ngang HScrollbar 1. Các thuộc tính Min Qui định giá trị cực tiểu của thanh cuộn Max Qui định giá trị cực đại của thanh cuộn Value Giá trị đang được chọn của thanh cuộn phụ thuộc vào vị trí của con chạy trên thanh cuộn. Giá trị này có thể đọc từ vị trí của con chạy hoặc gán trong chương trinh. SmallChange Qui định khoảng tăng giảm của giá trị chọn trên thanh cuộn mỗi khi bấm nút mũi tên ở hai đầu default 1 LargeChange Qui định khoảng tăng giảm của giá trị chọn trên thanh cuộn mỗi khi click trên vùng chạy của con chạy default 1 Khi một thanh cuộn được tạo ra trên form luôn luôn cần định nghĩa các giá trị min và max 2. Sự kiện Change Sự kiện xảy ra sau khi con chạy thay đổi vị trí hoặc thuộc tính value thay đổi Scroll Sự kiện xảy ra khi con chạy thay đổi vị trí hoặc thuộc tính value thay đổi 3. Ví dụ Thiết kế form chọn màu bằng cách phối hợp 3 màu cơ bản RGB. Giá trị của các thành phần màu sẽ được chọn bằng thanh cuộn. Màu chọn được thể hiện bằng đối tượng Shape. Hình Thiết kế form chọn màu Các đối tượng trên form được chọn như sau Nguyễn Đăng Quang 70 Giáo trình Visual Basic Đối tượng Shape Các Textbox Mảng Thuộc tính Giá trị Thuộc tính Giá trị Name Shape1 Name txtColor FillStyle 0 - Solid Đối tượng Hscrollbar mảng Shape 0 - Rectangle Thuộc tính Value Name hsbColor Min 0 Max 255 Value 100 Viết lệnh cho sự kiện Form_Load như sau Private Sub Form_Load RGB hsbColor 0 .Value hsbColor 1 .Value hsbColor 2 .Value End sub Viết lệnh cho sự kiện Change của các thanh cuộn như sau Private Sub hsbColor_Change Index As Integer TxtColor Index .Text hsbColor Index .Value ChangeFillColor End Sub Định nghĩa sub ChangeFillColor trong phần General như sau Sub ChangeFillColor RGB hsbColor 0 .Value .
