II. MỘT SỐ KỸ THUẬT ĐƯỢC ÁP DỤ NG
2. Chữ chạy trên nền màn hình
Trường hợp này khi thiết lập ta cần có một biểu tượng Timer và một Label. Sau đó, ta sẽ lập đoạn chương trình cho các dòng chữ trong Label chạy trên màn hình.
Private Sub Timer1_Timer()
Dim x As String Dim y As String x = Left(Label4.Caption, 1) y = Right(Label4.Caption, Len(Label4.Caption) - 1) Label4.Caption = y + x End Sub
3. Cập nhật nội dung trong List của Combo Box cho phù hợp với từng chương
Ở chếđộ thiết kế, chúng ta có thể thêm hoặc xóa bớt các mục trong danh sách chọn của List Box hoặc Combo Box bằng thuộc tính List. Nhưng khi chương trình đang chạy để
thêm hoặc xóa bớt các mục của List Box hoặc Combo Box, ta phải dùng phương thức
trí của các mục cũng như số phần tử còn lại trong danh sách sẽ bị thay đổi. Đồng thời, khi xóa các mục trong List 1 thì List 2 ngay sau List 1 sẽ có các thuộc tính giống như các thuộc tính của List 1, nhưng ởđây yêu cầu đòi hỏi là List 2 phải có danh sách khác hơn so với ở
List 1, nên để làm được điều này ta phải làm như thế nào? Để giải quyết vấn đề nêu trên tôi
đã sử dụng vòng lặp For duyệt ngược như sau:
Private Sub Chuong_Combo_Click() If Chuong_Combo.ListIndex = 5 Then
Dim i As Integer
For i = Bai_Combo.ListCount - 1 To Bai_Combo.ListCount - 5 Step -1
Bai_Combo.RemoveItem (i) Next i End If If Chuong_Combo.ListIndex = 6 Then For i = 1 To 5 Bai_Combo.AddItem (10 + i) Next i End If End Sub
Tôi nghiên cứu với 3 chương của phần Nhiệt học, ở chương 5 có 15 bài tập, chương 6 có 10 bài tập nhưng chương 7 lại có 15 bài tập. Vì vậy, để cho List của các Combo khớp với số lượng bài tập được chọn, tôi đã sử dụng vòng lặp For duyệt ngược để xóa bớt các mục trong List danh sách Bai_Combo của chương 6. Khi đó chương 7 chỉ hiện lên 10 bài tập trong List, nên tôi phải thêm vào List danh sách Bai_Combo của chương 7 số bài tập tương ứng nhưđã chọn bằng việc sử dụng vòng lặp For như trên. Kết quả, khi chạy chương trình List của Bai_Combo hiện đúng với số lượng bài tập đưa ra.