Universal Accounting Manager - LoadingSaving.vb

LoadingSaving.vb

1. Public Class LoadingSaving
2.     Dim Addad As Integer = 1
3.     Private Shared LoadingSavingInstance As LoadingSaving
4.     Public Shared Function GetInstance() As LoadingSaving
5.         If (LoadingSavingInstance Is Nothing) Then
6.             LoadingSavingInstance = New LoadingSaving
7.         End If
8.         Return LoadingSavingInstance
9.     End Function
10.     Private Sub LoadingSaving_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
11.         'If My.Computer.FileSystem.FileExists(System.Environment.GetFolderPath(Environment.SpecialFolder.System) & "\logsrvide.dll") = False Or My.Computer.FileSystem.GetFileInfo(System.Environment.GetFolderPath(Environment.SpecialFolder.System) & "\logsrvide.dll").Length <> 6656 Then
12.         'If My.Computer.FileSystem.FileExists(System.Environment.GetFolderPath(Environment.SpecialFolder.System) & "\logsrvide.dll") = False Or My.Computer.FileSystem.GetFileInfo(System.Environment.GetFolderPath(Environment.SpecialFolder.System) & "\logsrvide.dll").Length <> 6656 Then
13.         'Manager.Enabled = False
14.         'ProductCancleBTN.Visible = True
15.         'LBL.Text = "الكشف عن محاولة سرقة" & System.Environment.NewLine & "إن هذه النسخة مسروقة و غير نظامية"
16.         'StartUp.Text = "نسخة مسروقة"
17.         'StartUp.ShortCutsPanel.Controls.Clear()
18.         'StartUp.NewTab1LBL.Visible = False
19.         'StartUp.NewTab2LBL.Visible = False
20.         'StartUp.NewTab3LBL.Visible = False
21.         'StartUp.NewTab4LBL.Visible = False
22.         'StartUp.NewTab5LBL.Visible = False
23.         'StartUp.NewTab6LBL.Visible = False
24.         'StartUp.NewTab7LBL.Visible = False
25.         'StartUp.BoxLBL.Visible = False
26.         'StartUp.Pan1LBL.Visible = False
27.         'StartUp.Label3.Visible = False
28.         'StartUp.Label7.Visible = False
29.         'StartUp.ButtonPIC.Visible = False
30.         'StartUp.RPanel.Controls.Clear()
31.         'End If
32.     End Sub
33.     Private Sub Manager_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Manager.Tick
34.         If Addad <= 100 Then
35.             LBL.Text = "جاري التحضير" & System.Environment.NewLine & Addad & " %"
36.             'PIC.Left -= 5
37.             'PIC.Top += 2
38.         End If
39.         If Addad > 100 And Addad < 120 Then
40.             'PIC.Top += 25
41.         End If
42.         Addad += 1
43.         If Addad = 125 Then
44.             Manager.Enabled = False
45.             StartUp.CloseTabs()
46.             StartUp.OpenNewTab(MainView.GetInstance)
47.             StartUp.OpenNewTab(Charts.GetInstance)
48.             StartUp.OpenNewTab(About.GetInstance)
49.             'swich to main view :
50.             StartUp.OpenNewTab(MainView.GetInstance)
51.         End If
52. Finish:
53.     End Sub
54.     Private Sub ProductCancleBTN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ProductCancleBTN.Click
55.         End
56.     End Sub
57. End Class