Aide avec ComboBox

Version imprimable

Aide avec ComboBox

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

Voici le code.

Code:

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.

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:

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 ...

Citation:
Envoyé par _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:

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.

17/12/2014, 10h55
_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. ;)
18/12/2014, 12h00
slaborde

Citation:

Envoyé par _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. ;)

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