[Help]Save track bar settings[Solved]

[jajarem64]

I'm trying to figure out how to save my Track bar settings the user chooses, its a slider to adjust the time it takes to inject. Made it in VB 2010 Exp. I want to know the easiest fastest way to do it within the project and it not have to rely on outside sources. If its not possible then just give me the quickest easiest way. I've tried My.Settings method but I just can't seem to get it to work could someone give me a code or a link on how to do it please I've been stuck on it all day!!!!

[Lolland]

.ini file, or my.settings.

[jajarem64]

lolland I know dude but thats what I'm doing My.Settings but I can't get it to work think you could TV me maybe?

[Lolland]

Try writing it to an .ini file.

It's as easy as this: https://www.mpgh.net/forum/33-visual-...ml#post1964448

[jajarem64]

This is what I got. I've tried diffrent codes. Tell me what I need to add or can you just mod the code and paste it.

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        If TrackBar1.Value = My.Settings.RemInjectTime Then
            My.Settings.RemInjectTime = TrackBar1.Value
            My.Settings.Save()
            My.Settings.Reload()
        End If
            My.Settings.Save()
            My.Settings.Reload()

But I would rather have it in just the app I don't want any outside files

[Hassan]

Use this code. Just tested it and works fine:

First save the settings as you scroll the track bar:

Private Sub TrackBar1_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar1.Scroll
My.Settings.RemInjectTime = TrackBar1.Value
My.Settings.Save()
My.Settings.Reload()
End Sub

Then when the application is loaded, reload the setting and assign its value to track bar 1:

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If Not My.Settings.RemInjectTime = vbNullString Then
TrackBar1.Value = My.Settings.RemInjectTime
End If
End Sub

Hope this helps !!

[jajarem64]

OMFG thank you!!!!! tears OF JOY!!!!!!!!!

[Hassan]

OMFG thank you!!!!! tears OF JOY!!!!!!!!!

Haha, No problem. Glad to help you

[jajarem64]

Oh and there is something else I could use some help on my slider is not changing the time for it I thought this would be the right way to do it.

    Private Sub TrackBar1_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar1.Scroll
        My.Settings.RemInjectTime = TrackBar1.Value
        My.Settings.Save()
        My.Settings.Reload()

        If TrackBar1.Value = 0 Then
            Form2.Timer1.Interval = 5
            If TrackBar1.Value = 1 Then
                Form2.Timer1.Interval = 10
                If TrackBar1.Value = 2 Then
                    Form2.Timer1.Interval = 20
                    If TrackBar1.Value = 3 Then
                        Form2.Timer1.Interval = 30
                        If TrackBar1.Value = 4 Then
                            Form2.Timer1.Interval = 40
                            If TrackBar1.Value = 5 Then
                                Form2.Timer1.Interval = 50
                                If TrackBar1.Value = 6 Then
                                    Form2.Timer1.Interval = 60
                                    If TrackBar1.Value = 7 Then
                                        Form2.Timer1.Interval = 70
                                        If TrackBar1.Value = 8 Then
                                            Form2.Timer1.Interval = 80
                                            If TrackBar1.Value = 9 Then
                                                Form2.Timer1.Interval = 90
                                                If TrackBar1.Value = 10 Then
                                                    Form2.Timer1.Interval = 100
                                                End If
                                            End If
                                        End If
                                    End If
                                End If
                            End If
                        End If
                    End If
                End If
            End If
        End If
    End Sub

[Invidus]

Shouldn't you be using ElseIf?

[jajarem64]

If I am supposed to be using ElseIf then OOOOPS :P and if it works tyVM!

Well it says it has to be followed by a preceeding ElseIf

Someone post the code in here for me please I'm totally confused rofl like I said I'm just a VB beginner.

[Hassan]

Oh and there is something else I could use some help on my slider is not changing the time for it I thought this would be the right way to do it.

    Private Sub TrackBar1_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar1.Scroll
        My.Settings.RemInjectTime = TrackBar1.Value
        My.Settings.Save()
        My.Settings.Reload()

        If TrackBar1.Value = 0 Then
            Form2.Timer1.Interval = 5
            If TrackBar1.Value = 1 Then
                Form2.Timer1.Interval = 10
                If TrackBar1.Value = 2 Then
                    Form2.Timer1.Interval = 20
                    If TrackBar1.Value = 3 Then
                        Form2.Timer1.Interval = 30
                        If TrackBar1.Value = 4 Then
                            Form2.Timer1.Interval = 40
                            If TrackBar1.Value = 5 Then
                                Form2.Timer1.Interval = 50
                                If TrackBar1.Value = 6 Then
                                    Form2.Timer1.Interval = 60
                                    If TrackBar1.Value = 7 Then
                                        Form2.Timer1.Interval = 70
                                        If TrackBar1.Value = 8 Then
                                            Form2.Timer1.Interval = 80
                                            If TrackBar1.Value = 9 Then
                                                Form2.Timer1.Interval = 90
                                                If TrackBar1.Value = 10 Then
                                                    Form2.Timer1.Interval = 100
                                                End If
                                            End If
                                        End If
                                    End If
                                End If
                            End If
                        End If
                    End If
                End If
            End If
        End If
    End Sub

You need to use Else-If command. Right now what ya doing is telling the program that if Trackbar 1's value is 0 then execute rest of the conditional statements.

Use this sub:

[php]Private Sub SetTrackbar(ByVal trackbar As TrackBar, ByVal val As Integer, ByVal interval As Integer)
If trackbar.Value = val Then
form2.Timer1.Interval = interval
End If
End Sub[/php]

Then I would call it in the trackbar_scroll event as:
[php]SetTrackbar(TrackBar1,0,5)
SetTrackbar(TrackBar1,1,10)[/php]

And so on...

The final trackbar_scroll even code should be like this:
[php]Private Sub TrackBar1_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar1.Scroll
My.Settings.RemInjectTime = TrackBar1.Value
My.Settings.Save()
My.Settings.Reload()
SetTrackbar(TrackBar1,0,5)
SetTrackbar(TrackBar1,1,10)
'Add rest of them yourself !!!
End Sub
[/php]

Also you can use loops for it if necessary, but I think this would solve your problem.

EDIT: When you post something, then please wait for an answer. We are not always looking at your posts only. If you don't get a reply PM / VM some user you know can solve your problem. But don't bump as it can lead you to a ban !!!

[jajarem64]

Yeah sorry for the bumping I don't have a edit button to edit my post and thanks for the help again

[jajarem64]

It seems to still be doing the same wait time (50) even tho I changed it to 100 to test if it would be slower.

[Hassan]

It seems to still be doing the same wait time (50) even tho I changed it to 100 to test if it would be slower.

50 = 50 milliseconds
100 = 100 milliseconds

1000 = 1 second

So any value less than 1000 will be in milliseconds...So it will go very fast. But indeed its changing !!!