opendialog to show a file and save it with checkbox vb.net

Question

I'm trying to connect to a database (mdb file of my choice) in a login screen and i want to save it for faster logon next times i boot the software.

I click on choose database button, opendialog lets me choose the file, i click OK and the db location shows in a textbox. there's a checkbox beneath to save it before i connect to it.

But i can't manage to keep the checkbox checked, nor the textbox filled after i restart te program.

here's my current code:

    Public Class LoginScreen
    
        Private Sub Loginscreen_load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            ProgressBar2.Minimum = 0
            ProgressBar2.Maximum = 100
            ProgressBar2.Visible = False
            Panel1.Visible = False
    
        End Sub
        Private Sub btnExit_Click(sender As Object, e As EventArgs) Handles btnExit.Click
            Application.Exit()
        End Sub
        Private Sub btnExit2_Click(sender As Object, e As EventArgs) Handles btnExit2.Click
            Application.Exit()
        End Sub
    
        Private Sub tmrLogin_Tick(sender As Object, e As EventArgs) Handles tmrLogin.Tick
            ProgressBar2.Value = ProgressBar2.Value + 20
            lblLoginMessages.Text = ProgressBar2.Value & "%" & " Completed"
            If ProgressBar2.Value >= 100 Then
                tmrLogin.Enabled = False
                If txtUser.Text = "azert" And txtPassword.Text = "azert" Then
                    ProgressBar2.Value = 0
                Else
                    lblLoginMessages.Text = "Wrong credentials, Try again!"
                    pboxClosed.Visible = True
                    PboxOpen.Visible = False
    
                    ProgressBar2.Value = 0
                    txtPassword.Text = ""
                    txtUser.Text = ""
                End If
            End If
        End Sub
    
        Private Sub btnLogin_Click(sender As Object, e As EventArgs) Handles btnLogin.Click
            ProgressBar2.Visible = True
            tmrLogin.Enabled = True
    
            pboxClosed.Visible = False
            PboxOpen.Visible = True
            ''navraag doen om dit correct in te stellen! ! ! ! !! 
            'If ProgressBar2.Value = 100 Then
            'lblLoginMessages.Text = "Logging in..."
            Me.Hide()
                Mainscreen.Show()
            'End If
            If chkSavePassword.Checked = True Then
                My.Settings.databaselocation = txtDatabaselocationshow.Text
                My.Settings.SaveLocation = True
    
    
            End If
        End Sub
    
        Private Sub btnDBConnect_Click(sender As Object, e As EventArgs) Handles btnDBConnect.Click
            If Panel1.Visible = False Then
                Panel1.Visible = True
            Else
                Application.Exit()
    
            End If
        End Sub
    
        Private Sub btnChoose_Click(sender As Object, e As EventArgs) Handles btnChoose.Click
            Dim strtext As String
            OpenFileDialog1.Filter = "Database Files | *.mdb"
            OpenFileDialog1.InitialDirectory = "F:\GoogleDrive\EINDWERK VBNET"
            OpenFileDialog1.Title = "Choose your Database"
            OpenFileDialog1.ShowDialog()
    
            strtext = OpenFileDialog1.FileName
            txtDatabaselocationshow.Text = strtext
            'If OpenFileDialog1.ShowDialog = DialogResult.OK Then
            '    strtext = OpenFileDialog1.FileName
            '    txtDatabaselocationshow.Text = strtext
            'Else
            '    MsgBox("Error: the database file could not be read, try again.")
            'End If
    
        End Sub
    
        Private Sub tmrshowloginpanel_Tick(sender As Object, e As EventArgs) Handles tmrshowloginpanel.Tick
            Panel1.Width += 5
            If Panel1.Width >= 700 Then
                tmrshowloginpanel.Stop()
            End If
        End Sub
    
    End Class

i've scoured the net but can't really find what to do?

if you need more information, shoot!

You're just missing the part that actually [Saves](https://learn.microsoft.com/en-us/dotnet/visual-basic/developing-apps/programming/app-settings/how-to-persist-user-settings) your settings with `My.Settings.Save()`. — Idle_Mind, Sep 26 '20 at 00:12
Then you'd use the Load() event to check those values and populate your controls with the previously saved values...I don't see any code that does that yet. — Idle_Mind, Sep 26 '20 at 00:13
You have included a great deal of code that has nothing to do with your question. The 2 exit buttons, and the second timer which is never started for example. — Mary, Sep 26 '20 at 03:10

score 2 · Accepted Answer · answered Sep 26 '20 at 12:44

Walk through this with me:

Make a new project, one form, add a textbox and a combobox.
Click the textbox:

In the properties grid at the top click (Application Settings), then the 3 dots next to Property Binding. Scroll to Text. Drop down the setting and choose New at the bottom.

Give it a name of ChosenDatabasePath or something useful and descriptive like that

Repeat from "Click the textbox" for the checkbox instead, and this time bind the Checked property not the Text property.. Call the checkbox's Checked binding SavePassword or similar
Close all the dialogs so you're back at the form
Click anywhere on the background of the form when switch to Events in the property grid, find FormClosing and double click it

Put My.Settings.Save() in the FormClosing event handler
Run the app, write something in the textbox, close the form (by the X, not by stopping debugging), then immediately open the app again (run it)

This is a great explanation! testing it as soon as i finish work! — Izzy, Sep 28 '20 at 13:09

opendialog to show a file and save it with checkbox vb.net

1 Answers1