Discussion :

[slaborde]

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.

[_Ez3kiel]

Sauf erreur, tes variables source et source2 sont déclarées comme String alors que tu leurs assignent False ou True dans un premier temps, puis le code source dans un second ... Y'a une logique de type à revoir je pense...

Même dans ta programmation y'a certaines logiques que je comprend pas ... Tu fais tes 2 chargements de code source en parallèle et ce en doublant toutes tes variables alors qu'il n'y en a pas l'utilité ... Tu alourdis ton code et occupe des réfs mémoires pour rien ...

En essayant de garder ta logique d'algo de base on peut raccourci un peu tout ç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
  Dim source As String
        Dim website As String
        Dim wcli As WebClient
 
        For i As Integer = 0 To NumericUpDown1.Value
 
            If ComboBox1.SelectedItem = "premier" Then
                website = "http://premiersite.com=" & i
            ElseIf ComboBox1.SelectedItem = "second" Then
                website = "http://secondsite.com=" & i
            End If
 
            wcli = New webclient
            source = wcli.DownloadString(website)
            Invoke(New MethodInvoker(Sub() nameList.Items.Add(source)))
 
        Next

Et n'hésite pas à mettre un try catch dès fois que .DownloadString retourne une exception (ou même pour le reste). Et également pense qu'il est possible que l'utilisateur ne sélectionne rien dans la combo mais qu'il clique quand même sur Button1, ce faisant ta variable website ne serait pas affecté avec "http://[...]" et donc ton downloadstring planterait ...

[slaborde]

Sauf erreur, tes variables source et source2 sont déclarées comme String alors que tu leurs assignent False ou True dans un premier temps, puis le code source dans un second ... Y'a une logique de type à revoir je pense...

Même dans ta programmation y'a certaines logiques que je comprend pas ... Tu fais tes 2 chargements de code source en parallèle et ce en doublant toutes tes variables alors qu'il n'y en a pas l'utilité ... Tu alourdis ton code et occupe des réfs mémoires pour rien ...

En essayant de garder ta logique d'algo de base on peut raccourci un peu tout ç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
  Dim source As String
        Dim website As String
        Dim wcli As WebClient
 
        For i As Integer = 0 To NumericUpDown1.Value
 
            If ComboBox1.SelectedItem = "premier" Then
                website = "http://premiersite.com=" & i
            ElseIf ComboBox1.SelectedItem = "second" Then
                website = "http://secondsite.com=" & i
            End If
 
            wcli = New webclient
            source = wcli.DownloadString(website)
            Invoke(New MethodInvoker(Sub() nameList.Items.Add(source)))
 
        Next

Et n'hésite pas à mettre un try catch dès fois que .DownloadString retourne une exception (ou même pour le reste). Et également pense qu'il est possible que l'utilisateur ne sélectionne rien dans la combo mais qu'il clique quand même sur Button1, ce faisant ta variable website ne serait pas affecté avec "http://[...]" et donc ton downloadstring planterait ...

Merci pour les conseiles Ez3kiel. Je débute, il y a moins de 4 jours j'avais pas encore jamais ouvert logiciel de programation . En se moment je me doccumente beaucoup et j'en apprend chaques jours.

Encore merci.

[_Ez3kiel]

Je comprend mieux, alors je ne peux que t'inviter à lire le cours de Philippe Lasserre, il est bien expliqué avec des exemples, des screenshots, etc. Et si tu as des questions n'hésite pas à les poser sur le forum, les autres membres et moi y répondront avec plaisir.

[slaborde]

Je comprend mieux, alors je ne peux que t'inviter à lire le cours de Philippe Lasserre, il est bien expliqué avec des exemples, des screenshots, etc. Et si tu as des questions n'hésite pas à les poser sur le forum, les autres membres et moi y répondront avec plaisir.

J'ai commencé à regarder, j'aime beaucoup. L'exeple avec la(les) voiture, c'est une sacré bonne idée. Merci.