Question

我正在使用Visual Basic（Express 2010）制作公寓租赁表格，当我选择另一个单选按钮时，我需要将一些单选按钮变灰。现在，灰色本身不是问题，即我可以让单选按钮变灰，但不是我想要的时候。

我需要点击表单上的按钮才能使特定的单选按钮变灰，但是当我点击另一个单选按钮时，我希望它们变灰。

以下是我实现子程序的方法，但它们并没有像我原先计划的那样工作。

Private Sub grpBedrooms_CheckedChanged() Handles grpBedrooms.MouseClick

    If rdoOneBed.Checked Then
        Call EnableOneBath()
        Call DisableTwoBaths()
    End If

    If rdoOneBedDen.Checked Then
        Call EnableOneBath()
        Call DisableTwoBaths()
    End If

    If rdoTwoBeds.Checked Then
        Call EnableTwoBaths()
        Call DisableOneBath()
    End If

    grpBedrooms.Refresh()

End Sub

基本上，当我点击无线电rdoOneBed或rdoTwoBeds等时，我希望立即激活DisableOneBath（）或DisableTwoBaths（）。

实际灰显无线电的代码是：

 Private Sub DisableTwoBaths()
    Me.rdoTwoBaths.Enabled = False
End Sub

感谢您的帮助！

Answer 1

试试这个..

Private Sub Bedrooms_Checked(sender As Object, e As EventArgs) Handles rdoOneBed.CheckedChanged, rdoTwoBeds.CheckedChanged
Dim rb as RadioButton = CType(sender,RadioButton)

if rb Is rdoOneBed then
  if rdoOneBed.Checked Then DisableTwoBaths() 
elseif rb Is rdoTwoBed then
  if rdoTwoBed.Checked Then DisableOneBath()
Endif

End Sub

灰色的Visual Basic无线电

1 个答案: