[Solved]Settings

[Blubb1337]

Ow screw this :/ idk what's wrong...

     Private Sub ComboBox1_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox1.TextChanged
        If ComboBox1.Text = "Blue" Then
            RibbonControl1.Office2007ColorTable = DevComponents.DotNetBar.Rendering.eOffice2007ColorScheme.Blue
            My.Settings.style = "Blue"
            My.Settings.Save()
            My.Settings.Reload()

        ElseIf ComboBox1.Text = "Black" Then
            RibbonControl1.Office2007ColorTable = DevComponents.DotNetBar.Rendering.eOffice2007ColorScheme.Black
            My.Settings.style = "Black"
            My.Settings.Save()
            My.Settings.Reload()


        ElseIf ComboBox1.Text = "Silver" Then
            RibbonControl1.Office2007ColorTable = DevComponents.DotNetBar.Rendering.eOffice2007ColorScheme.Silver
            My.Settings.style = "Silver"
            My.Settings.Save()
            My.Settings.Reload()
        End If

So it actually does change .style to "Silver", however just until I close the program. So...it does change my.settings but it does not save =/

[Invidus]

Did you actually enter a string setting in your application properties?

[Blubb1337]

yes i did as i said...it does change...but it doesn't save..

[Invidus]

Lol you have a lot of problems don't you..

[Blubb1337]

All those weird problems whose seem illlogical -_-

[Invidus]

Lol exactly

[Blubb1337]

ok =/ hopefully you find something...

[Blubb1337]

  Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        RibbonControl1.Office2007ColorTable = My.Settings.style
    End Sub

Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        If ComboBox1.Text = "Blue" Then
            RibbonControl1.Office2007ColorTable = DevComponents.DotNetBar.Rendering.eOffice2007ColorScheme.Blue
            My.Settings.style = DevComponents.DotNetBar.Rendering.eOffice2007ColorScheme.Blue
        End If

        If ComboBox1.Text = "Black" Then
            RibbonControl1.Office2007ColorTable = DevComponents.DotNetBar.Rendering.eOffice2007ColorScheme.Black
            My.Settings.style = DevComponents.DotNetBar.Rendering.eOffice2007ColorScheme.Black
        End If

        If ComboBox1.Text = "Silver" Then
            RibbonControl1.Office2007ColorTable = DevComponents.DotNetBar.Rendering.eOffice2007ColorScheme.Silver
            My.Settings.style = DevComponents.DotNetBar.Rendering.eOffice2007ColorScheme.Silver
        End If

        My.Settings.Save()
        My.Settings.Reload()

    End Sub

Neither works. It simply does not save.

[Bluthera]

gah.. VB is really annoying sometimes. even when codes are perfect.

[NextGen1]

Use form load to check the state of the combo-box instead of the settings


If Combo-Box1.SelectedItem = "Black" then
yada yada
Else if ComboBox1.selecteditem = "Silver"
Yadayada
Else if
You get the idea
end if

[mnpeepno2]

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If my.settings.style = blue then
RibbonControl1.Office2007ColorTable = RibbonControl1.Office2007ColorTable.Blue
ElseIf my.settings.style = black then
RibbonControl1.Office2007ColorTable = RibbonControl1.Office2007ColorTable.Black
ElseIf my.settings.style = Silver then
RibbonControl1.Office2007ColorTable = RibbonControl1.Office2007ColorTable.Silver
End If
End Sub

[Blubb1337]

it does not save...even nextgen couldn't fix it >_<

[mnpeepno2]

my way is how i make it work, if you want a foolproof way, then PM me

[Blubb1337]

thing is...form1 does NOT matter at all. it simply does NOT save...

100% if sentences of comoboBox...does work without if's...

[NextGen1]

Yea, Internet Crashed, But I team viewed, nothing is working, It's so strange.....