1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
|
Public Class form_intervention
Public intervention As Intervention
public m as new menu
Public Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_detailinterv.Click
Dim form_detail As New detailintervention
If listeintervention.SelectedIndices.Count = 0 Then
MsgBox("Veuillez selectionnez un élément dans la liste")
Else
m.traitement.chargerInterventions() <-- remplissage tableau depuis le formulaire Menu
intervention = m.tab_intervention.Item(index()) <-- récupération de l'objet séléctionné
'on affiche les details de l'intervention selectionné'
form_detail.horaire.Text = intervention.getHeurePrevue
form_detail.description.Text = intervention.getDescription
form_detail.nintervention.Text = intervention.getNumero
form_detail.remarque.Text = intervention.getRemarque
form_detail.ind.Text = listeintervention.SelectedIndices(0)
End If
form_detail.ShowDialog() |
Partager