![]() |
File encryption center - AboutHelp.vb |
AboutHelp.vb
- Public Class AboutHelp
- Dim MyName As String = My.Application.Info.AssemblyName
- Dim Parameters As String = ""
- Dim EditRTF As Boolean = False
- Public Sub SetParameters(ByRef MyCommand As String)
- Parameters = MyCommand
- End Sub
- Private Sub About_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- On Error Resume Next
- Me.MaximizeBox = False
- InfoLBL.Text = MyName & System.Environment.NewLine & My.Application.Info.Version.ToString
- EditRTF = True
- If Parameters.ToLower = "a" Then
- Me.Text = MyName & " - حول البرنامج"
- RTFTXT.Rtf = My.Resources.About
- ElseIf Parameters.ToLower = "h" Then
- Me.Text = MyName & " - إرشادات"
- RTFTXT.Rtf = My.Resources.Help
- End If
- EditRTF = False
- End Sub
- Private Sub CloseBTN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CloseBTN.Click
- On Error Resume Next
- Me.Close()
- End Sub
- Private Sub RTFTXT_LinkClicked(ByVal sender As Object, ByVal e As System.Windows.Forms.LinkClickedEventArgs) Handles RTFTXT.LinkClicked
- On Error Resume Next
- System.Diagnostics.Process.Start(e.LinkText)
- End Sub
- Private Sub RTFTXT_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles RTFTXT.TextChanged
- If EditRTF = False Then
- EditRTF = True
- RTFTXT.Clear()
- RTFTXT.Rtf = My.Resources.About
- EditRTF = False
- End If
- End Sub
- End Class