使命令按钮失效VB代码

private sub command1_click()
if text.text="" then
command1.enable=0
else
command1.enable=1
end if

private
sub
command1_click()
dim
s
as
integer
s
=
int(rnd
*
10001)
text1.forecolor
=
"&"
&
"h"
&
hex(s)
label1.caption
=
s
end
sub

此代码原理是：利用rnd产生随机数，并保存在s中，然后将s转化成十六进制数值，text1根据这个数值决定字体颜色。
你可以改变s的取值范围，来改变text1颜色的范围！

if text1="" then
command.enable=false
else
command.enable=true
end if

好像是button.enable=false吧？？很久前学的VB，隐约记得要使他生效，enable要设为true。。

private sub commandbutton1_click()
if textbox1.text="" then
commandbutton1.enabled=0
else
commandbutton1.enabled=1
end if