Thao tác liên tục trên một dãy đối tượng, mà trong tên đối tượng có biến - Variable in object name VB6.0
Ngày đăng: 09:09:17 06-03-2013
Đôi khi các bạn cần thao tác liên tục trên nhiều đối tượng có cùng tên nhưng chỉ khác nhau ở số chỉ mục .
Ví dụ : Label1, Label2..., Labelx.
Các đối tượng này không phải là mảng Array nên các bạn sẽ không thể thao tác liên tục nhưng thông thường được.
Vì vậy sử dụng cách bên dưới sẽ giúp bạn thao tác liên tục trên các đối tượng có chung 1 phần tên đối tượng...
Private Sub Command1_Click()
Dim i As Integer //số chỉ mục tên đối tượng
Dim j As String //chuyển số chỉ mục thành chuỗi String
For i = 1 To 10 //vòng lặp thao tác liên tục trên 10 Label, Label1 => Label10
j = Str(i) //chuyển số chỉ mục thành chuỗi String
j = Trim(j) //cắt bỏ các khoảng trắng do quá trình chuyển từ số sang chuỗi tạo ra
Me.Controls("Label" & j).Caption = "123" //ghép chuỗi và thao tác
Next
End Sub