Question

vb中picturebox控件数组中画图显示

以下代码中
Private sub Form_Load()
..............
j=0
For b1=0 to 10
For X = 0 To 33.6 Step 0.0001
Y = 40 - Sqr(1600 - (X - 40) ^ 2)
Picture1(b1).PSet (X, Y), RGB(255, 0, 0)
Next X
For X = 33.6 To 80 Step 0.0001
Y = 40 - Sqr(1600 - (33.6 - 40) ^ 2)
Picture1(b1).PSet (X, Y), RGB(255, 0, 0)
Next X
Picture1(b1).Line (x2(0, j), g(0, j))-(x2(0, j), g(1, j)), RGB(255, 0, 0)
Picture1(b1).Line (x2(0, j), g(1, j))-(x2(1, j), g(2, j)), RGB(255, 0, 0)
For i = 1 To 10
Picture1(b1).Line (x2(i, j), g(i + 1, j))-(x2(i + 1, j), g(i + 2, j)), RGB(255, 0, 0)
Next i
Picture1(b1).Line (x2(11, j), g(12, j))-(x2(11, j), g(13, j)), RGB(255, 0, 0)
Picture1(b1).AutoRedraw = True
j = j + 1
Next b1
End sub
请问一下为什么Picture1(b1).PSet画的图在Picture1(b1)中能显示，Picture1(b1).Line画的图却不能显示？

Answer 1

经测试，你的代码没有问题。
据你所说，“Picture1(b1).PSet画的图在Picture1(b1)中能显示，Picture1(b1).Line画的图却不能显示”，问题应该出在你的数组x2或者g中，请你检查数组的值是不是正常。

如果还不能正常工作，建议你将数组创建和赋值部分的代码贴出来，打叫也好帮你分析解决问题。

Answer 2

是不是数组无值，我试了一下，Picture1.Line (2000, 2000)-(6000, 5000), RGB(255, 0, 0)，没有一点问题啊，前面的代码是什么样的

追问

谢谢你的解答，前面的代码是计算数组值的过程，在一般的picture中都没问题，在picture控件数组中不能正常显示

追答

控件数组也一样啊，下面的代码：
Dim b1 As Long
For b1 = 0 To 1
Picture1(b1).Line (500, 500)-(1000, 1000), RGB(255, 0, 0)
Next
运行一点问题也没有