Question

设计一个VB窗体程序

要求：单击改变颜色命令按钮，用户可以输入一个颜色值并改变标签1的字体颜色

颜色函数式RGB（x,y,z),输入对话框是inputbox " ",这该怎么办

Answer 1

Dim a As String, R, G, B As Double, c As Integer
Private Sub Command1_Click()
a = InputBox("请输入颜色值,格式为:R,G,B", "输入颜色")
c = InStr(1, a, ",")
R = Mid(a, 1, c - 1)
a = Mid(a, c + 1, Len(a) - c)
c = InStr(1, a, ",")
G = Mid(a, 1, c - 1)
B = Mid(a, c + 1, Len(a) - c)
If R > 255 Or G > 255 Or B > 255 Or R < 0 Or G < 0 Or B < 0 Then
MsgBox "R,G,B的值在[0-255]之间"
Else
Label1.ForeColor = RGB(R, G, B)
End If
End Sub
呃，之前没注意，R,G,B分别对应x,y,z,自己改一下就好了

Answer 2

那就不要用InputBox输入，采用3个文本框输入，分别表示R，G，B，
更好的办法是用3个滚动条。

Answer 3

Dim x, y, z As Integer
x = InputBox("输入x的值:", "提示", "")
y = InputBox("输入y的值:", "提示", "")
z = InputBox("输入z的值:", "提示", "")
Label1.ForeColor = RGB(x, y, z)

Answer 4

就是说。。你的cmd1如果被单击。则执行语句form1.print“显示”
如果窗体被单击，就执行form1.cls
代码是这样的
private
sub
command1_click()
form1.print“显示”
end
sub
private
sub
form_click()
form1.cls
end
sub

Answer 5

e

追问

你熟悉VB不