[.NET] 想問關於RECTANGLE函數

看板Visual_Basic作者er450203 (熱可可棉花糖)時間17年前 (2009/01/17 04:13)推噓0(0推 0噓 7→)

留言7則, 2人參與討論串1/1

基本上在寫一個很簡單的球形上下左右移動用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

→

MOONRAKER

01/17 09:13, , 1^F

01/17 09:13, 1^F

→

MOONRAKER

01/17 09:13, , 2^F

01/17 09:13, 2^F

→

er450203

01/18 00:33, , 3^F

01/18 00:33, 3^F