窗体里，指定Label的颜色为何没被取消？谢谢liulang0808老师

lhj323323 · 发表于 2024-4-15 07:40

本帖最后由 lhj323323 于 2024-4-15 09:19 编辑

老师：

请看下图
快照3.png

求助.rar (20.77 KB, 下载次数: 6)

老师如有空，请帮忙看看，先谢谢了。

liulang0808 · 发表于 2024-4-15 08:04

Private Sub OptionButton1_Click()
Dim i As Integer
Dim b
b = [{1, 3}]

If OptionButton1.Value = True Then
For i = 1 To UBound(b)
      Me.Controls("Label" & b(i)).BackColor = &HFF00&
Next
Else
For i = 1 To UBound(b)
      Me.Controls("Label" & b(i)).BackColor = &H8000000F
Next
End If
End Sub

这个是单选，点击OptionButton1后变成true，不会执行else部分吧
建议在OptionButton2针对代码看看吧

lhj323323 · 发表于 2024-4-15 09:18

liulang0808 发表于 2024-4-15 08:04
Private Sub OptionButton1_Click()
Dim i As Integer
Dim b

哦，原来如此，多谢老师提示。

		自动登录	找回密码
密码			免费注册

[已解决] 窗体里，指定Label的颜色为何没被取消？谢谢liulang0808老师

评分