Cái này thì em biết nhưng không đúng ý em. Ý em là sao cho khi chọn trong listbox các số 1 và 2 và ....thì trong textbox đếm sẽ đếm được là 2..n chứ không phải chỉ chọn một số và số thứ tự của số đó trong listbox. Mong được hồi âmanhphuong đã viết:
dmtdmtbb đã viết:- Đếm số bàn có khách và số bàn trống của CFC-GBE hìhì !!!
yeudoi đã viết:
Private Sub UserForm_Initialize()
cmdAdd_Click
End SubPrivate Sub cmdAdd_Click()
SelectAll
Delete
For i = 0 To LB.ListCount - 1
On Error Resume Next
If LB.Selected(i) = True Then
LBK.AddItem LB.List(i)
Else
LBT.AddItem LB.List(i)
End If
Next i
[COLOR=red]txtK = LBK.ListCount
[/COLOR] [COLOR=red]txtT = LBT.ListCount[/COLOR]
End SubPrivate Sub cmdAdd_Click()
Dim i, j
j = 0
For i = 0 To LB.ListCount - 1
On Error Resume Next
If LB.Selected(i) = True Then
j = j + 1
End If
Next i
txtK = j
txtT = LB.ListCount - j
End Subyeudoi đã viết:
Private Sub cmdAdd_Click()
SelectAll
Delete
For i = 0 To LB.ListCount - 1
On Error Resume Next
If LB.Selected(i) = True Then
LBK.AddItem LB.List(i[COLOR=red][B], 1[/B][/COLOR])
Else
LBT.AddItem LB.List(i[COLOR=red][B], 1[/B][/COLOR])
End If
Next i
End Sub- Một số lưu ý như sau
+ [B].List( dòng , cột )[/B], giá trị đầu tiên lấy từ 0
VD: dòng 1,cột 2 thì [B].List(0,1)[/B]
+ Để điếm được tổng số phần tử trong List thì i chạy từ (i=0 To .ListCount -1) hay ( i=1 To .ListCount )
+ [B].Selected(i)[/B] phần tử thứ i được chọn
+ Phần tử được chon khi thuộc tính ([B]MultiSelect = fmMultiSelectSingle)[/B]
[B] .List(LB.Listindex,0).[/B]
[B]+[/B] Bạn nên nắm rõ cách sử lí khi ([B]MultiSelect = fmMultiSelectSingle)[/B]
hay([B]MultiSelect = fmMultiSelectMulti)[/B] thì sẽ điều khiển được ListBox.
+ Trong file vd trên thì thuộc tính của ListBox là [B]( [/B][B]MultiSelect = fmMultiSelectMulti ).[/B]
Để thấy rỏ điều đó bạn chọn Properties [B]([/B] [B].ListStyle là Option )[/B]
