salut,
lorseque je rempli une listebox avec une selection de type tableau, impossible de determiner quelle selection on a choisi dans l'application ... normalement on fait selectedindex ou selecteditem pour le savoir mais ça marche pas
voila le code
Public Enum combo
etudiant = 0
fonctionnaire = 1
abonne = 2
End Enum
Public Sub calculer()
Dim a As Long
If type1.SelectedIndex = 0 Then
a = heure1.Text * 15
Else
If type1.SelectedIndex = 1 Then
a = heure1.Text * 20
Else
If type1.SelectedIndex = 2 Then
a = heure1.Text * 6
End If
End If
End If If service1.SelectedIndex= 0 Then
montant1.Text = CLng(a)
If service1.SelectedIndex = 1 Then
montant1.Text = CLng(a + (20 * heure1.Text))
Else
If service1.SelectedIndex = 3 Then
montant1.Text = CLng(a + (10 * heure1.Text))
End If
End If
End If End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim tab() As String = {"case0, "case1", "case2"}
service1.Items.AddRange(tab)
type1.Items.Add(combo.etudiant)
type1.Items.Add(combo.fonctionnaire)
type1.Items.Add(combo.abonne)
service1.SelectedIndex = 0
type1.SelectedIndex = 0
End Submerci