picturebox的line畫的方形顯示不出來,很簡單的

[lh983508]

各位高手幫我看看,為甚麼畫的方形顯示不出來,是不是和位數,picturebox的currentX,currentY屬性有關,界面只有一個picturebox控件,請給我詳細回答一下,不勝感激!tanks!
Private Sub Form_Load()
Dim cell_width As Integer
Dim cell_height As Integer
Dim i As Integer
Dim die_count As Integer
Dim a(1 To 26) As Integer


die_count = 25
cell_width = Picture1.Width / die_count
cell_height = Picture1.Height / 10
sum = 0

For i = 1 To 25
a(i) = i
sum = sum + a(i)
Next i


Picture1.AutoRedraw = True
Picture1.DrawWidth = 2

For i = 1 To 25
Picture1.Line (i * cell_width - 50, a(i) * 1000 + 50)-(i * cell_width + 50, a(i) * 1000 - 50), vbRed, BF
Next i

End Sub

[domhuang]

picture的属性
autoredraw=ture 看看怎么样

[viena]

autoredraw=ture
或者代码
autoredraw=false
代码放在Form_Paint里面

[viena]

代码放在Form_Activate里面试一下

[sdrcxzy]

a(i) * 1000 + 50，a(i) * 1000 - 50
这两个坐标谁大阿？换一下试试

[crycoming]

我机器运行你的代码没有问题啊 VB的补丁打了没有？

[fishmans]

新建一工程试试

a(i)的值就是设的这么大吗？我这就屁眼大的一个红色方框，是不是楼主把数值设的太小了？