如何在事件中更改发件人父级的颜色？

Question

我是这个视觉环境的新手，当点击其中的单选按钮时，我无法弄清楚如何更改面板的颜色。

这是我尝试过的代码。消息框用于报告它来自 Panel1，但我不能使用相同的代码来更改 Panel1 的颜色。

Private Sub rad01yes_CheckedChanged(sender As Object, e As EventArgs) Handles rad01yes.CheckedChanged
    MsgBox(sender.parent.name.ToString(), vbOK, "TitleHere")
    sender.parent.name.colorselection = Color.Black
End Sub

我也试过了

sender.parent.colorselection = Color.Black

和

    Dim myPanel As Panel = sender
    myPanel.BackColor = Color.Black

我无法通过搜索找到任何内容。我想我的问题措辞可能有误？

Answer 1

这里的问题是sender 是Object 类型，因此没有Parent 或BackColor 属性。相反，您需要使用DirectCast 将Sender.Parent 转换为Panel 的类型。

Private Sub rad01yes_CheckedChanged(sender As Object, e As EventArgs) Handles rad01yes.CheckedChanged
    MsgBox(sender.parent.name.ToString(), vbOK, "TitleHere")
    Dim sendersPanel = DirectCast(sender.Parent, Panel)
    sendersPanel.BackColor = Color.Black
End Sub

不过，请注意。 CheckChanged 事件在表单首次加载时触发，因此上述代码将导致程序首次启动时面板的颜色为黑色。您可能希望在 RadioButton 的 Clicked 事件处理程序中对此进行编码。