Discussion :

[spamitovic]

Bonsoir,

Je possède un Listbox contenant une liste des logiciels a installer par exemple :
- Microsoft Word
- .NET Framework 3.5

Je veux que mon programme télécharge chacun de ces logiciels en commençant par le premier et ainsi de suite.

J'ai testé avec un logiciel et j'ai pu le télécharger et l'installer et ça marche sauf qu'avec plusieurs logiciels je n'ai pas réussi.

J'aimerai bien avoir une idée sur comment réaliser cela.

Merci beaucoup.

[tomlev]

Montre déjà ce que tu as fais jusqu'ici...

[spamitovic]

Salut

Code :

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

1
2
 
Private WithEvents dd As New df

Code :

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

1
2
3
4
 
If Me.lstlog.Items.Contains("1") Then
                url = "http://..."
                dd.download1(url, "C:\Windows\Temp" & "\ReportViewer." & Microsoft.VisualBasic.Right(url, 3), False)

Class df :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Public Sub download1(ByVal Source As String, ByVal Path As String, ByVal IsResume As Boolean)
        b = True
        bresume = IsResume
        timestart = 0
        pathname = Path
        urlz = Source
        Dim threadz As New System.Threading.Thread(AddressOf thread_launch)
        threadz.Start()
    End Sub

c ce que j'ai fais, pour ce bout de code tout marche bien, mais je n'arrive pas à faire en sorte qu'il telecharge tous les elements de la listbox.

[tomlev]

Je comprends pas grand chose à ton truc
Pourquoi tu testes s'il y a "1" dans les éléments de la liste ? c'est quoi le lien avec l'URL ? Les URL sont en dur dans le code ?

Moi j'aurais plutôt fait un truc comme ça :

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
' Représente un élement à télécharger
Class DownloadItem
    Public Text As String
    Public Url As String
End Class
 
...
 
' Remplissage de la liste
Dim lst As New List(Of DownloadItem)
lst.Add(New DownloadItem With { .Text = "Microsoft Word", .Url = "http://..." })
lst.Add(New DownloadItem With { .Text = ".NET Framework 3.5", .Url = "http://..." })
 
lstlog.DataSource = lst
lstlog.DisplayMember = "Text"
 
 
...
 
' Télécharger l'élément sélectionné
Dim item As DownloadItem = CType(lstlog.SelectedItem, DownloadItem)
dd.download1(item.Url, nomDuFichier)

[spamitovic]

Salut,

J'ai testé ton idée mais dans ma listbox j'ai deux lignes que je peux selectionner mais ne contiennent aucun texte (que d vide).

[tomlev]

J'ai testé ton idée mais dans ma listbox j'ai deux lignes que je peux selectionner mais ne contiennent aucun texte (que d vide).

Bizarre... tu as fais exactement comme j'ai dit ? en renseignant les propriétés DataSource et DisplayMember ?

[spamitovic]

Oui exactement !!!