-
Notifications
You must be signed in to change notification settings - Fork 0
/
SplashScreen.vb
31 lines (24 loc) · 1.1 KB
/
SplashScreen.vb
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
''Thibault ANIN 2019 -- Dedi Orsay TP2E --
Public NotInheritable Class fenChargement
Private Sub SplashScreen1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
DoubleBuffered = True
End Sub
Public Delegate Sub SetProgressBarDelegate(ByVal max As Integer)
Public Delegate Sub UpdateProgressBarDelegate(ByVal value As Integer)
Public Sub BarLong(ByVal MemCount As Integer)
If Me.InvokeRequired Then
Me.Invoke(New SetProgressBarDelegate(AddressOf BarLong), MemCount)
Else
Me.prgbLancement.Maximum = MemCount
End If
End Sub
Public Sub ShowBar(ByVal SoFar As Integer)
If Me.InvokeRequired Then
Me.Invoke(New UpdateProgressBarDelegate(AddressOf ShowBar), SoFar)
Else
Me.prgbLancement.Value = SoFar
End If
End Sub
Private Sub LblChargement_Click(sender As Object, e As EventArgs) Handles lblChargement.Click
End Sub
End Class