Re: [VB6 ] 如何在PictureBox上用滑鼠點兩點畫線?
那再請問我接下來的做法對不對？
我要在一張圖上用滑鼠點兩點，然後按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
討論串 (同標題文章)
Visual_Basic 近期熱門文章
PTT數位生活區 即時熱門文章
