用VB画一个十字交叉线的问题

程序是用一个PICTURE控件实时显示摄像头图像，我用LINE画两条线，想在图像上显示出来，但是现在的问题是看不到画的十字线。AUTOREDRAW也是为TRUE，请问如何才能在实时的图像上画出两条参考的十字线

设置AUTOREDRAW=TRUE后应该能时时显示.显示不出来可能有两个原因.
1. 你给的坐标超出PICTURE的大小.
2. 你的 画线代码 在 显示摄像头图像代码 之前, 每次刚刚画线后马上被摄像头图像覆盖了.

给你一个在Form上作图的代码供你参考, 空白Form添加一个buttom即可
(我这里Form的AUTOREDRAW=False)

Private Sub Command1_Click()
x = Form1.ScaleWidth / 2
y = Form1.ScaleHeight / 2
o = Form1.ScaleHeight / 2
Randomize
For i = 1 To 300
Cls
DrawWidth = 20
PSet (x, o), vbRed
d = d + 20
s = s + 16
e = e + 18
t = t + 14
r = r + 13
z = z + 12
g = g + 10
c = c + 8
v = v + 6
r = b + 4
b = b + 2
n = n + 1
m = m + 5

DrawWidth = 1
Circle (x, y), d, vbBlue, , , 1 / 3
Circle (x, y), s, vbRed, , , 1 / 3
Circle (x, y), e, vbBlack, , , 1 / 3
Circle (x, y), t, vbByellow, , , 1 / 3
Circle (x, y), r, RGB(4, 5, 6), , , 1 / 3
Circle (x, y), z, RGB(24, 25, 26), , , 1 / 3
Circle (x, y), g, RGB(12, 13, 56), , , 1 / 3
Circle (x, y), c, RGB(56, 234, 45), , , 1 / 3
Circle (x, y), v, RGB(89, 124, 189), , , 1 / 3
Circle (x, y), b, RGB(78, 178, 42), , , 1 / 3
Circle (x, y), n, RGB(90, 40, 60), , , 1 / 3
Circle (x, y), m, RGB(193, 82, 254), , , 1 / 3
For gg = 1 To 1000
Next gg
Next i

End Sub
希望对你有帮助

你好！ 在picture上添加两条line控件试试 希望对你有所帮助，望采纳。

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息