表单怎么写一个背景颜色随机变化的程序 - vfp吧

level 1

段引航楼主

如题，刚学表单这，云里雾里的，是不是先画个计时器，再更改计时器属性InterVal为1000毫秒，双击定时器控件打开代码窗口，在里面写：
THISFORM.BACKCOLOR=RGB(RAND(),RAND(),RAND())
然后关闭代码窗口，点击上面的红色感叹号运行，结果背景颜色一直是黑的没有改变，也许是属性或者程序有问题，求大神解答！

2014年08月12日 15点08分 1

level 9

stick777

取值范围不对, 2567478305 代做

2014年08月13日 03点08分 2

段引航

Rand加了取值范围写成Thisform.Backcolor=RGB(rand(255),rand(255),rand(255))，表单的背景颜色还是一直黑的。 [泪]

2014年08月13日 16点08分

stick777

255*RAND(0) 实验一下

2014年08月14日 00点08分

段引航

回复 stick777 :试验了，写成THISFORM.BACKCOLOR=RGB(255*RAND(0),255*RAND(0),255*RAND(0))之后颜色确实可变，但是只是在浅灰、深灰和黑色这三种颜色变换，没有彩色的。 [疑问]

2014年08月14日 13点08分

level 9

stick777

还有计时器是否ENABLED=.T.

2014年08月14日 00点08分 3

段引航

计时器默认不就是ENABLED=.T.吗？ [疑问]

改成.F.定时器就不能用了。

2014年08月14日 13点08分

level 11

taohua300

thisform.BackColor = Rgb(Int(Rand() * 255) + 1,Int(Rand() * 255) + 1,Int(Rand() * 255) + 1)
另外，你需要在表单的init或load事件里加上
Rand(-1)

2014年08月15日 01点08分 4

段引航

确实可用了，不过完全读不懂程序，int()是什么函数？还有rand为什要乘以255，而不是把255放在rand的()里面，还有乘完255后为什么要+1，以及在表单里写的rand(-1)又是什么意思？ [疑问]

2014年08月15日 02点08分

level 9

stick777

... 慢慢琢磨吧

2014年08月15日 02点08分 5

段引航

时间不允许，因为要马上学好了用，所以想办法走捷径。

2014年08月15日 16点08分

level 11

taohua300

这些函数的作用在帮助文件中都有明确的说明
如果不知道这些函数的功能
你什么功能都实现不了

2014年08月15日 05点08分 6

段引航

我装的visual foxpro6.0没有帮助文件，不光函数，每个控件的属性有说明，不过描述的太抽象，书里每个控件用法和例子也不全，这几天一直在想命令按钮组焦点属性，今天发现焦点即是当前选中的东西，而且还有很多不明白，真是浪费时间研究。

2014年08月15日 16点08分

taohua300

回复段引航 :这不叫浪费时间，学习就是这样的。即使你是天才中的天才，你也做不到

2014年08月16日 01点08分

taohua300

回复 taohua300 :绿色版的vfp吧？如果是安装版，按F1。或者网上搜索一个帮助文件

2014年08月16日 01点08分

level 11

taohua300

rand（）函数是随机函数，其值大于0小于1。且该函数实际上是个伪随机函数，即每次产生的随机数都是一样的。要解决这个问题，就得在该函数的参数上动脑筋。当参数为负数时，rand函数的随机数种子为当前系统时间，所以在使用rand函数前一般先执行rand（-1）来进行随机初始化。这样，在不同时刻产生的随机数就不同了。
而rgb函数三个参数的取值为大于等于0，小于等于255。所以，rand（）* 255 的取值范围在0-255之间。而int函数的作用是取其参数的整数部分。+1,使其值在1-255之间的整数,这样，表单的背景色永远不能是纯黑色
其实，最好的应该是int(rand() * 256)

2014年08月15日 05点08分 8

段引航

嗯，差不多明白了

2014年08月15日 16点08分