Dim objMSN As New MessengerAPI.Messenger
Dim chlContacts As New CheckedListBox Sous frmMain_Load privé (expéditeur de ByVal comme objet, ByVal e comme System.EventArgs) Poignées Me.Load
Dim msncontact Comme MessengerAPI. IMessengerContact Dim msncontacts Comme MessengerAPI.IMessengerContacts = objMSN.MyContacts
' Get rid of anything in the list.
lsvUser.Items.Clear()
' Loop through all the contacts and add the SigninName to the list.
For Each msncontact In msncontacts
Dim lv As ListViewItem = lsvUser.Items.Add(msncontact.SigninName, IIf(msncontact.Status = 2, 0, 1))
lv.SubItems.Add(IIf(msncontact.Status = 2, "On-Line", "Off-Line"))
Next
End Sub
Pourquoi est-ce? php taguées – middus
peut-être à cause de 'P'lease' h'el'p '??? –