0

次のフォーム ( )を表示するためのともう1 つの2RadioButtonsつが あります。Light BlueGhost WhitebuttonForm2Radio Buttonbackcolor of form2Radio Button

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 で背景色を変更することです。この質問に対する答えは非常に役に立ちます。

4

1 に答える 1

0

あなたが何をしているのかわかりません。おそらく、SecondForm の作成方法に関係しています。このコードは機能します。絞り込むのに役立つかどうかを確認してください。

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
于 2013-11-13T10:24:06.467 に答える