这个vb题怎么做?红字黄底事件的代码怎么写?如图
2个回答
展开全部
'我这里假设红字复选框为check1,黄底的为check2,结果的为Text3
Private Sub Check1_Click()
If Check1.Value Then
Text3.ForeColor = vbRed '文字设置为黄色
Else
Text3.ForeColor = &H80000008 '默认颜色
End If
End Sub
Private Sub Check2_Click()
If Check2.Value Then
Text3.BackColor = vbYellow
Else
Text3.BackColor = &H80000005
End If
End Sub
Private Sub Check1_Click()
If Check1.Value Then
Text3.ForeColor = vbRed '文字设置为黄色
Else
Text3.ForeColor = &H80000008 '默认颜色
End If
End Sub
Private Sub Check2_Click()
If Check2.Value Then
Text3.BackColor = vbYellow
Else
Text3.BackColor = &H80000005
End If
End Sub
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询
广告 您可能关注的内容 |