listebox vb 2013

Version imprimable

24/06/2016, 10h12
achill2005

listebox vb 2013

Bonjour
je suis débutant en vb.net,
s'il vous plait je veux beneficier de votre aide..
j'ai une listebox dans un formulaire, cette liste box je l'alimente d'une table access
while (myreader.read())
dim element as string = myreader('gov_lib').tostring
listbox.items.add(element)
end while

ma table est composé de dex champs, id_gov et gov_lib . l'id est composé de 3 chiffres.
la liste box m'affiche les gouvernorat, mais j'ai besoin de savoir comment faire pour que je passe une valeur a chaque element. c'est a dire la liste affiche les nom des gouvernorats et sauvegarde une valeur qui sera celle du id_gov. ainsi los de l'negistrement à partir d'un formaulaire je sauvegarde directement la valeur de l'item selectionné. listebox.selected.value()

Bonjour,

moi j'utilise le tag.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
 
Dim Index_lng As Long
 
            AnRef_lst.Items.Clear()
            AnRef_lst.Text = ""
 
            Req_str = "SELECT IdAnRef, RefAnRef FROM anref ORDER BY DebutAnRef DESC "
            Recset1.Open(Req_str, GicLoc_cnx, ADODB.CursorTypeEnum.adOpenStatic, ADODB.LockTypeEnum.adLockReadOnly)
            Do Until Recset1.EOF
                Index_lng = AnRef_lst.Items.Add(AfficheTexte(Recset1.Fields.Item("RefAnRef").Value))
                ReDim Preserve AnRef_lst.Tag(Index_lng + 1)
                AnRef_lst.Tag(Index_lng) = Recset1.Fields.Item("IdAnRef").Value

Bonjour,

moi j'utilise le tag.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
 
           Dim Index_lng As Long
 
            AnRef_lst.Items.Clear()
            AnRef_lst.Text = ""
            Index_lng = AnRef_lst.Items.Add("ici le texte qui s'affiche")
            ReDim Preserve AnRef_lst.Tag(Index_lng + 1)
 
 
            Req_str = "SELECT IdAnRef, RefAnRef FROM anref ORDER BY DebutAnRef DESC "
            Recset1.Open(Req_str, GicLoc_cnx, ADODB.CursorTypeEnum.adOpenStatic, ADODB.LockTypeEnum.adLockReadOnly)
            Do Until Recset1.EOF

Bonjour,

moi j'utilise le tag.

Code:

1
2
3
4
5
6
7
8
 
           Dim Index_lng As Long
 
            AnRef_lst.Items.Clear()
            AnRef_lst.Text = ""
            Index_lng = AnRef_lst.Items.Add("ici le texte qui s'affiche") ''gov_lib' pour toi
            ReDim Preserve AnRef_lst.Tag(Index_lng + 1)
            AnRef_lst.Tag(Index_lng) = Ici le code 'id_gov  pour toi

Il faudra ensuite lire le tag de la ligne sélectionnée.

Code:

AnRef_lst.Tag(AnRef_lst.SelectedIndex)

24/06/2016, 11h02
achill2005

merci , donc je devrai passer obligatoirement par tag?
parce que ce qui m'intrigue c'est qu'avec les outils visuels, lors de la creation d'une listebox, on peux lui assigner deux champs de table, et choisir que le deuxieme champs sera affiché alors que le premier sera consacré aux valeur réelle des elements, et ce en limitant la liste à un seul champ.
y a til une traduction de cette solution visuelle en lignes de code? Si c pas trop demander