UTILISER LES INTERFACES COM RÉSEAU SOUS VISTA

Commentaire de Redman31100 le 06/10/2008 13:08:16

Le système de filtre ne marche pas, alors je l'ai arrangé à ma sauce.

Commentaire de Redman31100 le 06/10/2008 19:28:06

J'utilise la même version que toi VB9.

Et je t'assure que ça ne marche pas de mon côté j'ai vu le code, j'ai vu que tu utilisais un enum, ton code parait juste pourtant chez moi ca ne marche pas, je change la combobox pour changer le filtre, je fais lister en déconnecté, all et connecté c'est toujours pareil, normalement connectés et déconnectés la liste doit être différente.

Commentaire de Redman31100 le 06/10/2008 20:30:18

Private Sub btnGetNetworks_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGetNetworks.Click
        ' Listage des Résaux
        MyExistingNetworks = MyNetworkManager.GetNetworks(Vista.NLM.NETWORK_FILTER.ALL)

        Select Case cmbNetworkFilter.SelectedIndex
            Case 0 ' Connectés
                lstbAvailableNetworks.Items.Clear()
                For Each NetWork As Vista.NLM.Network In MyExistingNetworks
                    If NetWork.IsConnected Then
                        lstbAvailableNetworks.Items.Add(NetWork.Name)
                    End If
                Next
            Case 1 ' Déconnectés
                lstbAvailableNetworks.Items.Clear()
                For Each NetWork As Vista.NLM.Network In MyExistingNetworks
                    If Not NetWork.IsConnected Then
                        lstbAvailableNetworks.Items.Add(NetWork.Name)
                    End If
                Next
            Case 2 ' Tous
                lstbAvailableNetworks.Items.Clear()
                For Each NetWork As Vista.NLM.Network In MyExistingNetworks
                    lstbAvailableNetworks.Items.Add(NetWork.Name)
                Next
        End Select
    End Sub

    Public Function GetIndexFromExistingNetWorks()
        Dim index As Integer
        Dim indexvalue As String = lstbAvailableNetworks.SelectedItem

        For Each NetWork As Vista.NLM.Network In MyExistingNetworks
            If NetWork.Name = indexvalue Then
                index = MyExistingNetworks.IndexOf(NetWork)
            End If
        Next

        Return index
    End Function

Sinon si on veut directement avoir la liste de tout les réseaux connectés dès le départ. On peut modifier ce code :

  Private Sub FormTest_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ' Listage des Résaux
        MyExistingNetworks = MyNetworkManager.GetNetworks(Vista.NLM.NETWORK_FILTER.ALL)

        lstbAvailableNetworks.Items.Clear()
        For Each NetWork As Vista.NLM.Network In MyExistingNetworks
            If NetWork.IsConnected Then
                lstbAvailableNetworks.Items.Add(NetWork.Name)
            End If
        Next

        cmbNetworkFilter.SelectedIndex = 0
    End Sub

Voilà

Commentaire de Willi le 07/10/2008 09:30:45 administrateur CS

Merci d'avoir apporté ce correctif ^^