[RESOLVED] [2008] Run at startup

[tassa]

Hi, i'm having a little bit of trouble with making my application run at startup... I'm using this code:

    Private Sub CheckBox5_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox5.CheckedChanged
        If CheckBox5.Checked = True Then
            CheckBox6.Checked = False
            CheckBox6.Enabled = False
            Dim key As Microsoft.Win32.RegistryKey
            key = Microsoft.Win32.Registry.CurrentUser.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run", True)
            key.SetValue("To-Do List", Application.ExecutablePath)
            My.Settings.DefaultCheck5 = True
        ElseIf CheckBox5.Checked = False Then
            CheckBox6.Enabled = True
            Microsoft.Win32.Registry.CurrentUser.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run", True).DeleteValue("To-Do List", False)
            My.Settings.DefaultCheck5 = False
        End If
    End Sub

So... What I'm doing is creating a registry value to make the program run at startup... Ok, so that works fine.... But, if i make some changes to a listbox that i have in there (saves the information in a text file), when it loads at startup, it doesnt load the newly-edited info, it loads the information when the registry value was first created, how can i prevent this from happening?

[stanav]

It has nothing to do with the registry... You have to look in to your application code. Show us the code in your application's load event.

[tassa]

 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ListBox1.Items.Clear()
        'Sets the ListStarts variable to 0
        My.Settings.ListStarts = 0
        'Sets the CurrentUser to an empty string
        My.Settings.CurrentUser = ""
        'Sets the strings of some variables
        My.Settings.CurrentDirectory = Directory.GetCurrentDirectory.ToString
        'Checks to see if it's the first run of the program
        If My.Settings.FirstRun = True Then
            UserINFO.ShowDialog()
            My.Settings.FirstRun = False
        ElseIf My.Settings.FirstRun = False Then
            'Checks if the Settings folder exists
            If Directory.Exists(My.Settings.CurrentDirectory & "\Settings\Usernames") = False Then
                Directory.CreateDirectory(My.Settings.CurrentDirectory & "\Settings\Usernames")
            End If
        End If
        'Handles the ToolTip delay
        Me.ToolTip1.ReshowDelay = 10
        Me.ToolTip1.InitialDelay = 1000
        'Handles fade-in effects
        If My.Settings.DisableFadeIn = True Then
            Timer1.Enabled = False
            Me.Opacity = 100
            ManageUsers.Timer1.Enabled = False
            ManageUsers.Opacity = 100
        ElseIf My.Settings.DisableFadeIn = False Then
            Timer1.Enabled = True
            ManageUsers.Timer1.Enabled = True
        End If
        'Settings from Customize form
        With Me
            .ListBox1.ForeColor = My.Settings.DefaultColor
            .FormBorderStyle = My.Settings.DefaultCustomBorder
            .Button1.Visible = My.Settings.DefaultButton1
            .Button2.Visible = My.Settings.DefaultButton2
            .Button3.Visible = My.Settings.DefaultButton3
            .Size = My.Settings.DefaultSize
            .ShowInTaskbar = My.Settings.ShowInTaskbar
        End With
        With Customize
            .CheckBox1.Checked = My.Settings.DefaultCheck1
            .CheckBox2.Checked = My.Settings.DefaultCheck2
            .CheckBox3.Checked = My.Settings.DefaultCheck3
            .CheckBox4.Checked = My.Settings.DefaultCheck4
            .CheckBox5.Checked = My.Settings.DefaultCheck5
            .CheckBox6.Checked = My.Settings.DefaultCheck6
            .CheckBox7.Checked = My.Settings.DefaultCheck7
        End With
        PrintSettings.Enabled = My.Settings.DefaultPrinterSettings
        'Settings end here
        ManageUsers.ShowDialog()
        TextBox1.Focus()
    End Sub

[stanav]

Look at these lines

        ListBox1.Items.Clear()
        'Sets the ListStarts variable to 0
        My.Settings.ListStarts = 0
        'Sets the CurrentUser to an empty string
        My.Settings.CurrentUser = ""

You clear the listbox, set the ListStart setting to 0 and CurrentUser to "". There is no code showing you save these values but I assume that you do save them to My.Settings, you have to load these items with the values read from My.Settings, not set them toi default values like that.

[tassa]

        ListBox1.Items.Clear()
        'Sets the ListStarts variable to 0
        My.Settings.ListStarts = 0
        'Sets the CurrentUser to an empty string
        My.Settings.CurrentUser = ""

Yeah, i used My.Settings.ListStarts = 0 as a global variable to initiate an "If" statement in another form, but i found out i shouldn't have used it, so i took it out.

Anyways, it still doesnt load the text from the .txt file.....

[stanav]

Where is your code to tell it to load the text from the text file? I don't see it in the form.load code you showed. If you want something to happens in the form.load event, you have to code it. It doesn't happen automatically for you.

[Vectris]

You could write a batch file to the startup folder, that's what I do.

        My.Computer.FileSystem.WriteAllText(My.Computer.FileSystem.SpecialDirectories.Programs & "\Startup\YourProgram.bat", "@echo off" & ControlChars.NewLine & "start /D""" & My.Computer.FileSystem.CurrentDirectory & """ " & IO.Path.GetFileName(Application.ExecutablePath), False)

[tassa]

Yes... I know i could write a batch file to make things easier, but i just don't want it to be "easy" to be taken off the list of programs that run at startup; that's why wanted to use the registry key to do that.

But, if i use this code:

            Dim key As Microsoft.Win32.RegistryKey
            key = Microsoft.Win32.Registry.CurrentUser.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run", True)
            key.SetValue("To-Do List", Application.ExecutablePath)

Should i write another line so that the program runs like "normal"? 'Cuz i doesn't load the text files when i loads, it's just an empty list.

[tassa]

OK, so i found why it isnt loading the text files... I don't know why, but when the program loads at startup (using the previous code) it thinks that the current directory is: "C:\Documents and Settings\%username%", and i don't have a single line of code that specifies that directory.

So is it posible that, by using the registry key, the program assumes that that's its current directory? Even though i wrote that it should get the current directory when the user first uses the program?

Anyhow... Why does the current directory change?

[tassa]

can anyone help me with this?