Salve a tutti...è da 3giorni a qst parte k ho un grosso enigma...ho una funzione, se faccio così funziona:
codice:
Private Sub Messenger_OnSynchronizationCompleted(ByVal sender As Messenger, ByVal e As EventArgs) Handles messenger.SynchronizationCompleted
For Each contact As Contact In messenger.GetListEnumerator(MSNList.ForwardList)
MsgBox(contact.Status.ToString & " > " + contact.Name.ToString + " {" + contact.Mail.ToString + "}" & Microsoft.VisualBasic.Chr(13) & "" & Microsoft.VisualBasic.Chr(10) & "")
Next
For Each contact As Contact In messenger.ReverseList
MsgBox(contact.Status.ToString & " > " + contact.Name.ToString + " {" + contact.Mail.ToString + "}" & Microsoft.VisualBasic.Chr(13) & "" & Microsoft.VisualBasic.Chr(10) & "")
Next
For Each contact As Contact In messenger.BlockedList
MsgBox(contact.Status.ToString & " > " + contact.Name.ToString + "(Bloccato)" + " {" + contact.Mail.ToString + "}" & Microsoft.VisualBasic.Chr(13) & "" & Microsoft.VisualBasic.Chr(10) & "")
Next
For Each contact As Contact In messenger.AllowedList
MsgBox(contact.Status.ToString & " > " + contact.Name.ToString + " {" + contact.Mail.ToString + "}" & Microsoft.VisualBasic.Chr(13) & "" & Microsoft.VisualBasic.Chr(10) & "")
Next
End Sub
Se Faccio Così Il Programma Non Funziona e Crasha:
codice:
Private Sub Messenger_OnSynchronizationCompleted(ByVal sender As Messenger, ByVal e As EventArgs) Handles messenger.SynchronizationCompleted
For Each contact As Contact In messenger.GetListEnumerator(MSNList.ForwardList)
ListBox.Items.Add(contact.Status.ToString & " > " + contact.Name.ToString + " {" + contact.Mail.ToString + "}" & Microsoft.VisualBasic.Chr(13) & "" & Microsoft.VisualBasic.Chr(10) & ""))
Next
For Each contact As Contact In messenger.ReverseList
ListBox.Items.Add(contact.Status.ToString & " > " + contact.Name.ToString + " {" + contact.Mail.ToString + "}" & Microsoft.VisualBasic.Chr(13) & "" & Microsoft.VisualBasic.Chr(10) & ""))
Next
For Each contact As Contact In messenger.BlockedList
ListBox.Items.Add(contact.Status.ToString & " > " + contact.Name.ToString + "(Bloccato)" + " {" + contact.Mail.ToString + "}" & Microsoft.VisualBasic.Chr(13) & "" & Microsoft.VisualBasic.Chr(10) & ""))
Next
For Each contact As Contact In messenger.AllowedList
ListBox.Items.Add(contact.Status.ToString & " > " + contact.Name.ToString + " {" + contact.Mail.ToString + "}" & Microsoft.VisualBasic.Chr(13) & "" & Microsoft.VisualBasic.Chr(10) & ""))
Next
End Sub
mi sapete spiegare il xkè??