我是这样做的
建立三个TEXT文本框(因为rgb函数的参数有三个)
一个标签用来显示颜色
第一个命令按钮是确定 第二个是退出
代码如下
private sub command1_click()
r=val(text1.text)
g=val(text2.text)
b=val(text3.text)
label1.backcolor=rgb(r,g,b)
if r>255 or r<0 then
msgbox "只能输入0到255之间的数字哦",vbinformation,"小提示"
elseif g>255 or g<0 then
msgbox "只能输入0到255之间的数字哦",vbinformation,"小提示"
elseif r>255 or r<0 then
msgbox "只能输入0到255之间的数字哦",vbinformation,"小提示"
end sub
private sub command2_click()
end
end sub
把分给我 我都打字打晕了
温馨提示:答案为网友推荐,仅供参考