Discussion :

[Herzele]

Salutation,

je suis novice en vb.net et j'ai un petit souci depuis une heure, je sens que la réponse est probablement très simple mais pas moyen de mettre le doigt sur ce qui coince.

Le problème :
Je génère un dictionnaire à partir d'un fichier CSV :

Code :

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

1
2
3
4
5
6
7
8
 
Public Sub MajBaseItem()
        Dim tmp_ligne() As String
        For Each ligne As String In File.ReadLines("U:\PRIVE\Correspondance ID - Nom.csv")
            tmp_ligne = Split(ligne, ";")
            dictionnaireItems.Add(tmp_ligne(0), tmp_ligne(1))
        Next
    End Sub

Puis je fais une recherche dedans à l'aide de la fonction suivante ;

Code :

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

1
2
3
4
5
6
 
    Public Function RechercheNomItem(ByRef ID As Integer)
        Dim nomModule As String
        dictionnaireItems.TryGetValue(ID, nomModule)
        Return nomModule
    End Function

Et enfin j'affiche le résultat dans une textbox :

Code :

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

1
2
3
4
5
6
 
    Private Sub BT_Recherche_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BT_Recherche.Click
        Dim NomModuleAffichage As String
        NomModuleAffichage = RechercheNomItem(Id)
        LB_ID.Text = NomModuleAffichage
    End Sub

L'Id envoyé provient d'une textbox également :

Code :

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

1
2
3
4
 
    Private Sub TB_SearchId_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TB_SearchId.TextChanged
        Id = TB_SearchId.Text
    End Sub

Sauf que la textbox m'affiche systématiquement... rien.
J'ai testé la fonction avec son dictionnaire en version console, avec un readline pour l'ID envoyé, pas de souci il me renvoie bien la valeur. Mais impossible de lui faire afficher cette valeur dans la textbox, et là je cale.

Au secours !

[eagleleader]

C'est moi ou tu utilises un LABEL nomme LB et non ta textbox pour mettre ton resultat ?

Code :

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

1
2
3
4
5
Private Sub BT_Recherche_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BT_Recherche.Click
        Dim NomModuleAffichage As String
        NomModuleAffichage = RechercheNomItem(Id)
        TB_SearchId.Text = NomModuleAffichage
    End Sub