Tezam
Messages postés11Date d'inscriptionvendredi 11 octobre 2002StatutMembreDernière intervention22 novembre 2002 22 oct. 2002 à 13:05
Pour la combobox :
tu fais :
cboImage.AddItem = "toto"
cboImage.AddItem = "titi"
Apres tu fais un switch case :
switch cboImage.Text
Select case "toto"
LoadResPicture(101, vbResIcon)
case "titi"
LoadResPicture(102, vbResIcon)
End Select
Voila en gros ce que tu dois faire.
Salut et bon code.
A+
cs_patoch
Messages postés62Date d'inscriptionjeudi 12 avril 2001StatutMembreDernière intervention25 septembre 2007 22 oct. 2002 à 18:29
Voila mon source et
ca ne marche pas
-----------POURQUOI????????????
Private Sub Combo1_Change()
Switch Combo1.Text
Select Case "Ain"
Image1.Picture = LoadResPicture(0, 0)
Case "Aisne"
Image1.Picture = LoadResPicture(1, 0)
End Select
End Sub
Private Sub form_load()
Combo1.AddItem "Ain"
Combo1.AddItem "Aisne"
End Sub