Controlli - Dbcombo Assegna ValoreList

Visual # esempio di un dbcombo non agganciato a campo mdb
Private Sub form_resize()
On Error Goto err_driver
drive1.drive = "a:"
data1.recordset.movelast
data2.recordset.movelast
' esempio di un dbcombo non agganciato a campo mdb

' combo2.additem "dos"

' combo2.itemdata(combo2.newindex) = "010"

' combo2.additem "window 3.11"

' combo2.itemdata(combo2.newindex) = "020"

' combo2.additem "window 95"

' combo2.itemdata(combo2.newindex) = "030"

' combo2.additem "window 95"

' combo2.itemdata(combo2.newindex) = "040"

'

'combo3.additem "sistemi operativi"

'combo3.itemdata(combo3.newindex) = "010"

'combo3.additem "programmi generici"

'combo3.itemdata(combo3.newindex) = "020"

'combo3.additem "procedure in clipper"

'combo3.itemdata(combo3.newindex) = "030"

'combo3.additem "giochi"

'combo3.itemdata(combo3.newindex) = "040"

'combo3.additem "musica"

'combo3.itemdata(combo3.newindex) = "050"

'combo3.additem "archivi in dbf"

'combo3.itemdata(combo3.newindex) = "060"

'combo3.additem "archivi in mdb"

'combo3.itemdata(combo3.newindex) = "070"

'combo3.additem "grafica"

'combo3.itemdata(combo3.newindex) = "080"

'combo3.additem "icone e immagini"

'combo3.itemdata(combo3.newindex) = "090"

'combo3.additem "gestionali ed integrati"

'combo3.itemdata(combo3.newindex) = "100"

'combo3.additem "utility"

'combo3.itemdata(combo3.newindex) = "110"

'combo3.additem "antivirus"

'combo3.itemdata(combo3.newindex) = "120"

'combo3.additem "internet e network"

'combo3.itemdata(combo3.newindex) = "130"

'

err_driver:
End Sub