Discussion :

[tardmonkey]

Bonjour, j'ai un problème dans la manipulation d'un Array, étant grand débutant en VB et comprenant à moitié ce que je fais .. pas étonnant !
Je remplis une combobox avec les sous-dossiers de C:\Drivers et ensuite je cherche à afficher chaque dossier avec une MsgBox

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Private Sub bt_Send3_Click(sender As System.Object, e As System.EventArgs) Handles bt_Send3.Click
 
 
'Fill the ComboBox3 with directories of C:\Drivers
Dim getMachin As String = "C:\Drivers"
        For Each directoryJob As String In Directory.GetDirectories(getMachin)
            Me.ComboBox3.Items.Add(directoryJob)
        Next
 
Dim myArray() As System.Object = New Object()
 
 
        'Clear myArray
        Array.Clear(myArray, 0, myArray.Count)
 
        'Copy the ComboBox3 items starting at zero
        ComboBox3.Items.CopyTo(myArray, 0)
 
 
        For Each nom As String In myArray
 
            MsgBox(nom)
 
        Next
 
 End Sub

Et donc à la ligne "Dim myArray() As System.Object = New Object()" il me sort l'erreur : "Impossible d'effectuer un cast d'un objet de type 'System.Object' en type 'System.Object[]'.". J'ai beau chercher dès que je change quelque chose il me sort une erreur à une autre ligne .. J'ai du foirer quelque chose en beauté

Si quelqu'un pouvait m'aider .. merci!

[rv26t]

Bonjour,

Je remplis une combobox avec les sous-dossiers de C:\Drivers et ensuite je cherche à afficher chaque dossier avec une MsgBox

Tu peux parcourir la collection de la combobox

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
        Dim getMachin As String = "C:"
        For Each directoryJob As String In Directory.GetDirectories(getMachin)
            Me.ComboBox3.Items.Add(directoryJob)
        Next
 
        For Each nom As String In Me.ComboBox3.Items
            MsgBox(nom)
        Next

Sinon il est préférable d'utiliser une liste plutôt qu'un tableau

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
        Dim lst As List(Of String) = New List(Of String)
        Dim getMachin As String = "C:"
        For Each directoryJob As String In Directory.GetDirectories(getMachin)
            Me.ComboBox3.Items.Add(directoryJob)
            lst.Add(directoryJob)
        Next
 
        For Each nom As String In lst
            MsgBox(nom)
        Next

A+, Hervé.

[tardmonkey]

Merci ! Clair et rapide