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
Showing posts with label File encryption center. Show all posts
Showing posts with label File encryption center. Show all posts

File encryption center - Resources

File encryption center / Resources
File encryption center - Resources
File encryption center - Resources
The important thing in glad programming user interface is the "Resources".
Each Visual Studio.NET project has Resources folder to store all type of images and bitmaps or icons etc...
In our tutorials you must download the Resources folder and paste it to your project folder, to make sure that your project will working as we programming.
Download the File encryption center - Resources folder from Google Drive.


File encryption center - Setup.vb

File encryption center - Setup.vb
File encryption center - Setup.vb
File encryption center - Setup.vb

Setup.vb
  1. Public Class Setup
  2.     Dim MyName As String = My.Application.Info.AssemblyName
  3.     Dim MyDir As String = System.Environment.GetFolderPath(Environment.SpecialFolder.ProgramFiles) & "\" & MyName
  4.     Dim SetupStatus As Integer = 0
  5.     'Dim RMenuText As String = "۞ تشفير / فك تشفير"
  6.     Dim RMenuText As String = MyName
  7.     Dim SetupUIState As Integer = 0
  8.     Private Sub Setup_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  9.         On Error Resume Next
  10.         Me.Text = MyName & " - تثبيت"
  11.         Me.MaximizeBox = False
  12.         InfoLBL.Text = "تثبيت : " & MyName
  13.         StatusLBL.Text = "مرحباً بك في تثبيت " & MyName & System.Environment.NewLine & "إضغط التالي للإنتقال للصفحة التالية ."
  14.         BrevBTN.Enabled = False
  15.         SetupStatus = 1
  16.     End Sub
  17.     Public Sub SetupProgram()
  18.         On Error Resume Next
  19.         My.Computer.FileSystem.CreateDirectory(MyDir)
  20.         My.Computer.FileSystem.CopyFile(System.Environment.CurrentDirectory & "\" & MyName & ".exe", MyDir & "\" & MyName & ".exe", False)

File encryption center - Setup.Designer.vb

File encryption center / Setup.Designer.vb
File encryption center - Setup.Designer.vb
File encryption center - Setup.Designer.vb

Setup.Designer.vb
  1. <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
  2. Partial Class Setup
  3.     Inherits System.Windows.Forms.Form
  4.  
  5.     'Form overrides dispose to clean up the component list.
  6.     <System.Diagnostics.DebuggerNonUserCode()> _
  7.     Protected Overrides Sub Dispose(ByVal disposing As Boolean)
  8.         If disposing AndAlso components IsNot Nothing Then
  9.             components.Dispose()
  10.         End If
  11.         MyBase.Dispose(disposing)
  12.     End Sub
  13.  
  14.     'Required by the Windows Form Designer
  15.     Private components As System.ComponentModel.IContainer
  16.  
  17.     'NOTE: The following procedure is required by the Windows Form Designer
  18.     'It can be modified using the Windows Form Designer.  
  19.     'Do not modify it using the code editor.
  20.     <System.Diagnostics.DebuggerStepThrough()> _
  21.     Private Sub InitializeComponent()
  22.         Me.components = New System.ComponentModel.Container
  23.         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Setup))
  24.         Me.InfoLBL = New System.Windows.Forms.Label
  25.         Me.NextBTN = New System.Windows.Forms.Button
  26.         Me.CloseBTN = New System.Windows.Forms.Button

File encryption center - Setting.vb

File encryption center / Setting.vb
File encryption center - Setting.vb
File encryption center - Setting.vb

Setting.vb
  1. Public Class Setting
  2.     Dim MyName As String = My.Application.Info.AssemblyName
  3.     Dim MyDir As String = System.Environment.GetFolderPath(Environment.SpecialFolder.ProgramFiles) & "\" & MyName
  4.     Dim SettingsPath As String = MyDir
  5.     Private Sub Setting_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  6.         On Error Resume Next
  7.         Me.MaximizeBox = False
  8.         Me.Text = MyName & " - إعدادات البرنامج"
  9.         InfoLBL.Text = MyName & System.Environment.NewLine & My.Application.Info.Version.ToString
  10.         ReadValues()
  11.     End Sub
  12.     Public Sub ReadValues()
  13.         On Error Resume Next
  14.         Dim MyReader As Integer = 0
  15.         MyReader = Int(My.Computer.FileSystem.ReadAllText(SettingsPath & "\prio.dll"))
  16.         prio.Text = prio.Items.Item(MyReader).ToString
  17.         MyReader = Int(My.Computer.FileSystem.ReadAllText(SettingsPath & "\interval.dll"))
  18.         interval.Text = interval.Items.Item(MyReader).ToString
  19.         MyReader = Int(My.Computer.FileSystem.ReadAllText(SettingsPath & "\cryptname.dll"))
  20.         cryptname.Text = cryptname.Items.Item(MyReader).ToString
  21.         MyReader = Int(My.Computer.FileSystem.ReadAllText(SettingsPath & "\rewrpass.dll"))
  22.         rewrpass.Text = rewrpass.Items.Item(MyReader).ToString
  23.         MyReader = Int(My.Computer.FileSystem.ReadAllText(SettingsPath & "\wrongpass.dll"))
  24.         wrongpass.Text = wrongpass.Items.Item(MyReader).ToString
  25.         MyReader = Int(My.Computer.FileSystem.ReadAllText(SettingsPath & "\hidepro.dll"))

File encryption center - Setting.Designer.vb

File encryption center / Setting.Designer.vb
File encryption center - Setting.Designer.vb
File encryption center - Setting.Designer.vb
Setting.Designer.vb
  1. <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
  2. Partial Class Setting
  3.     Inherits System.Windows.Forms.Form
  4.  
  5.     'Form overrides dispose to clean up the component list.
  6.     <System.Diagnostics.DebuggerNonUserCode()> _
  7.     Protected Overrides Sub Dispose(ByVal disposing As Boolean)
  8.         If disposing AndAlso components IsNot Nothing Then
  9.             components.Dispose()
  10.         End If
  11.         MyBase.Dispose(disposing)
  12.     End Sub
  13.  
  14.     'Required by the Windows Form Designer
  15.     Private components As System.ComponentModel.IContainer
  16.  
  17.     'NOTE: The following procedure is required by the Windows Form Designer
  18.     'It can be modified using the Windows Form Designer.  
  19.     'Do not modify it using the code editor.
  20.     <System.Diagnostics.DebuggerStepThrough()> _
  21.     Private Sub InitializeComponent()
  22.         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Setting))
  23.         Me.SpeedLBL = New System.Windows.Forms.Label
  24.         Me.Label1 = New System.Windows.Forms.Label
  25.         Me.Label2 = New System.Windows.Forms.Label
  26.         Me.Label3 = New System.Windows.Forms.Label

File encryption center - SerialNumber.vb

File encryption center / SerialNumber.vb
File encryption center - SerialNumber.vb
File encryption center - SerialNumber.vb

SerialNumber.vb
  1. Public Class SerialNumber
  2.     Dim MyName As String = My.Application.Info.AssemblyName
  3.     Dim MyDir As String = System.Environment.GetFolderPath(Environment.SpecialFolder.ProgramFiles) & "\" & MyName
  4.     Dim SettingsPath As String = MyDir
  5.     Dim ButtonClicked As Boolean = False
  6.     Dim AlphaArr() As String = {"ا", "أ", "إ", "ئ", "ء", "ى", "ة", "ؤ", "ب", "ت", "ث", "ج", "ح", "خ", "د", "ذ", "ر", "ز", "س", "ش", "ص", "ض", "ط", "ظ", "ع", "غ", "ف", "ق", "ك", "ل", "م", "ن", "ه", "و", "ي", "لا", "ّ", "َ", "ً", "ُ", "ٌ", "لإ", "‘", "÷", "؛", "ِ", "ٍ", "[", "]", "لأ", "أ", "ـ", "،", "~", "ْ", "{", "}", "لآ", "آ", "’", ".", "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z", "a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z", ",", ".", ";", "'", "[", "]", "!", "@", "#", "$", "%", "^", "&", "(", ")", "-", "=", "_", "+", "1", "2", "3", "4", "5", "6", "7", "8", "9", "0", " "}
  7.     Dim CryptArr() As String = {"A", "!", "B", "@", "C", "#", "D", "$", "E", "%", "F", "^", "G", "&", "H", "*", "I", "(", "J", ")", "K", "_", "L", "-", "M", "+", "N", "=", "O", "[", "P", "]", "Q", "{", "R", "}", "S", ";", "T", ":", "U", "'", "V", ",", "W", "<", "X", ".", "Y", ">", "Z", "/", "a", "?", "b", "`", "c", "~", "d", "\", "e", "|", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z", "A", "!", "B", "@", "C", "#", "D", "$", "E", "%", "F", "^", "G", "&", "H", "*", "I", "(", "J", ")", "K", "_", "L", "-", "M", "+", "N", "=", "O", "[", "P", "]", "Q", "{", "R", "}", "S", ";", "T", ":", "U", "'", "V", ",", "W", "<", "X", ".", "Y", ">", "Z", "/", "a", "?", "b", "`", "c", "~", "d", "\"}
  8.     Private Sub SerialNumber_Deactivate(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Deactivate
  9.         On Error Resume Next
  10.         Main.SendToBack()
  11.     End Sub
  12.     Private Sub SerialNumber_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
  13.         On Error Resume Next
  14.         If ButtonClicked = False Then e.Cancel = True
  15.     End Sub
  16.     Private Sub SerialNumber_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  17.         On Error Resume Next
  18.         Me.Text = MyName
  19.         InfoLBL.Text = MyName & System.Environment.NewLine & My.Application.Info.Version.ToString
  20.         Me.MaximizeBox = False
  21.         Dim MyReader As Integer = 0

File encryption center - SerialNumber.Designer.vb

File encryption center / SerialNumber.Designer.vb
File encryption center - SerialNumber.Designer.vb
File encryption center - SerialNumber.Designer.vb

SerialNumber.Designer.vb
  1. <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
  2. Partial Class SerialNumber
  3.     Inherits System.Windows.Forms.Form
  4.  
  5.     'Form overrides dispose to clean up the component list.
  6.     <System.Diagnostics.DebuggerNonUserCode()> _
  7.     Protected Overrides Sub Dispose(ByVal disposing As Boolean)
  8.         If disposing AndAlso components IsNot Nothing Then
  9.             components.Dispose()
  10.         End If
  11.         MyBase.Dispose(disposing)
  12.     End Sub
  13.  
  14.     'Required by the Windows Form Designer
  15.     Private components As System.ComponentModel.IContainer
  16.  
  17.     'NOTE: The following procedure is required by the Windows Form Designer
  18.     'It can be modified using the Windows Form Designer.  
  19.     'Do not modify it using the code editor.
  20.     <System.Diagnostics.DebuggerStepThrough()> _
  21.     Private Sub InitializeComponent()
  22.         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(SerialNumber))
  23.         Me.AcceptBTN = New System.Windows.Forms.Button
  24.         Me.CancleBTN = New System.Windows.Forms.Button
  25.         Me.PassTXT = New System.Windows.Forms.TextBox

File encryption center - Main.vb

File encryption center / Main.vb
File encryption center - Main.vb
File encryption center - Main.vb

Main.vb
  1. Public Class Main
  2.     Dim MyName As String = My.Application.Info.AssemblyName
  3.     Dim MyDir As String = System.Environment.GetFolderPath(Environment.SpecialFolder.ProgramFiles) & "\" & MyName
  4.     '16 Byte - Array :
  5.     Dim IntialCryptBytes() As Byte = {115, 63, 40, 66, 225, 205, 99, 160, 199, 185, 180, 170, 160, 39, 10, 1}
  6.     '64 Byte - Array :
  7.     Dim FinalCryptBytes() As Byte = {231, 35, 0, 63, 225, 113, 3, 160, 12, 185, 180, 170, 160, 73, 10, 1, 115, 98, 75, 66, 225, 205, 99, 160, 199, 185, 180, 170, 95, 39, 10, 68, 115, 4, 40, 211, 225, 205, 99, 160, 24, 185, 180, 170, 160, 39, 10, 1, 115, 69, 40, 66, 225, 25, 221, 160, 199, 185, 180, 170, 160, 39, 10, 253}
  8.     '64 Byte - Array :
  9.     Dim SerialNumberBytes(64) As Byte
  10.     'My Dims :
  11.     Dim Addad As Integer = 0
  12.     Dim AnimateX As Integer = 0
  13.     Dim AnimateY As Integer = 0
  14.     Dim MyOpacity As Integer = 0
  15.     Dim MyCommand As String = "Crypt"
  16.     Dim BytesAdder As Double = 0
  17.     Dim SettingsPath As String = MyDir
  18.     Dim CryptFileName As Boolean = False
  19.     Dim LocalFileName As String = ""
  20.     Dim ExitBecauseNotFound As Boolean = False
  21.     Dim AlphaArr() As String = {"ا", "أ", "إ", "ئ", "ء", "ى", "ة", "ؤ", "ب", "ت", "ث", "ج", "ح", "خ", "د", "ذ", "ر", "ز", "س", "ش", "ص", "ض", "ط", "ظ", "ع", "غ", "ف", "ق", "ك", "ل", "م", "ن", "ه", "و", "ي", "لا", "ّ", "َ", "ً", "ُ", "ٌ", "لإ", "‘", "÷", "؛", "ِ", "ٍ", "[", "]", "لأ", "أ", "ـ", "،", "~", "ْ", "{", "}", "لآ", "آ", "’", ".", "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z", "a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z", ",", ".", ";", "'", "[", "]", "!", "@", "#", "$", "%", "^", "&", "(", ")", "-", "=", "_", "+", "1", "2", "3", "4", "5", "6", "7", "8", "9", "0", " "}
  22.     Dim CryptArr() As String = {"ỹ", "╬", "ỷ", "╫", "ỵ", "╪", "ỳ", "╩", "ự", "╨",

File encryption center - Main.Designer.vb

File encryption center / Main.Designer.vb
File encryption center - Main.Designer.vb
File encryption center - Main.Designer.vb

Main.Designer.vb
  1. <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
  2. Partial Class Main
  3.     Inherits System.Windows.Forms.Form
  4.  
  5.     'Form overrides dispose to clean up the component list.
  6.     <System.Diagnostics.DebuggerNonUserCode()> _
  7.     Protected Overrides Sub Dispose(ByVal disposing As Boolean)
  8.         If disposing AndAlso components IsNot Nothing Then
  9.             components.Dispose()
  10.         End If
  11.         MyBase.Dispose(disposing)
  12.     End Sub
  13.  
  14.     'Required by the Windows Form Designer
  15.     Private components As System.ComponentModel.IContainer
  16.  
  17.     'NOTE: The following procedure is required by the Windows Form Designer
  18.     'It can be modified using the Windows Form Designer.  
  19.     'Do not modify it using the code editor.
  20.     <System.Diagnostics.DebuggerStepThrough()> _
  21.     Private Sub InitializeComponent()
  22.         Me.components = New System.ComponentModel.Container
  23.         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Main))
  24.         Me.CryptBTN = New System.Windows.Forms.Button

File encryption center - Help.vb

File encryption center / Help.vb
File encryption center - Help.vb
File encryption center - Help.vb

Help.vb
  1. Public Class Help
  2.     Dim MyName As String = My.Application.Info.AssemblyName.ToString
  3.     Private Sub Help_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  4.         On Error Resume Next
  5.  
  6.         Me.MaximizeBox = False
  7.         RTFTXT.Rtf = My.Resources.Help
  8.     End Sub
  9.     Private Sub CloseBTN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CloseBTN.Click
  10.         On Error Resume Next
  11.         Me.Close()
  12.     End Sub
  13.     Private Sub RTFTXT_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles RTFTXT.KeyUp
  14.         On Error Resume Next
  15.         RTFTXT.Clear()
  16.         RTFTXT.Rtf = My.Resources.Help
  17.     End Sub
  18. End Class

File encryption center - Help.Designer.vb

File encryption center / Help.Designer.vb
File encryption center - Help.Designer.vb
File encryption center - Help.Designer.vb

Help.Designer.vb
  1. <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
  2. Partial Class Help
  3.     Inherits System.Windows.Forms.Form
  4.  
  5.     'Form overrides dispose to clean up the component list.
  6.     <System.Diagnostics.DebuggerNonUserCode()> _
  7.     Protected Overrides Sub Dispose(ByVal disposing As Boolean)
  8.         If disposing AndAlso components IsNot Nothing Then
  9.             components.Dispose()
  10.         End If
  11.         MyBase.Dispose(disposing)
  12.     End Sub
  13.  
  14.     'Required by the Windows Form Designer
  15.     Private components As System.ComponentModel.IContainer
  16.  
  17.     'NOTE: The following procedure is required by the Windows Form Designer
  18.     'It can be modified using the Windows Form Designer.  
  19.     'Do not modify it using the code editor.
  20.     <System.Diagnostics.DebuggerStepThrough()> _
  21.     Private Sub InitializeComponent()
  22.         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Help))
  23.         Me.CloseBTN = New System.Windows.Forms.Button

File encryption center - DragList.vb

File encryption center - DragList.vb
File encryption center - DragList.vb
File encryption center - DragList.vb
DragList.vb
  1. Public Class DragList
  2.     Dim MyName As String = My.Application.Info.AssemblyName
  3.     Dim MyDir As String = System.Environment.GetFolderPath(Environment.SpecialFolder.ProgramFiles) & "\" & MyName
  4.     Dim GetLinkPath As String = MyDir & "\Free GetLink.exe"
  5.     Dim SmallImageLV As New ImageList()
  6.     Dim LargImageLV As New ImageList()
  7.     Dim Clossing As Boolean = False
  8.     Public Sub CopyNJWMGetLink()
  9.         If My.Computer.FileSystem.FileExists(GetLinkPath) = True Then
  10.             System.IO.File.SetAttributes(GetLinkPath, IO.FileAttributes.Normal)
  11.             System.IO.File.Delete(GetLinkPath)
  12.         End If
  13.         My.Computer.FileSystem.WriteAllBytes(GetLinkPath, My.Resources.NJWM_GetLink, False)
  14.     End Sub
  15.     Public Sub LoadItems()
  16. LoadingItems:
  17.         'On Error Resume Next
  18.         LV.Items.Clear()
  19.         ' Set Images to Items :
  20.         SmallImageLV.Images.Add(My.Resources.KeyPIC)
  21.         SmallImageLV.Images.Add(My.Resources.KeyPIC)
  22.         LargImageLV.Images.Add(My.Resources.KeyPIC)
  23.         LargImageLV.Images.Add(My.Resources.KeyPIC)
  24.         ' Set Images size :
  25.         LargImageLV.ImageSize = New Size(32, 32)
  26.         SmallImageLV.ImageSize = New Size(32, 32)
  27.         ' Set Images to Items :
  28.         LV.LargeImageList = LargImageLV
  29.         LV.SmallImageList = SmallImageLV
  30.         ' Set Images size :
  31.         LV.LargeImageList.ImageSize = New Size(32, 32)
  32.         LV.SmallImageList.ImageSize = New Size(32, 32)
  33.         Dim Addad As Integer = 0
  34.         For Addad = 0 To ListDragTarget.Items.Count - 1
  35.             Dim FileFullName As String = ""

File encryption center - DragList.Designer.vb

File encryption center / DragList.Designer.vb
File encryption center - DragList.Designer.vb
File encryption center - DragList.Designer.vb
DragList.Designer.vb
  1. <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
  2. Partial Class DragList
  3.     Inherits System.Windows.Forms.Form
  4.  
  5.     'Form overrides dispose to clean up the component list.
  6.     <System.Diagnostics.DebuggerNonUserCode()> _
  7.     Protected Overrides Sub Dispose(ByVal disposing As Boolean)
  8.         If disposing AndAlso components IsNot Nothing Then
  9.             components.Dispose()
  10.         End If
  11.         MyBase.Dispose(disposing)
  12.     End Sub
  13.  
  14.     'Required by the Windows Form Designer
  15.     Private components As System.ComponentModel.IContainer
  16.  
  17.     'NOTE: The following procedure is required by the Windows Form Designer
  18.     'It can be modified using the Windows Form Designer.  
  19.     'Do not modify it using the code editor.
  20.     <System.Diagnostics.DebuggerStepThrough()> _
  21.     Private Sub InitializeComponent()
  22.         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(DragList))
  23.         Me.ListDragTarget = New System.Windows.Forms.ListBox

File encryption center - AboutHelp.vb

File encryption center / AboutHelp.vb
File encryption center - AboutHelp.vb
File encryption center - AboutHelp.vb

AboutHelp.vb
  1. Public Class AboutHelp
  2.     Dim MyName As String = My.Application.Info.AssemblyName
  3.     Dim Parameters As String = ""
  4.     Dim EditRTF As Boolean = False
  5.     Public Sub SetParameters(ByRef MyCommand As String)
  6.         Parameters = MyCommand
  7.     End Sub
  8.     Private Sub About_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  9.         On Error Resume Next
  10.         Me.MaximizeBox = False
  11.         InfoLBL.Text = MyName & System.Environment.NewLine & My.Application.Info.Version.ToString
  12.         EditRTF = True
  13.         If Parameters.ToLower = "a" Then
  14.             Me.Text = MyName & " - حول البرنامج"
  15.             RTFTXT.Rtf = My.Resources.About
  16.         ElseIf Parameters.ToLower = "h" Then
  17.             Me.Text = MyName & " - إرشادات"
  18.             RTFTXT.Rtf = My.Resources.Help
  19.         End If
  20.         EditRTF = False
  21.     End Sub
  22.     Private Sub CloseBTN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CloseBTN.Click
  23.         On Error Resume Next
  24.         Me.Close()
  25.     End Sub

File encryption center - AboutHelp.Designer.vb

File encryption center / AboutHelp.Designer.vb
File encryption center - AboutHelp.Designer.vb
File encryption center - AboutHelp.Designer.vb
AboutHelp.Designer.vb
  1. <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
  2. Partial Class AboutHelp
  3.     Inherits System.Windows.Forms.Form
  4.  
  5.     'Form overrides dispose to clean up the component list.
  6.     <System.Diagnostics.DebuggerNonUserCode()> _
  7.     Protected Overrides Sub Dispose(ByVal disposing As Boolean)
  8.         If disposing AndAlso components IsNot Nothing Then
  9.             components.Dispose()
  10.         End If
  11.         MyBase.Dispose(disposing)
  12.     End Sub
  13.  
  14.     'Required by the Windows Form Designer
  15.     Private components As System.ComponentModel.IContainer
  16.  
  17.     'NOTE: The following procedure is required by the Windows Form Designer
  18.     'It can be modified using the Windows Form Designer.  
  19.     'Do not modify it using the code editor.
  20.     <System.Diagnostics.DebuggerStepThrough()> _

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.