作者cppkiller (cppkiller)
看板Visual_Basic
标题Re: [VB6 ] 如何在PictureBox上用滑鼠点两点画线?
时间Mon May 1 21:59:50 2006
那再请问我接下来的做法对不对？
我要在一张图上用滑鼠点两点，然後按CommandButton就显示两点间的直线及长度！
一开始我先在form1建立一个PictureBox并放入图片，然後双击图片进入code。再打入
Dim x1, y1, x2, y2, length As Single
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As
Single, Y As Single)
Picture1.DrawWidth = 10
Picture1.PSet (X, Y), RGB(255, 0, 0)
Dim counter As Integer
counter = 0
counter = counter + 1
Select Case counter Mod 2
Case 1
x1 = X
y1 = Y
Case 0
x2 = X
y2 = Y
End Select
End Sub
然後再建立一个CommandButton，在其code打入
Private Sub Command1_Click()
length = sqrt((x1 - x2) ^ 2 + (y1 - y2) ^ 2)
Picture1.Line (x1, y1)-(x2, y2), vbBlue
Print length
End Sub
当我执行时，在图片上可以点点！可是按CommandButton时，系统却告诉我
Sub or Function not defined
请问各位大大我是哪里写错了！谢谢！
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 140.115.214.56