Discussion :

[Attila54]

Bonsoir,
Dans mon appli, j'ai une combobox appelée txtdocteur qui réçoit une data issue d'un fichier excel sur déclenchement d'un bouton

Voila le bout de code qui charge la combo :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 rng = CType(Me.xlWorkSheetOne.Cells(10, 3), Microsoft.Office.Interop.Excel.Range)
            If Not txtDocteur.Items.Contains(rng.Value) Then
                txtDocteur.Items.Add(rng.Value)
            End If
            txtDocteur.SelectedItem = (rng.Value)

Tout fonctionne très bien

Ma sub "annuler" permet d'effacer les data dans les textbox et la combobox)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub Annuler_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Annuler.Click
        ' annuler l'examen en cours
        messageaff = "Cancellation of the consultation in progress"
        infoaff = "Software information"
        If MessageBox.Show(messageaff, infoaff, MessageBoxButtons.YesNo,    MessageBoxIcon.Question) = DialogResult.Yes Then
            Initialisecolor()       'mise a jour de la couleur des textbox
            InitialisationText()  'mise "" des textbox sauf combobox
 
            'initialisation du praticien et du patient
            txtDocteur.Text = ""     ' je mets à "" le contenu de la combobox
            txtPRENOM.Text = ""    ' je mets à "" le contenu de la textbox
            txtNOM.Text = ""         ' je mets à "" le contenu de la textbox
            TxtNAISSANCE.Text = "" ' je mets à "" le contenu de la textbox
    End If
    End Sub

Maintenant je fais un test :
je charge les data dans les textbox et dans la combobox ==> pas de souci la combobox se remplit
Je clique sur mon bouton annuler, la sub annuler() s’exécute, toutes mes textbox affichent "" ainsi que la combobox

Donc jusque la tout semble coller

Maintenant je tente de reloader exactement les mêmes datas
toutes les textbox se remplissent bien par contre la combobox reste déséspérement vide et mon beau message "please enter the customer" qui s'affiche quand :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If txtDocteur.Text = "" Then

Il y a donc un souci au second chargement de la combobox mais pas des textbox. Pourquoi d'après vous ? Faut il réinitialiser la combobox d'une autre manière ?

En C++ on met généralement l'itemIndex à -1 et le text = "" mais en vb.net j'arrive pas

Merci

[wallace1]

Bonsoir Attila54,

Voilà qui vide tous les items de ta combobox :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

txtDocteur.items.clear()

...et non :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

txtDocteur.text = ""

Ce dernier supprime uniquement l'item actif de ta combobox.

charge de nouveau ta combobox pour recharger tous les items.

[Attila54]

ok trouve

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 combobox.SelectedIndex = -1
          combobox.Text = ""

des fois que ça aide quelqu'un

ps : j'avais pas vu .... gros merci wallace