Lấy tất cả tên đối tượng trong userform

[htclub]

Pác nào giúp đỡ code lấy tất cả tên đối tượng trong userform (listbox,combobox,textbox,label...)

 

[Po_Pikachu]

Code thì chỉ có như vầy thôi. Mình nghĩ bạn xem file chắc sẽ hiểu ha!

Private Sub CommandButton2_Click()
Dim temp As String
For Each MyControl In Controls
    temp = MyControl.Name & Chr(10) & temp
Next
MsgBox (Controls.Count & Chr(10) & temp)
MsgBox (Controls("Label" & 1).Caption)
End Sub

Thân.

 

[htclub]

Private Sub CommandButton2_Click()
Dim temp As String
For Each MyControl In Controls
temp = MyControl.Name
MsgBox (Controls(temp).Caption)
Next

End Sub

 

[htclub]

Tôi sửa code lại như này sao lại báo lỗi nhỉ

Private Sub CommandButton2_Click()
     Dim temp As String
     For Each MyControl In Controls
        temp = MyControl.Name
        MsgBox (Controls(temp).Caption)
     Next
End Sub

 

[Po_Pikachu]

Đâu phải cái nào cũng có Caption đâu bạn? Như Listbox, Textbox đâu có Caption đâu. Vậy làm sao nó viết cho bạn xem được.
Thân.