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 - MainView.vb

MainView.vb
  1. Public Class MainView
  2.     Dim ProgramName As String = My.Application.Info.AssemblyName
  3.     Dim DataPath As String = System.Environment.CurrentDirectory & "\UAM"
  4.     Dim ProductPath As String = DataPath & "\Products" '
  5.     Dim ServicesPath As String = DataPath & "\Services"
  6.     Dim CatPath As String = DataPath & "\Categories"
  7.     Dim StoresPath As String = DataPath & "\Stores"
  8.     Dim CustomersPath As String = DataPath & "\Customers"
  9.     Dim CompanyPath As String = DataPath & "\Company"
  10.     Dim MovmentPath As String = DataPath & "\Movment"
  11.     Dim RequestsPath As String = DataPath & "\Requests"
  12.     Dim VendorsPath As String = DataPath & "\Vendors"
  13.     Private Shared MainViewInstance As MainView
  14.     Public Shared Function GetInstance() As MainView
  15.         If (MainViewInstance Is Nothing) Then
  16.             MainViewInstance = New MainView
  17.         End If
  18.         Return MainViewInstance
  19.     End Function
  20.     Private Sub MainView_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  21.         On Error Resume Next
  22.         AddHandler VendorPIC.MouseEnter, AddressOf StartUp.PicMouseEnter
  23.         AddHandler VendorPIC.MouseLeave, AddressOf StartUp.PicMouseLeave
  24.         AddHandler VendorPIC.MouseDown, AddressOf StartUp.PicMouseDown
  25.         AddHandler VendorPIC.MouseUp, AddressOf StartUp.PicMouseUp
  26.         AddHandler BuyPIC.MouseEnter, AddressOf StartUp.PicMouseEnter
  27.         AddHandler BuyPIC.MouseLeave, AddressOf StartUp.PicMouseLeave
  28.         AddHandler BuyPIC.MouseDown, AddressOf StartUp.PicMouseDown
  29.         AddHandler BuyPIC.MouseUp, AddressOf StartUp.PicMouseUp
  30.         AddHandler StorePIC.MouseEnter, AddressOf StartUp.PicMouseEnter
  31.         AddHandler StorePIC.MouseLeave, AddressOf StartUp.PicMouseLeave
  32.         AddHandler StorePIC.MouseDown, AddressOf StartUp.PicMouseDown
  33.         AddHandler StorePIC.MouseUp, AddressOf StartUp.PicMouseUp
  34.         AddHandler SellPIC.MouseEnter, AddressOf StartUp.PicMouseEnter
  35.         AddHandler SellPIC.MouseLeave, AddressOf StartUp.PicMouseLeave
  36.         AddHandler SellPIC.MouseDown, AddressOf StartUp.PicMouseDown
  37.         AddHandler SellPIC.MouseUp, AddressOf StartUp.PicMouseUp
  38.         AddHandler CustomerPIC.MouseEnter, AddressOf StartUp.PicMouseEnter
  39.         AddHandler CustomerPIC.MouseLeave, AddressOf StartUp.PicMouseLeave
  40.         AddHandler CustomerPIC.MouseDown, AddressOf StartUp.PicMouseDown
  41.         AddHandler CustomerPIC.MouseUp, AddressOf StartUp.PicMouseUp
  42.     End Sub
  43.     Private Sub VendorPIC_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles VendorPIC.MouseEnter
  44.         HideSubPic()
  45.         VendorL1PIC.Visible = True
  46.         VendorL2PIC.Visible = True
  47.         VendorL1LBL.Visible = True
  48.         VendorL2LBL.Visible = True
  49.         VendorTXTPIC.Top += 7
  50.     End Sub
  51.     Private Sub VendorPIC_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles VendorPIC.MouseLeave
  52.         VendorTXTPIC.Top -= 7
  53.     End Sub
  54.     Private Sub BuyPIC_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles BuyPIC.MouseEnter
  55.         HideSubPic()
  56.         BuyL1PIC.Visible = True
  57.         BuyL2PIC.Visible = True
  58.         BuyL1LBL.Visible = True
  59.         BuyL2LBL.Visible = True
  60.         BuyTXTPIC.Top += 7
  61.     End Sub
  62.     Private Sub BuyPIC_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles BuyPIC.MouseLeave
  63.         BuyTXTPIC.Top -= 7
  64.     End Sub
  65.     Private Sub StorePIC_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles StorePIC.MouseEnter
  66.         HideSubPic()
  67.         StoreL0PIC.Visible = True
  68.         StoreL1PIC.Visible = True
  69.         StoreL2PIC.Visible = True
  70.         StoreL3PIC.Visible = True
  71.         StoreL4PIC.Visible = True
  72.         StoreL5PIC.Visible = True
  73.         StoreL0LBL.Visible = True
  74.         StoreL1LBL.Visible = True
  75.         StoreL2LBL.Visible = True
  76.         StoreL3LBL.Visible = True
  77.         StoreL4LBL.Visible = True
  78.         StoreL5LBL.Visible = True
  79.         StoreTXTPIC.Top += 7
  80.     End Sub
  81.     Private Sub StorePIC_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles StorePIC.MouseLeave
  82.         StoreTXTPIC.Top -= 7
  83.     End Sub
  84.     Private Sub SellPIC_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles SellPIC.MouseEnter
  85.         HideSubPic()
  86.         SellL1PIC.Visible = True
  87.         SellL2PIC.Visible = True
  88.         SellL3PIC.Visible = True
  89.         SellL1LBL.Visible = True
  90.         SellL2LBL.Visible = True
  91.         SellL3LBL.Visible = True
  92.         SellTXTPIC.Top += 7
  93.     End Sub
  94.     Private Sub SellPIC_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles SellPIC.MouseLeave
  95.         SellTXTPIC.Top -= 7
  96.     End Sub
  97.     Private Sub CustomerPIC_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles CustomerPIC.MouseEnter
  98.         HideSubPic()
  99.         CustomerL1PIC.Visible = True
  100.         CustomerL2PIC.Visible = True
  101.         CustomerL1LBL.Visible = True
  102.         CustomerL2LBL.Visible = True
  103.         CustomerTXTPIC.Top += 7
  104.     End Sub
  105.     Private Sub CustomerPIC_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles CustomerPIC.MouseLeave
  106.         CustomerTXTPIC.Top -= 7
  107.     End Sub
  108.     Public Sub HideSubPic()
  109.         VendorL1PIC.Visible = False
  110.         VendorL2PIC.Visible = False
  111.         VendorL1LBL.Visible = False
  112.         VendorL2LBL.Visible = False
  113.         '.........................
  114.         BuyL1PIC.Visible = False
  115.         BuyL2PIC.Visible = False
  116.         BuyL1LBL.Visible = False
  117.         BuyL2LBL.Visible = False
  118.         '.........................
  119.         StoreL0PIC.Visible = False
  120.         StoreL1PIC.Visible = False
  121.         StoreL2PIC.Visible = False
  122.         StoreL3PIC.Visible = False
  123.         StoreL4PIC.Visible = False
  124.         StoreL5PIC.Visible = False
  125.         StoreL0LBL.Visible = False
  126.         StoreL1LBL.Visible = False
  127.         StoreL2LBL.Visible = False
  128.         StoreL3LBL.Visible = False
  129.         StoreL4LBL.Visible = False
  130.         StoreL5LBL.Visible = False
  131.         '.........................
  132.         SellL1PIC.Visible = False
  133.         SellL2PIC.Visible = False
  134.         SellL3PIC.Visible = False
  135.         SellL1LBL.Visible = False
  136.         SellL2LBL.Visible = False
  137.         SellL3LBL.Visible = False
  138.         '.........................
  139.         CustomerL1PIC.Visible = False
  140.         CustomerL2PIC.Visible = False
  141.         CustomerL1LBL.Visible = False
  142.         CustomerL2LBL.Visible = False
  143.     End Sub
  144.     Private Sub MainView_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseClick
  145.         HideSubPic()
  146.     End Sub
  147.     Private Sub StoreL0LBL_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StoreL0LBL.Click
  148.         StartUp.OpenNewTab(NewProduct.GetInstance)
  149.     End Sub
  150.     Private Sub StoreL2LBL_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StoreL2LBL.Click
  151.         StartUp.OpenNewTab(ListProducts.GetInstance)
  152.     End Sub
  153.     Private Sub SellL3LBL_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SellL3LBL.Click
  154.         StartUp.OpenNewTab(NewSell.GetInstance)
  155.     End Sub
  156.     Private Sub SellL2LBL_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SellL2LBL.Click
  157.         StartUp.OpenNewTab(ListSell.GetInstance)
  158.     End Sub
  159.     Private Sub SellL1LBL_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SellL1LBL.Click
  160.         StartUp.OpenNewTab(Requests.GetInstance)
  161.     End Sub
  162.     Private Sub CustomerL2LBL_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CustomerL2LBL.Click
  163.         StartUp.OpenNewTab(NewCustomer.GetInstance)
  164.     End Sub
  165.     Private Sub CustomerL1LBL_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CustomerL1LBL.Click
  166.         StartUp.OpenNewTab(ListCustomers.GetInstance)
  167.     End Sub
  168.     Private Sub VendorL1LBL_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VendorL1LBL.Click
  169.         StartUp.OpenNewTab(ListMerchant.GetInstance)
  170.     End Sub
  171.     Private Sub VendorL2LBL_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VendorL2LBL.Click
  172.         StartUp.OpenNewTab(NewMerchant.GetInstance)
  173.     End Sub
  174.     Private Sub BuyL2LBL_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BuyL2LBL.Click
  175.         StartUp.OpenNewTab(NewBuy.GetInstance)
  176.     End Sub
  177.     Private Sub BuyL1LBL_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BuyL1LBL.Click
  178.         StartUp.OpenNewTab(ListBuy.GetInstance)
  179.     End Sub
  180.     Private Sub StoreL4LBL_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StoreL4LBL.Click
  181.         StartUp.OpenNewTab(AdjustStore.GetInstance)
  182.     End Sub
  183.     Private Sub StoreL3LBL_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StoreL3LBL.Click
  184.         StartUp.OpenNewTab(StoreCat.GetInstance)
  185.     End Sub
  186.     Private Sub StoreL1LBL_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StoreL1LBL.Click
  187.         CreateNewStore()
  188.     End Sub
  189.     Private Sub StoreL1PIC_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StoreL1PIC.Click
  190.         CreateNewStore()
  191.     End Sub
  192.     Private Sub StoreL5LBL_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StoreL5LBL.Click
  193.         CreateNewCat()
  194.     End Sub
  195.     Private Sub StoreL5PIC_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StoreL5PIC.Click
  196.         CreateNewCat()
  197.     End Sub
  198.     Public Sub CreateNewStore()
  199.         Dim SName As String = ""
  200.         Dim SDesc As String = ""
  201.         SName = InputBox("إسم المخزن الجديد الذي ترغب بإضافته :", "إضافة مخزن جديد", "")
  202.         If SName <> Nothing And My.Computer.FileSystem.DirectoryExists(StoresPath & "\" & SName) = False Then
  203.             SDesc = InputBox("وصف سريع لمخزن " & SName & " الجديد :", "وصف مخزن " & SName, "")
  204.             If SDesc <> Nothing Then
  205.                 My.Computer.FileSystem.CreateDirectory(StoresPath & "\" & SName)
  206.                 My.Computer.FileSystem.WriteAllText(StoresPath & "\" & SName & ".dat", SDesc, False, System.Text.Encoding.GetEncoding(0))
  207.                 MsgBox("تم إنشاء مخزن " & SName & " بنجاح" & System.Environment.NewLine & "وصف مخزن " & SName & " : " & SDesc)
  208.                 If My.Computer.FileSystem.GetDirectories(StoresPath).Count = 1 Then My.Computer.FileSystem.WriteAllText(DataPath & "\defaultstore.dat", SName, False, System.Text.Encoding.GetEncoding(0))
  209.             End If
  210.         End If
  211.     End Sub
  212.     Public Sub CreateNewCat()
  213.         Dim SName As String = ""
  214.         SName = InputBox("إسم التصنيف الجديد الذي ترغب بإضافته :", "إضافة تصنيف جديد", "")
  215.         If SName <> Nothing And My.Computer.FileSystem.FileExists(CatPath & "\" & SName & ".dat") = False Then
  216.             My.Computer.FileSystem.WriteAllText(CatPath & "\" & SName & ".dat", "", False, System.Text.Encoding.GetEncoding(0))
  217.             MsgBox("تم إنشاء تصنيف " & SName & " بنجاح")
  218.         End If
  219.     End Sub
  220.     Private Sub VendorL2PIC_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VendorL2PIC.Click
  221.         StartUp.OpenNewTab(NewMerchant.GetInstance)
  222.     End Sub
  223.     Private Sub VendorL1PIC_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VendorL1PIC.Click
  224.         StartUp.OpenNewTab(ListMerchant.GetInstance)
  225.     End Sub
  226.     Private Sub BuyL2PIC_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BuyL2PIC.Click
  227.         StartUp.OpenNewTab(NewBuy.GetInstance)
  228.     End Sub
  229.     Private Sub BuyL1PIC_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BuyL1PIC.Click
  230.         StartUp.OpenNewTab(ListBuy.GetInstance)
  231.     End Sub
  232.     Private Sub StoreL4PIC_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StoreL4PIC.Click
  233.         StartUp.OpenNewTab(AdjustStore.GetInstance)
  234.     End Sub
  235.     Private Sub StoreL3PIC_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StoreL3PIC.Click
  236.         StartUp.OpenNewTab(StoreCat.GetInstance)
  237.     End Sub
  238.     Private Sub StoreL2PIC_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StoreL2PIC.Click
  239.         StartUp.OpenNewTab(ListProducts.GetInstance)
  240.     End Sub
  241.     Private Sub StoreL0PIC_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StoreL0PIC.Click
  242.         StartUp.OpenNewTab(NewProduct.GetInstance)
  243.     End Sub
  244.     Private Sub SellL3PIC_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SellL3PIC.Click
  245.         StartUp.OpenNewTab(NewSell.GetInstance)
  246.     End Sub
  247.     Private Sub SellL2PIC_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SellL2PIC.Click
  248.         StartUp.OpenNewTab(ListSell.GetInstance)
  249.     End Sub
  250.     Private Sub SellL1PIC_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SellL1PIC.Click
  251.         StartUp.OpenNewTab(Requests.GetInstance)
  252.     End Sub
  253.     Private Sub CustomerL2PIC_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CustomerL2PIC.Click
  254.         StartUp.OpenNewTab(NewCustomer.GetInstance)
  255.     End Sub
  256.     Private Sub CustomerL1PIC_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CustomerL1PIC.Click
  257.         StartUp.OpenNewTab(ListCustomers.GetInstance)
  258.     End Sub
  259. 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.