菜鸟急等跪求：请问怎样将单选按钮（radio)设为只读状态？即可以读到当前值，但无法改变! 谢谢

Question

哪位大哥，拜托了！

Answer 1

晕，设Enabled属性不就完事了么？

Answer 2

disabled的话就显示是灰色的，看上去不好！有没有类似文本框那样把LOCKEDS属性射成TRUE的方法呢，这样看起来和Enabled状态是一样的，但又无法输入！谢谢！

Answer 3

Private Declare Function EnableWindow Lib "user32" (ByVal hwnd As Long, ByVal fEnable As Long) As Long
Private Sub Form_Load()
EnableWindow Option1.hwnd, 0
End Sub

Answer 4

把单选按钮分别放在不同的frame控件中即可

Answer 5

我的意思是控件在enabled状态下，但不能进行选择操作！
不使用enabled属性！

Answer 6

Private Sub Option1_Click()
Option1.Value = Not Option1.Value
End Sub

Answer 7

//我的意思是控件在enabled状态下，但不能进行选择操作！
不使用enabled属性！看我上面的回复，简单的说，就是一个单选按钮一组

Answer 8

使用控件数组是可方便你写代码（最好是一组起一个名称）
假设你的FORM上面有多个名称为optTest的Option，下面的代码设置只是选择optTest(2).Value 
Private Sub optTest_Click(Index As Integer)
    optTest(2).Value = True
End Sub

Answer 9

楼上的大哥，这样虽然没法选择了，但原来有的值也显示不出来了！
Option1.Value = Not Option1.Value当原来 Option1.Value = True 时在显示时就变成False了

Answer 10

或者：
先放置一个Frame控件，在Frame控件内部放置你的单选按钮。然后设置Frame控件的BorderStyle属性为0，Enabled属性为False。这样也可以实现"Lock"功能。

Answer 11

rainstormmaster 你这个方法还行，目前是最好的，至少不用写代码！谢谢！