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