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