1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
Private Sub Form_Confirmation_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
Me.Text = Messages.Alert_Confirmation
timerAffichage = New Timer(100)
AddHandler timerAffichage.Elapsed, New ElapsedEventHandler(AddressOf timerAffichageHasElapsed) 'AddressOf timerAffichageHasElapsed
timerAffichage.Enabled = True
'timerAffichage.Start()
End Sub
Private Sub timerAffichageHasElapsed(sender As Object, e As Timers.ElapsedEventArgs)
timerAffichage.Stop()
Dim del = New MyDelSub(AddressOf WriteToDebug)
del.Invoke()
End Sub
Private Sub WriteToDebug()
Me.Dispose()
Me.Close()
End Sub |
