36 lines
1.3 KiB
VB.net
36 lines
1.3 KiB
VB.net
Public Class FrmBilan
|
|
|
|
Private Sub CmdClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdClose.Click
|
|
Me.Close()
|
|
FrmAccueil.Show()
|
|
End Sub
|
|
|
|
Private Sub FrmBilan_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
|
Me.Tag = "Bilans"
|
|
'Me.Text = "Bilans | " & TimeOfDay
|
|
Dim i As Integer
|
|
For i = 0 To UBound(tme)
|
|
CboMat.Items.Add(tme(i))
|
|
Next
|
|
End Sub
|
|
|
|
Private Sub CBNP_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles CBNP.GotFocus
|
|
RBNP.Checked = True REM Permet de "checker" le ratiobox correspondant au focus (On veut choisir son nom dans une GRrB).
|
|
End Sub
|
|
|
|
Private Sub TxtId_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TxtId.GotFocus
|
|
RBId.Checked = True REM Permet de "checker" le ratiobox correspondant au focus (On veut enter l'ID du candidat).
|
|
End Sub
|
|
|
|
Private Sub RBId_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RBId.CheckedChanged
|
|
CmdAff.Location = New Point(282, 39)
|
|
End Sub
|
|
|
|
Private Sub RBNP_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RBNP.CheckedChanged
|
|
CmdAff.Location = New Point(282, 88)
|
|
End Sub
|
|
|
|
|
|
|
|
|
|
End Class |