14 lines
462 B
VB.net
14 lines
462 B
VB.net
Public Class Passed_File_Action_Settings
|
|
Private Sub Passed_File_Action_Settings_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
|
Icon = ProgramIcon()
|
|
End Sub
|
|
|
|
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
|
My.Settings.DefaultFileAction = ComboBox1.SelectedIndex
|
|
Close()
|
|
End Sub
|
|
|
|
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
|
|
Close()
|
|
End Sub
|
|
End Class |