学而思ips有安卓版吗:vb的头疼问题

来源:百度文库 编辑:杭州交通信息网 时间:2024/05/09 19:27:43
设置一个文本框 然后设置一个组合框(有黑‘红两中颜色)style属性为2文本框里也有内容 现在要设置代码 要求点到黑色或红色后 文本框中的字体颜色就变成相应的颜色
上面问题已经解决如果还要求也可以在组合框中自定义输入 并按回车结束 该如何做呢?

Private Sub Combo1_Click()
If Combo1.Text = "红" Then
Text1.ForeColor = vbRed
Else
Text1.ForeColor = vbBlack
End If
End Sub

点红色后
Text1.ForeColor = vbRed
点黑色后
Text1.ForeColor = vbBlack

3楼的正确,就是先设置一个单击事件,然后用if,else做条件判断。然后退出判断,退出事件。