请高手帮我做个VB程序：做一个颜色渐变的窗体，用鼠标单击窗体时，窗体变为另一种渐变的颜色（Timer控件）?
18239 次浏览 2024-05-30 提问
67
最新回答 (2条回答)
2024-05-30 回答
=0 then ired=0
ifigreen<.height/,df
ired=ired-4
igreen=igreen-4
iblue=iblue-4
if ired<,rgb(ired,ired,iblue);=0then igreen=0
if iblue<.width
ibottom=istep
for i=1 to 66
line(ileft,igreenprivate sub form_resize()
dim i,ibottom),ileft,itop)-(iright;66)
ileft=0
iright=mainfrm,iblue as integer
ired=0
igreen=0
iblue=255
istep=(mainfrm,itop,igreen,ibottom,istep
2024-05-30 回答
c3).DrawWidth = d \.Width.Height - 500) /, i)-(Me, c3, i);单色渐变
Private Sub Form_Click()
Randomize
c2 = Int(Rnd * 256)
c3 = Int(Rnd * 256)
c = Int(Rnd * 3 + 1)
d = (Me; 15 + 1
For i = 0 To (Me', RGB(c1, c3), c2.Height - 500) Step d
Me, c1, RGB(c2; 254
Me, Choose(c, RGB(c2.Line (0
扩展回答
求做表格高手帮我做一个excel表格
名称：家装设计师个人业务量体现表 要求：入职时间 客户名称 签单率 月签单率 月签单额 签单时间 。这几个关键的加上去 其他也可以补充一下 做出来能非常直观的体现设计师的能力 求高手啊 ！
问题补充：扣扣 二七三五四四二一二九
谁帮我做一个装修预算报价
谁帮我做一个装修预算报价
请高手帮我设计房子装修
但是我看着却有点小，不过我看这个结构有点费劲，请高手帮我设计设计如何装修，只能把摆餐桌的地方隔出来，看看能不能帮我隔出个书房来下面是我房子的示意图
问题补充：
谁能帮我做一个装修效果图
帮忙做个效果图
谁能帮我做一个百变空间
谁能帮我做一个百变空间？要钱的就算了，有好心人吗
请高手们帮我弄个装修预算
防水层请那位朋友帮我搞个简装修的预算~我为了应付老师留的预算作业、地砖。
130左右平方米的大小 三室两厅两卫的户型
只装修 涂墙双会粉。
也得把卫生费和运输费还有工人的工资、墙砖、安装门
问题补充：麻烦哪位大哥给我算个详细的预算清单~QQ3053090
请高手帮我预算水泥楼梯造价
层高度2，井的地面为正方形，楼梯形状L形.8米，楼梯井的三面都是墙，边长1。谢谢.7米
问题补充：楼梯的宽庋0.55米
我准备装修房子，请高手帮我设计下
次卧2供老人住，该怎么设计。进户门南墙想做成L型的鞋柜，想利用飘窗做学习桌。客厅较长。我的邮箱为285991881@qq一进门就见厕所门。（该图左边为南）。次卧1想做成孩子屋