作者zuoai4321 (接近神的男人)
看板Visual_Basic
标题[VB6 ] 阵列+绘图
时间Thu Apr 7 20:44:47 2011
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)
1F：→ zuoai4321:好吧...嗯我解决了 改成For i = 0 To sum-1 04/07 21:34