none
affichage par code d'un item d'un combobox RRS feed

  • Question

  • bonjour

     je viens d’écrire un code qui doit me permettre d'afficher un item d'un combobox quand je sélectionne un item d'une liste box et rien ne se passe

    par  contre si je fias cette action via un bouton cela fonctionne qui peut m'expliquer pourquoi  ou si j’ai fait une erreur merci de votre aide je vous transmet les deux codes

     le combobox contient 4 items 

    Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
            Dim A As String = ListBox1.SelectedItem
            MsgBox("A=" & A)
            If A = "Msa" Then
    
                ComboBox1.SelectedItem = 2
                ComboBox1.Sorted = True
    
    
    
            End If
        End Sub
    
        Private Sub Button1_Click(sender As Object, e As System.EventArgs) Handles Button1.Click
            ComboBox1.Sorted = True
            ComboBox1.SelectedIndex = 3
        End Sub
    merci encore de votre aide qui me permet de progresser

    mardi 24 novembre 2015 10:08

Réponses

  • Bonjour,

    Pour initialiser au premier élément vous pouvez utiliser l'évent Load.

      Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
            Me.ComboBox1.SelectedIndex = 0
        End Sub

    Pour correspondre la liste avec le combo vou pouvez simplement faire.

     Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged
            Dim A As String = ListBox1.SelectedItem
            Me.ComboBox1.Sorted = True
            Me.ComboBox1.SelectedIndex = ListBox1.SelectedIndex
        End Sub

    Joël

    • Marqué comme réponse SIMONGEORGES mercredi 25 novembre 2015 12:12
    mercredi 25 novembre 2015 10:33

Toutes les réponses

  • Bonjour,

    Pouvez vous essayé ce code ?

      Dim A As String = ListBox1.SelectedItem
            MsgBox("A=" & A)
            If A = "Msa" Then
                Me.ComboBox1.Sorted = True
                Me.ComboBox1.SelectedIndex = 2
            End If

    Cordialement,

    Joël

    mardi 24 novembre 2015 12:39
  • bonjour

    je viens de le tester mais je rencontre un  petit soucis  mon combobox contient 5 item et ma liste box 5 items cela fonctionne bien mais quand le choisi le 5° item de la listbox  j’obtiens toujours le 4° item du combobox je comprends pas pour quoi

    mercredi 25 novembre 2015 07:06
  • comment faire pour que le combobox soit réinitialise sur le premier élément a chaque ouverture

    merci de votre aide

    mercredi 25 novembre 2015 08:34
  • Bonjour,

    Pour initialiser au premier élément vous pouvez utiliser l'évent Load.

      Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
            Me.ComboBox1.SelectedIndex = 0
        End Sub

    Pour correspondre la liste avec le combo vou pouvez simplement faire.

     Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged
            Dim A As String = ListBox1.SelectedItem
            Me.ComboBox1.Sorted = True
            Me.ComboBox1.SelectedIndex = ListBox1.SelectedIndex
        End Sub

    Joël

    • Marqué comme réponse SIMONGEORGES mercredi 25 novembre 2015 12:12
    mercredi 25 novembre 2015 10:33