HYTOS

Imports System.IO

Public Class Settings

    Private Sub Settings_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        Txt_DBPath.Text = My.Settings.DBPath

        Txt_Plant_Hierarchy.Text = My.Settings.Plant_Hierarchy

        Txt_SymbolLibrary.Text = My.Settings.SymbolLibrary

    End Sub

    Private Sub Btn_Save_Click(sender As Object, e As EventArgs) Handles Btn_Save.Click

        If Txt_DBPath.Text <> "" And Txt_Plant_Hierarchy.Text <> "" Then

            My.Settings.DBPath = Txt_DBPath.Text

            My.Settings.Plant_Hierarchy = Txt_Plant_Hierarchy.Text

            My.Settings.SymbolLibrary = Txt_SymbolLibrary.Text

            My.Settings.Save()

            MessageBox.Show("저장완료")

        Else

            MessageBox.Show("설정값이 잘못되었습니다.")

        End If

    End Sub

    Private Sub Btn_Cancel_Click(sender As Object, e As EventArgs) Handles Btn_Cancel.Click

        Me.Close()

    End Sub

    Private Sub Btn_SelectPath_Click(sender As Object, e As EventArgs) Handles Btn_SelectPath.Click

        Txt_DBPath.Text = OpenFileDlg("DB files (*.DB)|*.DB")

    End Sub

    Private Function OpenFileDlg(ByVal sFilter As String) As String

        Dim myStream As FileStream = Nothing

        Dim openFileDialog1 As New OpenFileDialog()

        Dim sSelectPath As String = ""

        openFileDialog1.InitialDirectory = My.Settings.DBPath

        openFileDialog1.Filter = sFilter

        openFileDialog1.FilterIndex = 2

        openFileDialog1.RestoreDirectory = True

        If openFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK Then

            Try

                myStream = openFileDialog1.OpenFile()

                If (myStream IsNot Nothing) Then

                    ' Insert code to read the stream here.

                    sSelectPath = myStream.Name

                End If

            Catch Ex As Exception

                MessageBox.Show("Cannot read file from disk. Original error: " & Ex.Message)

            Finally

                ' Check this again, since we need to make sure we didn't throw an exception on open.

                If (myStream IsNot Nothing) Then

                    myStream.Close()

                End If

            End Try

        End If

        Return sSelectPath

    End Function

    Private Sub Btn_Plant_Hierarchy_Click(sender As Object, e As EventArgs) Handles Btn_Plant_Hierarchy.Click

        Dim oOpenFolderDlg = New FolderBrowserDialog()

        oOpenFolderDlg.SelectedPath = My.Settings.Plant_Hierarchy

        Dim result As DialogResult = oOpenFolderDlg.ShowDialog()

        Dim sFolderName As String = ""

        If (result = DialogResult.OK) Then

            sFolderName = oOpenFolderDlg.SelectedPath

            Txt_Plant_Hierarchy.Text = sFolderName

            '    Txt_FolderPath.Text = sFolderName

        End If

    End Sub

    Private Sub Btn_SymbolLibrary_Click(sender As Object, e As EventArgs) Handles Btn_SymbolLibrary.Click

        Txt_SymbolLibrary.Text = OpenFileDlg("Excel File(*.xls, *.xlsx)|*.xls;*.xlsx")

    End Sub

End Class