Lấy tên các LB trong form

[nguyendangkhoi]

nhờ các anh chị chỉ em cách đếm và lấy tên các Listbox hiện có trong form.

Cám ơn các anh chị nhiều

 

[thuyyeu99]

nhờ các anh chị chỉ em cách đếm và lấy tên các Listbox hiện có trong form.

Cám ơn các anh chị nhiều

đếm thì bạn dùng cái này

Sub Test()
  
  Dim a As Long
  a = UserForm1.Controls.Count
  MsgBox a
End Sub

 

[PhanTuHuong]

Code trên chưa ổn, nhưng chỉ xác định được Name (đã đặt):

Sub Test()
  Dim Ctr As Control
  For Each Ctr In UserForm1.Controls
    MsgBox Ctr.Name
  Next
    Msgbox UserForm1.Controls.count
  Set Ctr = Nothing
End Sub

 

[sealand]

Mình thấy code của các bạn có phần không ổn :
-Phần đếm thì đếm tất
-Lấy tên thì cũng lấy tất nếu trên Form ngoài các ListBox còn nhiều điều khiển khác.
Mình tham gia đoạn Code chỉ đếm và lấy tên các điều khiển là ListBox:

Private Sub CommandButton1_Click()
dim i as Integer
Dim Ctr As Control
For Each Ctr In Me.Controls
If [B][COLOR=Blue]TypeName(Ctr) = "ListBox"[/COLOR][/B] Then
 MsgBox Ctr.Name
i=i+1
end if
Next
Msgbox "Co " & i & " ListBox tren Form"
End Sub