Private Sub Combo3_Click()
Select Case Combo3.Text
Case 0
Text1.ForeColor vbRed
Case 1
Text1.ForeColor vbGreen
Case 2
Text1.ForeColor vbBlue
End Select
End Sub
跪求以下这段VB代码到底哪里出错了,错误说.forecolor属性使用无效,是设置字体颜色的。
答案:3 悬赏:20 手机版
解决时间 2021-02-14 04:41
- 提问者网友:人傍凄凉立暮秋
- 2021-02-13 15:40
最佳答案
- 五星知识达人网友:梦中风几里
- 2021-02-13 16:24
少了等号,应改为
Private Sub Combo3_Click()
Select Case Combo3.Text
Case 0
Text1.ForeColor = vbRed
Case 1
Text1.ForeColor = vbGreen
Case 2
Text1.ForeColor = vbBlue
End Select
End Sub
Private Sub Combo3_Click()
Select Case Combo3.Text
Case 0
Text1.ForeColor = vbRed
Case 1
Text1.ForeColor = vbGreen
Case 2
Text1.ForeColor = vbBlue
End Select
End Sub
全部回答
- 1楼网友:往事埋风中
- 2021-02-13 18:46
private sub command1_click()
print "hello,vb"
form1.forecolor = "&h0000ff" ' 窗体字体颜色通过forecolor属性设置,这里设置为红色
form1.backcolor = "&h00ff00" ' 窗体背景颜色通过backcolor属性设置,这里设置为绿色
end sub
- 2楼网友:拾荒鲤
- 2021-02-13 17:37
属性使用等号赋值
Text1.ForeColor vbRed
改成
Text1.ForeColor = vbRed
其他类似
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
点此我要举报以上问答信息
大家都在看
推荐资讯