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"))