none
Combobox1 pour rendre mon combo read only RRS feed

Réponses

  • Bonjour FrançoisM
    Le 11/05/2012 00:59, FrançoisM a écrit :
    > J aimerais que l utilisateur peu chosir dans la liste des items selement
    > et de ne pas ecrit un nouvaux text
    > ------------------------------------------------------------------------
    >
    > Francois Masse
    >
     
    Me.ComboBox1.DropDownStyle = ComboBoxStyle.DropDownList
     
    Voir :
     
     
    --
     
    Cordialement,
     
    Jacques.
     

    Cordialement, Jacques
    vendredi 11 mai 2012 00:33
  • Par exemple:

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
              Dim mois() As String = New String() {"Janvier", _
                "Février", "Mars", "Avril", "Mai", "Juin", "Juillet", _
                "Août", "Septembre", "Octobre", "Novembre", "Décembre"}
    
            With Me.ComboBox1
                .DropDownStyle = ComboBoxStyle.DropDownList
                .Items.AddRange(mois)
                ' Selection par le texte
                .SelectedIndex = .FindStringExact(MonthName(Month(Now())))
                ' ou par l'indice
                .SelectedIndex = Month(Now) - 1
            End With
        End Sub
    


    Cordialement, Jacques

    vendredi 11 mai 2012 22:29

Toutes les réponses

  • Bonjour FrançoisM
    Le 11/05/2012 00:59, FrançoisM a écrit :
    > J aimerais que l utilisateur peu chosir dans la liste des items selement
    > et de ne pas ecrit un nouvaux text
    > ------------------------------------------------------------------------
    >
    > Francois Masse
    >
     
    Me.ComboBox1.DropDownStyle = ComboBoxStyle.DropDownList
     
    Voir :
     
     
    --
     
    Cordialement,
     
    Jacques.
     

    Cordialement, Jacques
    vendredi 11 mai 2012 00:33
  • ok ca fonctionne et pour avoir un des items par default afficher


    Francois Masse

    vendredi 11 mai 2012 21:29
  • Par exemple:

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
              Dim mois() As String = New String() {"Janvier", _
                "Février", "Mars", "Avril", "Mai", "Juin", "Juillet", _
                "Août", "Septembre", "Octobre", "Novembre", "Décembre"}
    
            With Me.ComboBox1
                .DropDownStyle = ComboBoxStyle.DropDownList
                .Items.AddRange(mois)
                ' Selection par le texte
                .SelectedIndex = .FindStringExact(MonthName(Month(Now())))
                ' ou par l'indice
                .SelectedIndex = Month(Now) - 1
            End With
        End Sub
    


    Cordialement, Jacques

    vendredi 11 mai 2012 22:29