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

NewMerchant.vb
  1. Public Class NewMerchant
  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.     Dim BoxPath As String = DataPath & "\Box"
  14.     Dim AlertsPath As String = DataPath & "\Alerts"
  15.     Dim SettingsPath As String = DataPath & "\Settings"
  16.     Dim MaxList As Integer = 0
  17.     Dim FromList As Integer = 0
  18.     Dim ToList As Integer = 0
  19.     Private Shared NewMerchantInstance As NewMerchant
  20.     Public Shared Function GetInstance() As NewMerchant
  21.         If (NewMerchantInstance Is Nothing) Then
  22.             NewMerchantInstance = New NewMerchant
  23.         End If
  24.         Return NewMerchantInstance
  25.     End Function
  26.     Private Sub NewMerchant_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  27.         MaxList = 0
  28.         FromList = 0
  29.         ToList = 0
  30.         LoadVendors()
  31.     End Sub
  32.     Public Sub LoadVendors()
  33.         Dim Addad As Integer = 0
  34.         For Addad = 0 To My.Computer.FileSystem.GetDirectories(VendorsPath).Count - 1
  35.             Dim VendorName As String = ""
  36.             VendorName = My.Computer.FileSystem.GetDirectoryInfo(My.Computer.FileSystem.GetDirectories(VendorsPath).Item(Addad)).Name
  37.             CNameTXT.Items.Add(VendorName)
  38.         Next
  39.     End Sub
  40.     Public Sub CreateNewVendor()
  41.         Dim CPath As String = VendorsPath & "\" & CNameTXT.Text
  42.         Dim CName As String = CNameTXT.Text
  43.         Dim CAddress As String = CAddressTXT.Text
  44.         Dim CTel As String = CTelTXT.Text
  45.         Dim CMail As String = CMailTXT.Text
  46.         Dim CWeb As String = CWebTXT.Text
  47.         Dim CJob As String = CJobTXT.Text
  48.         Dim CJobAddress As String = CJobAddressTXT.Text
  49.         If My.Computer.FileSystem.DirectoryExists(CPath) = False Then
  50.             My.Computer.FileSystem.CreateDirectory(CPath)
  51.         End If
  52.         My.Computer.FileSystem.WriteAllText(CPath & "\name.dat", CName, False, System.Text.Encoding.GetEncoding(0))
  53.         My.Computer.FileSystem.WriteAllText(CPath & "\address.dat", CAddress, False, System.Text.Encoding.GetEncoding(0))
  54.         My.Computer.FileSystem.WriteAllText(CPath & "\tel.dat", CTel, False, System.Text.Encoding.GetEncoding(0))
  55.         My.Computer.FileSystem.WriteAllText(CPath & "\mail.dat", CMail, False, System.Text.Encoding.GetEncoding(0))
  56.         My.Computer.FileSystem.WriteAllText(CPath & "\web.dat", CWeb, False, System.Text.Encoding.GetEncoding(0))
  57.         My.Computer.FileSystem.WriteAllText(CPath & "\job.dat", CJob, False, System.Text.Encoding.GetEncoding(0))
  58.         My.Computer.FileSystem.WriteAllText(CPath & "\jobaddress.dat", CJobAddress, False, System.Text.Encoding.GetEncoding(0))
  59.         My.Computer.FileSystem.WriteAllText(CPath & "\totaldept.dat", 0, False, System.Text.Encoding.GetEncoding(0))
  60.         My.Computer.FileSystem.WriteAllText(CPath & "\totalpayment.dat", 0, False, System.Text.Encoding.GetEncoding(0))
  61.     End Sub
  62.     Public Sub LoadVendorInfo(ByRef CName As String)
  63.         On Error Resume Next
  64.         CNameTXT.Text = CName
  65.         LV.Items.Clear()
  66.         Dim CNamePath As String = VendorsPath & "\" & CName
  67.         Dim Addad As Integer = 0
  68.         CAddressTXT.Text = My.Computer.FileSystem.ReadAllText(CNamePath & "\address.dat", System.Text.Encoding.GetEncoding(0))
  69.         CTelTXT.Text = My.Computer.FileSystem.ReadAllText(CNamePath & "\tel.dat", System.Text.Encoding.GetEncoding(0))
  70.         CMailTXT.Text = My.Computer.FileSystem.ReadAllText(CNamePath & "\mail.dat", System.Text.Encoding.GetEncoding(0))
  71.         CWebTXT.Text = My.Computer.FileSystem.ReadAllText(CNamePath & "\web.dat", System.Text.Encoding.GetEncoding(0))
  72.         CJobTXT.Text = My.Computer.FileSystem.ReadAllText(CNamePath & "\job.dat", System.Text.Encoding.GetEncoding(0))
  73.         CJobAddressTXT.Text = My.Computer.FileSystem.ReadAllText(CNamePath & "\jobaddress.dat", System.Text.Encoding.GetEncoding(0))
  74.         If My.Computer.FileSystem.DirectoryExists(CNamePath & "\payment") = False Then GoTo CalcIt
  75.         MaxList = My.Computer.FileSystem.GetDirectories(CNamePath & "\payment").Count
  76.         If FromList = 0 Then FromList = MaxList
  77.         ToList = FromList - 20
  78.         If MaxList - ToList > MaxList Then
  79.             ToList = 0
  80.         End If
  81.         For Addad = FromList - 1 To ToList Step -1
  82.             'For Addad = My.Computer.FileSystem.GetDirectories(CNamePath & "\payment").Count - 1 To 0 Step -1
  83.             Dim WDir As String = My.Computer.FileSystem.GetDirectories(CNamePath & "\payment").Item(Addad)
  84.             Dim DateFormat As String = My.Computer.FileSystem.ReadAllText(WDir & "\date.dat", System.Text.Encoding.GetEncoding(0))
  85.             LV.Items.Add(DateFormat.Chars(0) & DateFormat.Chars(1) & DateFormat.Chars(2) & DateFormat.Chars(3) & "/" & DateFormat.Chars(4) & DateFormat.Chars(5) & "/" & DateFormat.Chars(6) & DateFormat.Chars(7) & " " & DateFormat.Chars(8) & DateFormat.Chars(9) & ":" & DateFormat.Chars(10) & DateFormat.Chars(11))
  86.             LV.Items.Item(LV.Items.Count - 1).SubItems.Add(My.Computer.FileSystem.ReadAllText(WDir & "\pname.dat", System.Text.Encoding.GetEncoding(0)))
  87.             LV.Items.Item(LV.Items.Count - 1).SubItems.Add(My.Computer.FileSystem.ReadAllText(WDir & "\pamount.dat", System.Text.Encoding.GetEncoding(0)))
  88.             LV.Items.Item(LV.Items.Count - 1).SubItems.Add(My.Computer.FileSystem.ReadAllText(WDir & "\paymenttotal.dat", System.Text.Encoding.GetEncoding(0)))
  89.             LV.Items.Item(LV.Items.Count - 1).SubItems.Add(My.Computer.FileSystem.ReadAllText(WDir & "\paydbl.dat", System.Text.Encoding.GetEncoding(0)))
  90.             LV.Items.Item(LV.Items.Count - 1).SubItems.Add(My.Computer.FileSystem.ReadAllText(WDir & "\remaindbl.dat", System.Text.Encoding.GetEncoding(0)))
  91.         Next
  92.         SLBL.Text = MaxList - ToList & " من " & MaxList
  93.         SLBL.Tag = 20
  94. CalcIt:
  95.         Dim Total As Double = 0
  96.         Dim Dept As Double = 0
  97.         For Addad = 0 To My.Computer.FileSystem.GetDirectories(CNamePath & "\payment").Count - 1
  98.             Total += Val(My.Computer.FileSystem.ReadAllText(My.Computer.FileSystem.GetDirectories(CNamePath & "\payment").Item(Addad) & "\paymenttotal.dat", System.Text.Encoding.GetEncoding(0)))
  99.             Dept += Val(My.Computer.FileSystem.ReadAllText(My.Computer.FileSystem.GetDirectories(CNamePath & "\payment").Item(Addad) & "\remaindbl.dat", System.Text.Encoding.GetEncoding(0)))
  100.         Next
  101.         TotalPayment.Text = "قيمة المشتريات : " & Total & " " & My.Computer.FileSystem.ReadAllText(SettingsPath & "\maincurrency.dat", System.Text.Encoding.GetEncoding(0))
  102.         TotaldebtTXT.Text = "باقي الديون : " & Dept & " " & My.Computer.FileSystem.ReadAllText(SettingsPath & "\maincurrency.dat", System.Text.Encoding.GetEncoding(0))
  103.         'Correct Main Dir :
  104.         My.Computer.FileSystem.WriteAllText(VendorsPath & "\" & CName & "\totalpayment.dat", Total, False, System.Text.Encoding.GetEncoding(0))
  105.         My.Computer.FileSystem.WriteAllText(VendorsPath & "\" & CName & "\totaldept.dat", Dept, False, System.Text.Encoding.GetEncoding(0))
  106.         LV.AutoResizeColumns(ColumnHeaderAutoResizeStyle.HeaderSize)
  107.     End Sub
  108.     Private Sub CNameTXT_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles CNameTXT.KeyDown
  109.         If e.KeyCode = Keys.Enter Then CAddressTXT.Select()
  110.     End Sub
  111.     Private Sub CNameTXT_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles CNameTXT.TextChanged
  112.         If My.Computer.FileSystem.DirectoryExists(VendorsPath & "\" & CNameTXT.Text) = True And CNameTXT.Text <> "" Then
  113.             LV.Items.Clear()
  114.             MaxList = 0
  115.             FromList = 0
  116.             ToList = 0
  117.             LoadVendorInfo(CNameTXT.Text)
  118.             AddCBTN.Text = "تعديل"
  119.             Refresher.Enabled = True
  120.         Else
  121.             Refresher.Enabled = False
  122.             AddCBTN.Text = "إضافة"
  123.             CAddressTXT.Text = ""
  124.             CTelTXT.Text = ""
  125.             CMailTXT.Text = ""
  126.             CWebTXT.Text = ""
  127.             CJobTXT.Text = ""
  128.             CJobAddressTXT.Text = ""
  129.             MaxList = 0
  130.             FromList = 0
  131.             ToList = 0
  132.             LV.Items.Clear()
  133.         End If
  134.     End Sub
  135.     Private Sub AddCBTN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AddCBTN.Click
  136.         TestText()
  137.         CreateNewVendor()
  138.         StartUp.CloseTabs()
  139.     End Sub
  140.     Public Sub TestText()
  141.         'test values to add errors to Alerts :
  142.         Dim PName As String = CNameTXT.Text
  143.         Dim WDir As String = ""
  144.         '××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××
  145.         If CAddressTXT.Text = "" Then
  146.             StartUp.AlertsWriter(PName, "لم تقم بوضع عنوان التاجر " & PName & " , أنقر هنا لوضع عنوان التاجر", "M-add")
  147.         Else
  148.             WDir = AlertsPath & "\" & PName & "\M-add"
  149.             If My.Computer.FileSystem.DirectoryExists(WDir) Then System.IO.Directory.Delete(WDir, True)
  150.         End If
  151.         '××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××
  152.         If CTelTXT.Text = "" Then
  153.             StartUp.AlertsWriter(PName, "لم تقم بوضع رقم هاتف التاجر " & PName & " , أنقر هنا لوضع رقم الهاتف", "M-tel")
  154.         Else
  155.             WDir = AlertsPath & "\" & PName & "\M-tel"
  156.             If My.Computer.FileSystem.DirectoryExists(WDir) Then System.IO.Directory.Delete(WDir, True)
  157.         End If
  158.         '××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××
  159.         If CMailTXT.Text = "" Then
  160.             StartUp.AlertsWriter(PName, "لم تقم بوضع عنوان البريد الإلكتروني للتاجر " & PName & " , أنقر هنا لوضع عنوان البريد الإلكتروني", "M-mail")
  161.         Else
  162.             WDir = AlertsPath & "\" & PName & "\M-mail"
  163.             If My.Computer.FileSystem.DirectoryExists(WDir) Then System.IO.Directory.Delete(WDir, True)
  164.         End If
  165.         '××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××
  166.         If CWebTXT.Text = "" Then
  167.             StartUp.AlertsWriter(PName, "لم تقم بوضع عنوان الموقع الإلكتروني للتاجر " & PName & " , أنقر هنا لوضع عنوان الموقع الإلكتروني", "M-web")
  168.         Else
  169.             WDir = AlertsPath & "\" & PName & "\M-web"
  170.             If My.Computer.FileSystem.DirectoryExists(WDir) Then System.IO.Directory.Delete(WDir, True)
  171.         End If
  172.         '××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××
  173.         If CJobTXT.Text = "" Then
  174.             StartUp.AlertsWriter(PName, "لم تقم بتسجيل عمل التاجر " & PName & " , أنقر هنا لتعيين وظيفة التاجر", "M-job")
  175.         Else
  176.             WDir = AlertsPath & "\" & PName & "\M-job"
  177.             If My.Computer.FileSystem.DirectoryExists(WDir) Then System.IO.Directory.Delete(WDir, True)
  178.         End If
  179.         '××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××
  180.         If CJobAddressTXT.Text = "" Then
  181.             StartUp.AlertsWriter(PName, "لم تقم بتعيين عنوان عمل التاجر " & PName & " , أنقر هنا لتعيين عنوان عمل التاجر", "M-jobaddress")
  182.         Else
  183.             WDir = AlertsPath & "\" & PName & "\M-jobaddress"
  184.             If My.Computer.FileSystem.DirectoryExists(WDir) Then System.IO.Directory.Delete(WDir, True)
  185.         End If
  186.         '××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××
  187.         StartUp.LoadAlerts()
  188.     End Sub
  189.     Private Sub LV_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles LV.DoubleClick
  190.         LoadProduct()
  191.     End Sub
  192.     Public Sub LoadProduct()
  193.         If LV.SelectedItems.Count > 0 Then
  194.             NewProduct.GetInstance.LoadProduct(LV.FocusedItem.SubItems(1).Text)
  195.             StartUp.MainPanel.Controls.Clear()
  196.             StartUp.MainPanel.Controls.Add(NewProduct.GetInstance())
  197.             StartUp.AddNewTab(NewProduct.GetInstance.Tag, NewProduct.GetInstance.Name)
  198.         End If
  199.     End Sub
  200.     Private Sub CancelBTN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CancelBTN.Click
  201.         MaxList = 0
  202.         FromList = 0
  203.         ToList = 0
  204.         StartUp.CloseTabs()
  205.     End Sub
  206.     Private Sub NextBTN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NextBTN.Click
  207.         If FromList > 20 Then FromList -= 20 : LoadVendorInfo(CNameTXT.Text)
  208.     End Sub
  209.     Private Sub PrevBTN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PrevBTN.Click
  210.         If FromList < MaxList Then FromList += 20 : LoadVendorInfo(CNameTXT.Text)
  211.     End Sub
  212.     Private Sub DeptBTN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DeptBTN.Click
  213.         Dim Addad As Integer = 0
  214.         Dim Total As Double = 0
  215.         Dim Dept As Double = 0
  216.         Dim CNamePath As String = VendorsPath & "\" & CNameTXT.Text & "\payment"
  217.         Dim WDir As String = ""
  218.         Dim MyValue As Double = 0
  219.         MyValue = Val(InputBox("أدخل المبلغ الذي ستقوم بتسديده للتاجر " & CNameTXT.Text, "تسديد دين للتاجر " & CNameTXT.Text, 0))
  220.         For Addad = 0 To My.Computer.FileSystem.GetDirectories(CNamePath).Count - 1
  221.             WDir = My.Computer.FileSystem.GetDirectories(CNamePath).Item(Addad)
  222.             Total += Val(My.Computer.FileSystem.ReadAllText(WDir & "\paymenttotal.dat", System.Text.Encoding.GetEncoding(0)))
  223.             Dept += Val(My.Computer.FileSystem.ReadAllText(WDir & "\remaindbl.dat", System.Text.Encoding.GetEncoding(0)))
  224.         Next
  225.         If MyValue = Nothing Then GoTo Finish
  226.         If MyValue > Dept Then MyValue = Dept
  227.         For Addad = 0 To My.Computer.FileSystem.GetDirectories(CNamePath).Count - 1
  228.             Dim YearSTR As String = Date.Now.Year
  229.             Dim MonthSTR As String = Date.Now.Month
  230.             Dim DaySTR As String = Date.Now.Day
  231.             If MonthSTR.Length <= 1 Then MonthSTR = "0" & MonthSTR
  232.             If DaySTR.Length <= 1 Then DaySTR = "0" & DaySTR
  233.             Dim DateDir As String = MovmentPath & "\" & YearSTR & "\" & MonthSTR & "\" & DaySTR
  234.             Dim LastDayInterValue As Double = 0
  235.             Dim LastValue As Double = 0
  236.             Dim LValue As Double = 0
  237.             WDir = My.Computer.FileSystem.GetDirectories(CNamePath).Item(Addad)
  238.             LastValue = Val(My.Computer.FileSystem.ReadAllText(WDir & "\remaindbl.dat", System.Text.Encoding.GetEncoding(0)))
  239.             LValue = Val(My.Computer.FileSystem.ReadAllText(WDir & "\paydbl.dat", System.Text.Encoding.GetEncoding(0)))
  240.             If LastValue > 0 Then
  241.                 If MyValue > LastValue Then
  242.                     My.Computer.FileSystem.WriteAllText(WDir & "\remaindbl.dat", 0, False, System.Text.Encoding.GetEncoding(0))
  243.                     My.Computer.FileSystem.WriteAllText(WDir & "\paydbl.dat", LastValue, False, System.Text.Encoding.GetEncoding(0))
  244.                     'MsgBox(Addad & " , " & LastValue & " , " & LastValue & " , تم التسديد")
  245.                     '..............
  246.                     '..............
  247.                     '..............
  248.                     'Write To Box :
  249.                     '..............
  250.                     '..............
  251.                     '..............
  252.                     'money
  253.                     If My.Computer.FileSystem.FileExists(DateDir & "\money.dat") = True Then
  254.                         LastDayInterValue = Val(My.Computer.FileSystem.ReadAllText(DateDir & "\money.dat", System.Text.Encoding.GetEncoding(0)))
  255.                     Else
  256.                         LastDayInterValue = 0
  257.                     End If
  258.                     My.Computer.FileSystem.WriteAllText(DateDir & "\money.dat", LastDayInterValue - Val(LastValue), False)
  259.                     My.Computer.FileSystem.WriteAllText(BoxPath & "\money.dat", LastDayInterValue - Val(LastValue), False)
  260.                     'capital
  261.                     If My.Computer.FileSystem.FileExists(DateDir & "\capital.dat") = True Then
  262.                         LastDayInterValue = Val(My.Computer.FileSystem.ReadAllText(DateDir & "\capital.dat", System.Text.Encoding.GetEncoding(0)))
  263.                     Else
  264.                         LastDayInterValue = 0
  265.                     End If
  266.                     My.Computer.FileSystem.WriteAllText(DateDir & "\capital.dat", LastDayInterValue - Val(LastValue), False)
  267.                     My.Computer.FileSystem.WriteAllText(BoxPath & "\capital.dat", LastDayInterValue - Val(LastValue), False)
  268.                     '..............
  269.                     '..............
  270.                     '..............
  271.                     'Sub Salary :
  272.                     '..............
  273.                     '..............
  274.                     '..............
  275.                     MyValue = MyValue - LastValue
  276.                     Dept = Dept - LastValue
  277.                 Else
  278.                     My.Computer.FileSystem.WriteAllText(WDir & "\remaindbl.dat", LastValue - MyValue, False, System.Text.Encoding.GetEncoding(0))
  279.                     My.Computer.FileSystem.WriteAllText(WDir & "\paydbl.dat", MyValue + LValue, False, System.Text.Encoding.GetEncoding(0))
  280.                     'MsgBox(Addad & " , " & LastValue & " , " & MyValue & " , تم التسديد والإنتهاء")
  281.                     '..............
  282.                     '..............
  283.                     '..............
  284.                     'Write To Box :
  285.                     '..............
  286.                     '..............
  287.                     '..............
  288.                     'money
  289.                     If My.Computer.FileSystem.FileExists(DateDir & "\money.dat") = True Then
  290.                         LastDayInterValue = Val(My.Computer.FileSystem.ReadAllText(DateDir & "\money.dat", System.Text.Encoding.GetEncoding(0)))
  291.                     Else
  292.                         LastDayInterValue = 0
  293.                     End If
  294.                     My.Computer.FileSystem.WriteAllText(DateDir & "\money.dat", LastDayInterValue - Val(MyValue), False)
  295.                     My.Computer.FileSystem.WriteAllText(BoxPath & "\money.dat", LastDayInterValue - Val(MyValue), False)
  296.                     'capital
  297.                     If My.Computer.FileSystem.FileExists(DateDir & "\capital.dat") = True Then
  298.                         LastDayInterValue = Val(My.Computer.FileSystem.ReadAllText(DateDir & "\capital.dat", System.Text.Encoding.GetEncoding(0)))
  299.                     Else
  300.                         LastDayInterValue = 0
  301.                     End If
  302.                     My.Computer.FileSystem.WriteAllText(DateDir & "\capital.dat", LastDayInterValue - Val(MyValue), False)
  303.                     My.Computer.FileSystem.WriteAllText(BoxPath & "\capital.dat", LastDayInterValue - Val(MyValue), False)
  304.                     '..............
  305.                     '..............
  306.                     '..............
  307.                     'Sub Salary :
  308.                     '..............
  309.                     '..............
  310.                     '..............
  311.                     Dept = Dept - MyValue
  312.                     MyValue = 0
  313.                     GoTo Finish
  314.                 End If
  315.             End If
  316.         Next
  317. Finish:
  318.         My.Computer.FileSystem.WriteAllText(VendorsPath & "\" & CNameTXT.Text & "\totaldept.dat", Dept, False, System.Text.Encoding.GetEncoding(0))
  319.         '
  320.         LoadVendorInfo(CNameTXT.Text)
  321.     End Sub
  322.     Private Sub CAddressTXT_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles CAddressTXT.KeyDown
  323.         If e.KeyCode = Keys.Enter Then CTelTXT.Select()
  324.     End Sub
  325.     Private Sub CTelTXT_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles CTelTXT.KeyDown
  326.         If e.KeyCode = Keys.Enter Then CMailTXT.Select()
  327.     End Sub
  328.     Private Sub CMailTXT_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles CMailTXT.KeyDown
  329.         If e.KeyCode = Keys.Enter Then CWebTXT.Select()
  330.     End Sub
  331.     Private Sub CWebTXT_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles CWebTXT.KeyDown
  332.         If e.KeyCode = Keys.Enter Then CJobTXT.Select()
  333.     End Sub
  334.     Private Sub CJobTXT_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles CJobTXT.KeyDown
  335.         If e.KeyCode = Keys.Enter Then CJobAddressTXT.Select()
  336.     End Sub
  337.     Private Sub CJobAddressTXT_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles CJobAddressTXT.KeyDown
  338.         If e.KeyCode = Keys.Enter Then AddCBTN.Select()
  339.     End Sub
  340.     Private Sub CAddressTXT_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles CAddressTXT.LostFocus
  341.         Refresher.Enabled = True
  342.     End Sub
  343.     Private Sub CAddressTXT_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CAddressTXT.TextChanged
  344.         Refresher.Enabled = False
  345.     End Sub
  346.     Private Sub CTelTXT_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles CTelTXT.LostFocus
  347.         Refresher.Enabled = True
  348.     End Sub
  349.     Private Sub CTelTXT_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CTelTXT.TextChanged
  350.         Refresher.Enabled = False
  351.     End Sub
  352.     Private Sub CMailTXT_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles CMailTXT.LostFocus
  353.         Refresher.Enabled = True
  354.     End Sub
  355.     Private Sub CMailTXT_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CMailTXT.TextChanged
  356.         Refresher.Enabled = False
  357.     End Sub
  358.     Private Sub CWebTXT_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles CWebTXT.LostFocus
  359.         Refresher.Enabled = True
  360.     End Sub
  361.     Private Sub CWebTXT_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CWebTXT.TextChanged
  362.         Refresher.Enabled = False
  363.     End Sub
  364.     Private Sub CJobTXT_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles CJobTXT.LostFocus
  365.         Refresher.Enabled = True
  366.     End Sub
  367.     Private Sub CJobTXT_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CJobTXT.TextChanged
  368.         Refresher.Enabled = False
  369.     End Sub
  370.     Private Sub CJobAddressTXT_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles CJobAddressTXT.LostFocus
  371.         Refresher.Enabled = True
  372.     End Sub
  373.     Private Sub CJobAddressTXT_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CJobAddressTXT.TextChanged
  374.         Refresher.Enabled = False
  375.     End Sub
  376.     Private Sub Refresher_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Refresher.Tick
  377.         LoadVendorInfo(CNameTXT.Text)
  378.     End Sub
  379.  
  380.     Private Sub CNameTXT_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CNameTXT.SelectedIndexChanged
  381.  
  382.     End Sub
  383. 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.