hi,
ich habe ein programm mit 2 formen. wobei die 2. form für einstellungen sind.
hatte bei der 2. form 6 buttons mit code versehen.funzte aber am ende leider nicht so wie ich es mir dachte.
habe sie kurzer hand duch checkboxen ersetzt den code einfach von den buttons in die checkbox verschoben.
etwas abgeändert damit es zur checkbox pass. nun wollte ich es testen und nun kann die 2. form nicht mehr geöffnet werden.
es liegt auf jedenfall an den checkboxen. ka was da das problem ist.
hier der code:
pic von der 2. form
mfg chris
ich habe ein programm mit 2 formen. wobei die 2. form für einstellungen sind.
hatte bei der 2. form 6 buttons mit code versehen.funzte aber am ende leider nicht so wie ich es mir dachte.
habe sie kurzer hand duch checkboxen ersetzt den code einfach von den buttons in die checkbox verschoben.
etwas abgeändert damit es zur checkbox pass. nun wollte ich es testen und nun kann die 2. form nicht mehr geöffnet werden.
es liegt auf jedenfall an den checkboxen. ka was da das problem ist.
hier der code:
VB.NET-Quellcode
- Private Sub ac1_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles ac1.CheckedChanged
- Dim icon1 As Icon = Icon.ExtractAssociatedIcon(item1txt.Text)
- Dim icon2 As Bitmap = icon1.ToBitmap
- If ac1.Checked = True Then
- Form1.Panel2.BackgroundImage = icon2
- Form1.Panel2.BackgroundImageLayout = ImageLayout.Stretch
- Form1.Panel2.BackColor = Color.Transparent
- My.Settings.Save()
- Else
- Form1.Panel2.BackgroundImage = Nothing
- Form1.Panel2.BackgroundImageLayout = ImageLayout.Stretch
- Form1.Panel2.BackColor = Color.Transparent
- My.Settings.Save()
- End If
- End Sub
- Private Sub ac2_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles ac2.CheckedChanged
- Dim icon3 As Icon = Icon.ExtractAssociatedIcon(item2txt.Text)
- Dim icon4 As Bitmap = icon3.ToBitmap
- If ac2.Checked = True Then
- Form1.Panel3.BackgroundImage = icon4
- Form1.Panel3.BackgroundImageLayout = ImageLayout.Stretch
- Form1.Panel3.BackColor = Color.Transparent
- My.Settings.Save()
- Else
- Form1.Panel3.BackgroundImage = Nothing
- Form1.Panel3.BackgroundImageLayout = ImageLayout.Stretch
- Form1.Panel3.BackColor = Color.Transparent
- My.Settings.Save()
- End If
- End Sub
- Private Sub ac3_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles ac3.CheckedChanged
- Dim icon5 As Icon = Icon.ExtractAssociatedIcon(item3txt.Text)
- Dim icon6 As Bitmap = icon5.ToBitmap
- If ac3.Checked = True Then
- Form1.Panel4.BackgroundImage = icon6
- Form1.Panel4.BackgroundImageLayout = ImageLayout.Stretch
- Form1.Panel4.BackColor = Color.Transparent
- My.Settings.Save()
- Else
- Form1.Panel4.BackgroundImage = Nothing
- Form1.Panel4.BackgroundImageLayout = ImageLayout.Stretch
- Form1.Panel4.BackColor = Color.Transparent
- My.Settings.Save()
- End If
- End Sub
- Private Sub ac4_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles ac4.CheckedChanged
- Dim icon7 As Icon = Icon.ExtractAssociatedIcon(item4txt.Text)
- Dim icon8 As Bitmap = icon7.ToBitmap
- If ac4.Checked = True Then
- Form1.Panel5.BackgroundImage = icon8
- Form1.Panel5.BackgroundImageLayout = ImageLayout.Stretch
- Form1.Panel5.BackColor = Color.Transparent
- My.Settings.Save()
- Else
- Form1.Panel5.BackgroundImage = Nothing
- Form1.Panel5.BackgroundImageLayout = ImageLayout.Stretch
- Form1.Panel5.BackColor = Color.Transparent
- My.Settings.Save()
- End If
- End Sub
- Private Sub ac5_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles ac5.CheckedChanged
- Dim icon9 As Icon = Icon.ExtractAssociatedIcon(item5txt.Text)
- Dim icon0 As Bitmap = icon9.ToBitmap
- If ac5.Checked = True Then
- Form1.Panel6.BackgroundImage = icon0
- Form1.Panel6.BackgroundImageLayout = ImageLayout.Stretch
- Form1.Panel6.BackColor = Color.Transparent
- My.Settings.Save()
- Else
- Form1.Panel6.BackgroundImage = Nothing
- Form1.Panel6.BackgroundImageLayout = ImageLayout.Stretch
- Form1.Panel6.BackColor = Color.Transparent
- My.Settings.Save()
- End If
- End Sub
- Private Sub ac6_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles ac6.CheckedChanged
- Dim icon11 As Icon = Icon.ExtractAssociatedIcon(item6txt.Text)
- Dim icon12 As Bitmap = icon11.ToBitmap
- If ac6.Checked = True Then
- Form1.Panel7.BackgroundImage = icon12
- Form1.Panel7.BackgroundImageLayout = ImageLayout.Stretch
- Form1.Panel7.BackColor = Color.Transparent
- My.Settings.Save()
- Else
- Form1.Panel7.BackgroundImage = Nothing
- Form1.Panel7.BackgroundImageLayout = ImageLayout.Stretch
- Form1.Panel7.BackColor = Color.Transparent
- My.Settings.Save()
- End If
- End Sub
pic von der 2. form
mfg chris