LoadingSaving.vb
- Public Class LoadingSaving
- Dim Addad As Integer = 1
- Private Shared LoadingSavingInstance As LoadingSaving
- Public Shared Function GetInstance() As LoadingSaving
- If (LoadingSavingInstance Is Nothing) Then
- LoadingSavingInstance = New LoadingSaving
- End If
- Return LoadingSavingInstance
- End Function
- Private Sub LoadingSaving_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- '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
- '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
- 'Manager.Enabled = False
- 'ProductCancleBTN.Visible = True
- 'LBL.Text = "الكشف عن محاولة سرقة" & System.Environment.NewLine & "إن هذه النسخة مسروقة و غير نظامية"
- 'StartUp.Text = "نسخة مسروقة"
- 'StartUp.ShortCutsPanel.Controls.Clear()
- 'StartUp.NewTab1LBL.Visible = False
- 'StartUp.NewTab2LBL.Visible = False
- 'StartUp.NewTab3LBL.Visible = False
- 'StartUp.NewTab4LBL.Visible = False
- 'StartUp.NewTab5LBL.Visible = False
- 'StartUp.NewTab6LBL.Visible = False
- 'StartUp.NewTab7LBL.Visible = False
- 'StartUp.BoxLBL.Visible = False
- 'StartUp.Pan1LBL.Visible = False
- 'StartUp.Label3.Visible = False
- 'StartUp.Label7.Visible = False
- 'StartUp.ButtonPIC.Visible = False
- 'StartUp.RPanel.Controls.Clear()
- 'End If
- End Sub
- Private Sub Manager_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Manager.Tick
- If Addad <= 100 Then
- LBL.Text = "جاري التحضير" & System.Environment.NewLine & Addad & " %"
- 'PIC.Left -= 5
- 'PIC.Top += 2
- End If
- If Addad > 100 And Addad < 120 Then
- 'PIC.Top += 25
- End If
- Addad += 1
- If Addad = 125 Then
- Manager.Enabled = False
- StartUp.CloseTabs()
- StartUp.OpenNewTab(MainView.GetInstance)
- StartUp.OpenNewTab(Charts.GetInstance)
- StartUp.OpenNewTab(About.GetInstance)
- 'swich to main view :
- StartUp.OpenNewTab(MainView.GetInstance)
- End If
- Finish:
- End Sub
- Private Sub ProductCancleBTN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ProductCancleBTN.Click
- End
- End Sub
- End Class