绘制同心圆_回龙观社区网

《野猪乐园》显示文章详细内容：

灌水鼠

绘制同心圆

private sub form_load()
show
dim x,y,r,r1,i
randomize
scalemode=6
drawwidth=2
x=scalewidth/2
y=scaleheight/2
if scaleheight>scaleheight then
r=y
eles
r=x
end if
for r1=0 to r
circle(x,y),r1,rgb(255*rnd,255*rnd,255*rnd)
next
end sub

2007-04-08 20:42:18

此文章已经被查看51次

相关文章：

[回复] [顶端]

有熟悉VB的大虾么？需要做一个电子钟的小程序，谁能帮帮我？-小雨中的石榴树 (47字节阅读:100次跟贴:14 2007/04/08 13:09)[跳过]

俺会C++不过俺没时间帮你..帮顶(空)-小P孩啊 (阅读:53次 2007/04/08 13:10)

接着哭ing(空)-小雨中的石榴树 (阅读:46次 2007/04/08 13:14)

不要哭了我帮你!不过------------------------------------------------------------------>-京城玩主 (47字节阅读:72次 2007/04/08 13:20)

这个只需要调用一个时间控件就ok了吧～～-灌水鼠 (193字节阅读:88次 2007/04/08 13:20)
电子钟会做了，怎么加上些小动画啊？比如自由移动或放大缩小？-小雨中的石榴树 (80字节阅读:77次 2007/04/08 19:56)

又来了~~-灌水鼠 (16字节阅读:43次 2007/04/08 20:04)

呵呵，是啊，光讲那两行程序怎么讲30分钟啊。(空)-小雨中的石榴树 (阅读:64次 2007/04/08 20:26)

画圆的程序~-灌水鼠 (242字节阅读:97次 2007/04/08 20:37)
绘制同心圆-灌水鼠 (250字节阅读:51次 2007/04/08 20:42)

你咋啥都懂啊，谢了啊，我再捉摸捉摸。(空)-小雨中的石榴树 (阅读:47次 2007/04/08 20:58)

当有一天，我不再说话得时候~-灌水鼠 (77字节阅读:58次 2007/04/08 21:02)

放心吧，-小雨中的石榴树 (57字节阅读:38次 2007/04/08 21:06)

上网搜不就OK了，哎。。(空)-宁可爱得这样浅薄 (阅读:61次 2007/04/08 20:20)

嗯，今天上午开始学vb，下周二就用，这不是着急么。也搜着呢，没有正好的。(空)-小雨中的石榴树 (阅读:57次 2007/04/08 20:30)

您必须登录论坛才可以发表文章：

用户名：

密码：

记住密码：

（忘记密码注册）