12345678910111213141516171819 |
- Public Class Form3
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- Dim ofd As New OpenFileDialog
- Dim path As String
- ofd.FilterIndex = 1
- ofd.ShowDialog()
- TextBox1.Text = ofd.FileName
- End Sub
- Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
- My.Settings.Path = TextBox1.Text
- My.Settings.Save()
- End Sub
- Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- End Sub
- End Class
|