22 lines
742 B
VB.net
22 lines
742 B
VB.net
Public Class FrmBilanID
|
|
|
|
Private Sub CmdAnnul_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdAnnul.Click
|
|
Me.Hide()
|
|
FrmAccueil.Show()
|
|
End Sub
|
|
|
|
Private Sub CmdBM_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdBM.Click
|
|
Me.Hide()
|
|
FrmBilanMat.Show()
|
|
End Sub
|
|
|
|
Private Sub CmdBS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdBS.Click
|
|
Me.Hide()
|
|
FrmBilanSupp.Show()
|
|
End Sub
|
|
|
|
Private Sub FrmBilanID_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
|
Me.Tag = "Bilan individuel"
|
|
Me.Text = Me.Tag & " |" & TimeOfDay
|
|
End Sub
|
|
End Class |