34 lines
1.0 KiB
VB.net
34 lines
1.0 KiB
VB.net
Public Class FrmBilanSupp
|
|
|
|
Private Sub FrmBilanSupp_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
|
Dim i As Integer = 0
|
|
Me.Tag = "Bilan des candidats supprimés"
|
|
Me.Text = Me.Tag & " |" & TimeOfDay
|
|
|
|
For i = 0 To PosMAX - 1
|
|
If Tindex(i).Suppr = True Then LstSupp.Items.Add(Tindex(i).nom & " " & Tindex(i).prenom & " - " & i + 2)
|
|
Next
|
|
End Sub
|
|
|
|
|
|
|
|
Private Sub CmdAnnul_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdAnnul.Click
|
|
If Boule Then
|
|
End
|
|
Else
|
|
Me.Close()
|
|
FrmAccueil.Show()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub CmdBM_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdBM.Click
|
|
Me.Close()
|
|
FrmBilanMat.Show()
|
|
End Sub
|
|
|
|
Private Sub CmdBI_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdBI.Click
|
|
Me.Close()
|
|
FrmBilanID.Show()
|
|
End Sub
|
|
|
|
End Class |