Vb.net 更改Form2的背景色
我有两个Vb.net 更改Form2的背景色,vb.net,background,Vb.net,Background,我有两个单选按钮,一个用于浅蓝色,另一个用于鬼白色,还有一个按钮,用于显示下一个表单(表单2) 我希望能够检查单选按钮,并且表单2的背景色更改为选中的单选按钮 这就是到目前为止我在编码方面所做的 Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click SecondForm.Show() End Sub Private Sub rbLi
单选按钮
,一个用于浅蓝色
,另一个用于鬼白色
,还有一个按钮
,用于显示下一个表单(表单2
)
我希望能够检查单选按钮
,并且表单2的背景色
更改为选中的单选按钮
这就是到目前为止我在编码方面所做的
Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
SecondForm.Show()
End Sub
Private Sub rbLightBlue_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbLightBlue.CheckedChanged
If rbLightBlue.Checked Then
SecondForm.BackColor = (Color.LightBlue)
End If
End Sub
Private Sub rbGhostWhite_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbGhostWhite.CheckedChanged
If rbGhostWhite.Checked Then
SecondForm.BackColor = (Color.GhostWhite)
End If
End Sub
我遇到的问题是在Form2上更改背景色。
这个问题的任何答案都会非常有用。我不确定您在做什么,这可能与您如何创建第二个表单有关,此代码确实有效,请查看它是否有助于您缩小范围
Public Class Form1
Dim SecondForm As Form2 = New Form2
Private Sub rbLightBlue_CheckedChanged(sender As Object, e As EventArgs) Handles rbLightBlue.CheckedChanged
If DirectCast(sender, RadioButton).Checked Then
SecondForm.BackColor = Color.LightBlue
End If
End Sub
Private Sub rbGhostWhite_CheckedChanged(sender As Object, e As EventArgs) Handles rbGhostWhite.CheckedChanged
If DirectCast(sender, RadioButton).Checked Then
SecondForm.BackColor = Color.GhostWhite
End If
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
SecondForm.Show()
End Sub
End Class
你的代码应该可以工作,到底发生了什么?有错误吗?嗯,我运行它时没有收到任何错误。问题是,当我运行它时,在我的第二个表单中什么都没有发生,我想可能是因为我必须在第二个表单上添加一些代码,才能让命令通过表单1发送给它。单选按钮,第一个表单或第二个表单中的按钮