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

Question

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

afrodje · Answer

Personne sait comment faire?

PaPy36 · Answer

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

afrodje · Answer

je dirais meme mieux :

  Dim mois_en_cour As Date
        ComboBox_mois.Text = ComboBox_mois.Items(mois_en_cour.Month + 1)

Merci à toi.

[VB.net 2005] Valeur par defaut Deroulante

3 réponses

Discussions similaires

Newsletters