24 lines
990 B
VB.net
24 lines
990 B
VB.net
Public Class Form4
|
|
|
|
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
|
|
MessageBox.Show("SC2K will attempt to install!") ' I should really fix this block so it writes the files to the settings fields instead of using files
|
|
My.Settings.store = TextBox3.Text
|
|
My.Settings.user = TextBox1.Text
|
|
My.Settings.company = TextBox2.Text
|
|
My.Settings.language = ComboBox1.Text
|
|
My.Settings.menu = CheckBox2.Checked
|
|
My.Settings.shortcut = CheckBox1.Checked
|
|
My.Settings.SCURK = CheckBox3.Checked
|
|
My.Settings.Save()
|
|
Form5.Show()
|
|
Me.Close()
|
|
End Sub
|
|
|
|
Private Sub Form4_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
|
|
|
|
End Sub
|
|
|
|
Private Sub Form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
|
Me.TopMost = True
|
|
End Sub
|
|
End Class |