Probleme Vb Boite de dialogue Fermé

Question

Bonjour,

Je voudrais afficher une boite de dialogue en vb avec une liste déroulante affichant tous les mois.

Je voudrais ensuite récupérer la valeur numérique du mois.

Merci Beaucoup pour l'aide.

jlorti · Answer

En Vb6

tu dessines une Combox sur ta feuiile. Tu demandes les propriétés de la CombBox et du cliques sur la propriété List
Là tu saisis Janvier ..... Décembre

quand tu lances le programme tu obtiens une liste déroulante avec les 12 mois. Un clic sur un de ces mois et il s'affiche là où tu l'as décidé par exemple une textBox

Dans la textBox il faut avoir écrit les conditions 
If mois ="Janvier" then NumeroMois =1
If mois ="Février" then NumeroMois =2
et ainsi de suite
Selon le choix du mois, NumeroMois prendra la valeur de 1 à 12

En Vb2005
c'est pareil mais la propriété List de la comboBox n'existe pas. Il faut choisir la propriété Item

algoplus · Answer

tu mets le code ci dessous dans une sub qui se declenche au démarrage (load je crois?)

    ComboBox1.AddItem "Janvier"        'ListIndex = 0
    ComboBox1.AddItem "Février"        'ListIndex = 1
    ComboBox1.AddItem "Mars"           'ListIndex = 2
    ComboBox1.AddItem "Avril"           'ListIndex = 3
    ComboBox1.AddItem "Mai"             'ListIndex = 4
    ComboBox1.AddItem "Juin"            'ListIndex = 5
    ComboBox1.AddItem "Juillet"          'ListIndex = 6
    ComboBox1.AddItem "Aout"           'ListIndex = 7
    ComboBox1.AddItem "Septembre"    'ListIndex = 8
    Comb.................................

Les mois vont apparaitre dans ta combobox. 
chaque "item" d"une combobox a un index, le premier étant 0.
Quand tu clique sur un mois c'est la sub "ComboBox1_Click()" qui va se déclencher. Tu y récupère alors le N° index de l'item sur lequel tu viens de cliquer (+1 puique il y a un décalage du depart à 0)

Private Sub ComboBox1_Click()
    Variable = ComboBox1.ListIndex + 1
End Sub

Probleme Vb Boite de dialogue

2 réponses

Discussions similaires