41 lines
1.4 KiB
VB.net
41 lines
1.4 KiB
VB.net
Public Class FrmBilanSelect
|
|
|
|
Private Sub FrmBilanSelect_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
|
Me.Text = Me.Tag & " | " & TimeOfDay
|
|
End Sub
|
|
|
|
|
|
|
|
Private Sub CmdBI_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdBI.Click
|
|
Me.Hide()
|
|
FrmAccueil.Hide()
|
|
FrmBilanID.Show()
|
|
End Sub
|
|
|
|
Private Sub CmdBM_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdBM.Click
|
|
Me.Hide()
|
|
FrmAccueil.Hide()
|
|
FrmBilanMat.Show()
|
|
End Sub
|
|
|
|
Private Sub CmdBS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdBS.Click
|
|
Me.Hide()
|
|
FrmAccueil.Hide()
|
|
FrmBilanSupp.Show()
|
|
End Sub
|
|
|
|
Private Sub CmdQuit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdQuit.Click
|
|
Dim quit As Integer
|
|
quit = MsgBox("Vous êtes sur le point de quitter Candidat 7 Pro. Voulez-vous continuer ?", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "Quitter Candidat 7 Pro")
|
|
If quit = vbYes Then
|
|
FileClose(nf)
|
|
'Kill("Candidats.AFF")
|
|
End
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub CmdReturn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdReturn.Click
|
|
Me.Close()
|
|
FrmAccueil.Show()
|
|
End Sub
|
|
End Class |