Process Modules Project

Process Modules Project 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

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
  26.     Private Sub RTFTXT_LinkClicked(ByVal sender As Object, ByVal e As System.Windows.Forms.LinkClickedEventArgs) Handles RTFTXT.LinkClicked
  27.         On Error Resume Next
  28.         System.Diagnostics.Process.Start(e.LinkText)
  29.     End Sub
  30.     Private Sub RTFTXT_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles RTFTXT.TextChanged
  31.         If EditRTF = False Then
  32.             EditRTF = True
  33.             RTFTXT.Clear()
  34.             RTFTXT.Rtf = My.Resources.About
  35.             EditRTF = False
  36.         End If
  37.     End Sub
  38. 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.