如何设置按钮内字体的颜色？ - 编程论坛

#2

风吹过b2017-04-18 08:36

我是使用 OptionButton 控件。
可以直接设置颜色之类的。

代码中，使用一句：
Private Sub Option1_Click()
Option1.Value = False

取消选中状态就是了。
如果里面也有这个控件，会产生冲突的话，用
CheckBox 控件也行。
Private Sub Check1_Click()
Check1.Value = 0

这二个控件，都注意设置一个
Style 这个属性，外观和按钮基本上是一样的。简单化就可以这样做。

#3

HVB62017-04-18 08:46

回复 2楼风吹过b

做了，OK！谢谢！

#4

HVB62017-04-18 09:49

回复 2楼风吹过b

请教版主：附件的“OK.exe”，打开后，还没点击按钮，为何总是显示“ok1”。附件如何改，才能实现点击某个按钮，则此按钮中的代码才运行？如点击“ok3”按钮，显示“ok3”，以此类推。谢谢。

只有本站会员才能查看附件，请登录

[此贴子已经被作者于2017-4-18 09:50编辑过]

#5

风吹过b2017-04-18 10:52

你还是用 CheckXox 做吧。

Option1，因为有一个默认必须被选中，所以会导致那个触发的问题。

程序代码：

Private Sub Check1_Click()
If Check1.Value <> 0 Then       '如果当前为下沉状态，不响应
    Check1.Value = 0            '设置为不不沉状态
    MsgBox "OK1"                '响应动作
End If

End Sub

Private Sub Check2_Click()
If Check2.Value <> 0 Then
    Check2.Value = 0
    MsgBox "OK2"
End If
End Sub

Private Sub Check3_Click()
If Check3.Value <> 0 Then
    Check3.Value = 0
    MsgBox "OK3"
End If
End Sub

Private Sub Check4_Click()
If Check4.Value <> 0 Then
    Check4.Value = 0
    MsgBox "OK4"
End If
End Sub

#6

HVB62017-04-18 11:31

回复 5楼风吹过b

没有一个按钮反应。

[此贴子已经被作者于2017-4-18 12:19编辑过]

#7

HVB62017-04-18 12:00

解决方法之一：每个按钮加一个鼠标单击事件。