Всем привет.
Хочу сделать при нажатие на кнопку , чтобы в listbox появились контакты , которые в сети.У меня получается , но при нажатие на кнопку ещё раз , он дополняется теме же пользователями.
Вот код при нажатие будет показан список контактов онлайн.
Есть исходник на C# там нормально при переходе с полного списка на онлайн список , все нормально.
Если не трудно, помогите)
Код:
For i As Integer = 0 To AxSkype1.HardwiredGroups.Count - 1
If AxSkype1.HardwiredGroups(i + 1).Type = TGroupType.grpAllFriends Then
For j As Integer = AxSkype1.HardwiredGroups(i + 1).Users.Count To 1 Step -1
ListBox1.Items.Add(AxSkype1.HardwiredGroups(i + 1).Users(j).Handle)
Next
Exit For
End If
Next
listbox1.items.clear()
For i As Integer = 0 To AxSkype1.HardwiredGroups.Count - 1
If AxSkype1.HardwiredGroups(i + 1).Type = TGroupType.grpAllFriends Then
For j As Integer = AxSkype1.HardwiredGroups(i + 1).Users.Count To 1 Step -1
ListBox1.Items.Add(AxSkype1.HardwiredGroups(i + 1).Users(j).Handle)
Next
Exit For
End If
Next