58 lines
1.9 KiB
VB.net
58 lines
1.9 KiB
VB.net
Public Class Form4
|
|
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
|
TextBox1.Text = My.Settings.serverName
|
|
TextBox2.Text = My.Settings.serverdatabase
|
|
TextBox3.Text = My.Settings.serverUser
|
|
TextBox4.Text = My.Settings.serverUserpass
|
|
TextBox5.Text = My.Settings.timeout
|
|
TextBox6.Text = My.Settings.encrypt
|
|
TextBox7.Text = My.Settings.cert
|
|
TextBox8.Text = My.Settings.reason
|
|
TextBox9.Text = My.Settings.subnet
|
|
TextBox10.Text = My.Settings.adminPass
|
|
TextBox20.Text = My.Settings.ServerNameW
|
|
TextBox19.Text = My.Settings.ServerDatabaseW
|
|
TextBox18.Text = My.Settings.ServerUserW
|
|
TextBox17.Text = My.Settings.ServerUserPasW
|
|
TextBox12.Text = My.Settings.SubnetW
|
|
|
|
|
|
End Sub
|
|
|
|
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
|
|
My.Settings.subnet = TextBox9.Text
|
|
My.Settings.reason = TextBox8.Text
|
|
My.Settings.encrypt = TextBox9.Text
|
|
My.Settings.timeout = TextBox5.Text
|
|
My.Settings.serverUserpass = TextBox4.Text
|
|
My.Settings.serverUser = TextBox3.Text
|
|
My.Settings.serverdatabase = TextBox2.Text
|
|
My.Settings.serverName = TextBox1.Text
|
|
|
|
|
|
My.Settings.Save()
|
|
|
|
MsgBox("au fost incarcate setarile pentru server")
|
|
|
|
|
|
|
|
End Sub
|
|
|
|
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
|
|
Form1.Show()
|
|
Me.Close()
|
|
End Sub
|
|
|
|
Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click
|
|
|
|
End Sub
|
|
|
|
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
|
|
My.Settings.SubnetW = TextBox12.Text
|
|
My.Settings.ServerNameW = TextBox20.Text
|
|
My.Settings.ServerDatabaseW = TextBox19.Text
|
|
My.Settings.ServerUserPasW = TextBox17.Text
|
|
My.Settings.ServerUserW = TextBox18.Text
|
|
|
|
End Sub
|
|
End Class |