创建一个选择按钮数组 Option1 (两个对象)
创建一个命令按钮数组 Command1 (也两个对象)
然后:
Private Sub Option1_Click(Index As Integer)
For I = Command1.LBound To Command1.UBound
If I = Index Then
Command1(I).Enabled = True
Else
Command1(I).Enabled = False
End If
Next
End Sub
这样就可以实现你的功能了。
if Option1.Checked = True Then
Command1.Enable = True
Command2.Enable = False
Else
Command1.Enable = False
Command2.Enable = True
End If
可以运行啊。