2009-09-10 5 views

Répondre

-1

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 
Questions connexes