COMMENT AFFECTER UNE VALLEUR DS UNE LISTBOXRésolu

Question

Je veux affecter une valeur  a chaque genre(anime,com&#233;die....)

Private Sub Form_Load()
Dim base As Database
Dim sql As String


Dim table As Recordset
Set base = DBEngine.OpenDatabase("DVD.mdb")


sql = "SELECT genre FROM genre"



Set table = base.OpenRecordset(sql)
table.MoveFirst
Do While (Not table.EOF)
   Form1.List1.AddItem table!genre
       table.MoveNext
Loop


End Sub


Private Sub List1_Click()
List2.Clear
    Select Case List1.ListIndex
    Case 0:
          List2.Clear
          List2.AddItem "00000"
    Case 1:
          List2.AddItem "11111"
    Case 2:
          List2.AddItem "22222"
    Case 3:
          List2.AddItem "33333"
    Case 4:
          List2.AddItem "44444"
    Case 5:
          List2.AddItem "55555"
    Case 6:
          List2.AddItem "54"
    Case 7:
          List2.AddItem "5"
    Case 8:
          List2.AddItem "5"
          
    End Select
End Sub

cs_DARKSIDIOUS · Accepted Answer

A ce moment l&#224; utilise la propri&#233;t&#233; ItemData du listbox, elle est fa&#238;te pour c&#224; : ca permet de lier une valeur num&#233;rique &#224; chaque item de ta listbox.

_____________________________________________________________________
DarK Sidious

Un API Viewer (pour le VB, VB.NET, C, C# et Delphi) tout en fran&#231;ais : www.ProgOtoP.com/popapi/

cs_DARKSIDIOUS · Answer

Salut,

La prochaine fois, pose au moins ta question...

Ma boule de cristal me dit : Qu'est-ce que tu veux faire au juste ?

_____________________________________________________________________
DarK Sidious

Un API Viewer (pour le VB, VB.NET, C, C# et Delphi) tout en fran&#231;ais : www.ProgOtoP.com/popapi/

freeman2003 · Answer

je veux affecter une valeur &#224; chaque genre qui sont plac&#233; dans la listbox
ex   1 pour anime
      2 pour com&#233;die
etc.......

COMMENT AFFECTER UNE VALLEUR DS UNE LISTBOX

3 réponses

Discussions similaires