Process Modules Project

Full Puzzle Game source code and complete project in "Process Modules and ProcessName Collecter" e-learning section.
Coded by: Wesam Naffaa

Puzzle Game project

Full Puzzle Game source code and complete project in "Puzzle Game project" e-learning section.
NOTE: You must read "Puzzle Game - Resources" to understand how to apply the sources & codes to your side.
Coded by: Wesam Naffaa

Accounting Manager project

Full Accounting manager source code and complete project in "Universal Accounting Manager project" e-learning section.
NOTE: You must read "Universal Accounting Manager - Resources" to understand how to apply the sources & codes to your side.
Coded by: Wesam Naffaa

File encryption project

Full File encryption center source code and complete project in "File encryption center project" e-learning section.
NOTE: You must read "File encryption center - Resources" to understand how to apply the sources & codes to your side.
Coded by: Wesam Naffaa

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

Valuable E-Book

Hello,
Baby first step is a friendly flashcards offering a growing collection of creative and educational ideas to help the toddler to learn the alphabet, so I put images that would be attractive to babies.

Support independent publishing: Buy this e-book on Lulu.