[VB6 ] 陣列+繪圖

看板Visual_Basic作者zuoai4321 (接近神的男人)時間14年前 (2011/04/07 20:44)推噓0(0推 0噓 1→)

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

Dim x_Coordinate(20) As Integer Dim y_Coordinate(20) As Integer Dim sum As Integer Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) DrawWidth = 5 PSet (X, Y), RGB(255, 0, 0) Print "("; X; ","; Y; ")" x_Coordinate(sum) = X y_Coordinate(sum) = Y sum = sum + 1 End Sub Private Sub Command5_Click() For i = 0 To 20 DrawWidth = 1 DrawStyle = 2 Circle (x_Coordinate(i), y_Coordinate(i)), 15 * 80, RGB(255, 0, 0) Next i End Sub 以上是小弟程式碼執行目的是在form上隨意點滑鼠點擊位置會繪圖出一個點和座標會把座標儲存在兩個陣列內當點Command5的時候會把之前的點為圓心繪出一個圓我的問題在於如果我只點4個點我只需要列印0~4 可是這會列印出0~20 所以後面沒儲存的陣列預設是0 就會在form的(0,0)位置劃出剩下5~20的圓我有想到解決方法是For i = 0 To 20改成For i = 0 To sum 可是兩行中間的分隔線讓sum不被共用有辦法讓sum值共用嗎??還是有其他方法可以讓我只繪出和我點相同數量的圓感謝各位高手高手高高手指導 -- ◢██◣▎ █▇▆▅▄ ◣ ◢ ◢█◣◢█◣ ┐│ ╔║║ ▊◣ ◢▎ ▉ ◢█◣ ◢█◣█ █◢█◣███████▆◣ │┤ ║║║ ◥██◤ ▊ ▋ █ ▋▄◤◥█◤▌▄◤◥████◤ ▌ ▋ 人│ ║╠╣ ◥█◣◢◣ ▋ ◥█▋▌◥▄▃ █ ◥▅▂ ◥██◤ ▌ ▊ │ ║║║ ▅▅▍ ◥◤ ╰─ ╚║║ —— The Red Captain Gee~Gee~Gee~Gee Tae~Tae~Tae~Tae~Tae~yeon~by jimmy508 -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 125.230.66.122 ※ 編輯: zuoai4321 來自: 125.230.66.122 (04/07 20:46)