Option Explicit

Private Sub Check1_Click()
Text1.FontBold = Check1.Value
End Sub

Private Sub Check2_Click()
Text1.FontItalic = Check2.Value
End Sub

Private Sub Check3_Click()
Text1.FontUnderline = Check3.Value
End Sub

Private Sub Option1_Click(Index As Integer)
Select Case Index
    Case 0
    Text1.FontName = "隶书"
    Case 1
    Text1.FontName = "黑体"
    Case 2
    Text1.FontName = "楷体_GB2312"
    End Select
   
End Sub

Private Sub Option2_Click(Index As Integer)
Select Case Index
    Case 0
    Text1.FontSize = "8"
    Case 1
    Text1.FontSize = "10"
    Case 2
    Text1.FontSize = "14"
    End Select
End Sub
第一个单选按钮单击选中后，再单击第二个单选 按钮，第一个单选按钮没有自动取消选中状态 。

[ 本帖最后由 票根 于 2010-5-21 12:07 编辑 ]

没明白说的什么意思

Private Sub Option1_Click(Index As Integer)
Select Case Index
    Case 0
    Text1.FontName = "隶书"
    Case 1
    Text1.FontName = "黑体"
    Case 2
    Text1.FontName = "楷体_GB2312"
    End Select
   
End Sub
这是一段 单 选 按钮的代码 ，单独用是没有问题的，但是放到上面的那些代码中，运行时，第一个单选 按钮选 中后，就无法自动取消选中状态
请各们大侠们给指点指点

估计和界面设计时option按钮 放的位置（组）有关。最好把完整的工程传上来

option(0).value=false就是取消选择，一组按钮会有个值缺省true

没有option(0),直接从option(1)开始的


4楼，能不能说得详细点

option改用check

貌似代码没什么问题！传个完整的来看看啊

貌似代码没什么问题！传个完整的来看看啊

设置成控件数组