| pradeep | Date: Monday, 27 December 10, 12:41 PM | Message # 1 |
 pk
Group: Administrators
Messages: 82
Status: Offline
| form_load If My.Settings.theme1.Contains("selected") Then panel1.BackgroundImage = My.Resources.border_white ComboBox1.Text = ("White") ElseIf My.Settings.theme2.Contains("selected") Then panel1.BackgroundImage = My.Resources.border_silver ComboBox1.Text = ("Silver") ElseIf My.Settings.theme3.Contains("selected") Then panel1.BackgroundImage = My.Resources.border_dark ComboBox1.Text = ("Dark") End If ComboBox1_TextChanged If
ComboBox1.Text = ("White") Then panel1.BackgroundImage = My.Resources.border_white My.Settings.theme1 = ("selected") My.Settings.theme2 = ("theme2") My.Settings.theme3 = ("theme3") My.Settings.Save() ElseIf ComboBox1.Text = ("Silver") Then panel1.BackgroundImage = My.Resources.border_silver My.Settings.theme2 = ("selected") My.Settings.theme1 = ("theme1") My.Settings.theme3 = ("theme3") My.Settings.Save() ElseIf ComboBox1.Text = ("Dark") Then panel1.BackgroundImage = My.Resources.border_dark My.Settings.theme3 = ("selected") My.Settings.theme1 = ("theme1") My.Settings.theme2 = ("theme2") My.Settings.Save() ElseIf ComboBox1.Text = ("Default")
Then
panel1.BackgroundImage = My.Resources.border_white My.Settings.theme1 = ("selected") My.Settings.theme2 = ("theme2") My.Settings.theme3 = ("theme3") My.Settings.Save() End If If ComboBox1.Text = ("")
Then ComboBox1.Text = ("Default")
End If
|
| |
| |
