Bonjour. J'ai un probleme avec la combo box qui fonctionne pas comme je le souhaite.

Voici le code.

Code VB.net : 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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
Imports System.Text.RegularExpressions
Imports System.Net
Imports System.Threading
Imports System.IO
 
Public Class Form1
 
    Dim savefile As Object
    Dim ListBox1 As Object
 
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        For i As Integer = 0 To NumericUpDown1.Value
 
 
            Dim website As String = "http://premiersite.com=" & i
            Dim website2 As String = "http://secondsite.com=" & i
            Dim wcli As WebClient
            Dim source As String = False
            Dim source2 As String = False
 
 
 
            If ComboBox1.SelectedItem = "premier" Then
                source = True
            End If
 
            If ComboBox1.SelectedItem = "second" Then
                source2 = True
            End If
 
 
 
            wcli = New WebClient()
            source = wcli.DownloadString(website)
            source2 = wcli.DownloadString(website2)
            Invoke(New MethodInvoker(Sub() nameList.Items.Add(source)))
            Invoke(New MethodInvoker(Sub() nameList.Items.Add(source2)))
 
 
 
 
 
 
        Next
 
 
 
 
    End Sub
 
 
 
 
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim StreamW As New IO.StreamWriter("C:\Users\Tazz\Desktop\source.txt")
        For i = 0 To Namelist.Items.Count - 1
            StreamW.WriteLine(Namelist.Items.Item(i))
        Next
 
        StreamW.Close()
        StreamW.Dispose()
        MsgBox("DONE")
    End Sub
 
    Private Sub nameList_SelectedIndexChanged(sender As Object, e As EventArgs) Handles Namelist.SelectedIndexChanged
 
    End Sub
 
    Private Sub NumericUpDown1_ValueChanged(sender As Object, e As EventArgs) Handles NumericUpDown1.ValueChanged
 
    End Sub
 
    Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
 
 
    End Sub
End Class

Je voudrais que quand je selectionne premier dans la combo box, cela me récuper la source du site premier.com et quand je selectionne second, cela me récuper la source de second.com

Avec se code que je selectionne premier ou second, ça me récuper toujours les sources de premier.com. et second.com en meme temps.
J'ai essayer differente chose avec le = false, mais j'avoue que je ne sais pas vraiment ou le mettre. Soit cela ne change rien soit cela me fait des erreure.

Si vous pouviez me dire d'ou vient mon probleme svp . Merci.