作者er450203 (热可可棉花糖)
看板Visual_Basic
标题[.NET] 想问关於RECTANGLE函数
时间Sat Jan 17 04:13:14 2009
基本上在写一个很简单的球形上下左右移动
用Rectangle再里面画个圆形
按钮按会增加Rectangle的X,Y值
但是会一直复制新的出来
所以加了先清除画布再增加X,Y值
有甚麽办法可以不要让他复制吗?
而且Rectangle移动一次跑好慢Q口Q
如果不用Rectangle
直接在按钮内写新增圆形
那个圆形就跑起来很快
有人知道这是为甚麽吗QAQ?
谢谢 :)
这是我写的程式码OAO
Dim rect
As New Rectangle(0,0,50,50)
Dim Ball
As Graphics
Dim Pen
As New SolidBrush(Color.Black)
Dim x,y
As Integer
▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁
Private Sub Form1_Paint (....
Ball = Me.CreateGraphics
'表单为画图物件
Ball.FillEllipse ( Pen , rect )
'在rect画个圆
▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁
Private Sub Form1_Load (....
x = rect.Location.X
y = rect.Location.Y
▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁
Private Sub btnTop_Click (....
Ball.Clear ( Color.White )
'先把原本的圆清除在画新的
rect.Location.Y = y - 50
'一次移动50
▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁
Private Sub btnLeft_Click (....
Ball.Clear ( Color.White )
'先把原本的圆清除在画新的
rect.Location.X = x - 50
'一次移动50
▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁
因为另外两个都差不多所以就不写了
不先清除好像就只会复制而且只会在原地上下左右50复制而已
如果不用Rectangle写的话
也是一样先清除前面的圆
然後在按钮先写x或y增加50
再写 Ball.FillEllipse ( Pen , x , y , 50 , 50 )
因为这题目老师还没交...
而课本上也只有提供方法 说明很少
范例也并没有移动的 只好乱摸 囧
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 61.224.28.143
1F：→ MOONRAKER:太深奥了，看不懂。rect不是用来给定圆的大小位置吗？ 01/17 09:13
2F：→ MOONRAKER:那以下不用rectangle又是怎样写？ 01/17 09:13
3F：→ er450203:啊啊 抱歉没有说明很好 囧" 01/18 00:33
※ 编辑: er450203 来自: 61.224.34.32 (01/18 01:31)
※ 编辑: er450203 来自: 61.224.34.32 (01/18 01:39)
4F：→ er450203:对不起啊啊(鞠躬) 加上程式码了 不太会说明就是了 囧 01/18 01:40
5F：→ MOONRAKER:唔，这样我也不懂了，使用rectangle跟不用居然会差那麽 01/18 20:17
6F：→ MOONRAKER:多？这真要实作下去才知道，我没比较过 X( 01/18 20:18
7F：→ er450203:嗯嗯 没关系 谢谢你罗: D 01/20 02:09