[VB.net 2005] Valeur par defaut Deroulante [Résolu/Fermé]

Signaler
Messages postés
759
Date d'inscription
mardi 13 mars 2007
Statut
Membre
Dernière intervention
22 janvier 2014
-
 Chuppas -
Bonjour,

J'ai une liste déroulante et j'aimerai avoir au demarrage une valeur par defaut.

Voila mon code
Public Sub liste_deroulante_mois(ByVal nom_liste As ComboBox)

        nom_liste.Items.Add("Janvier")
        nom_liste.Items.Add("Fevrier")
        nom_liste.Items.Add("Mars")
        nom_liste.Items.Add("Avril")
        nom_liste.Items.Add("Mai")
        nom_liste.Items.Add("Juin")
        nom_liste.Items.Add("Juillet")
        nom_liste.Items.Add("Aout")
        nom_liste.Items.Add("Septembre")
        nom_liste.Items.Add("Octobre")
        nom_liste.Items.Add("Novembre")
        nom_liste.Items.Add("Decembre")
    End Sub

3 réponses

Messages postés
759
Date d'inscription
mardi 13 mars 2007
Statut
Membre
Dernière intervention
22 janvier 2014
158
je dirais meme mieux :

  Dim mois_en_cour As Date
        ComboBox_mois.Text = ComboBox_mois.Items(mois_en_cour.Month + 1)


Merci à toi.
ComboBox1.SelectedIndex = 0 te mettra la première ligne de ton comboxbox1
Messages postés
759
Date d'inscription
mardi 13 mars 2007
Statut
Membre
Dernière intervention
22 janvier 2014
158
Personne sait comment faire?
Messages postés
25
Date d'inscription
dimanche 11 février 2007
Statut
Membre
Dernière intervention
28 avril 2013

Salutafrodj,
Voilà une proposition de solution: tu insères le code qui suit, soit dans ta sub d'initialisation soit dans ta sub de routine

ComboBox1.Text=ComboBox.list(MoisNum-1)

MoisNum correspond au rang du mois dans l'année; c'est un entier
Voilà ça devrait fonctionner!
à+
PaPy50