Re: [VB6 ] 如何在PictureBox上用滑鼠點兩點畫線?
※ 引述《cppkiller (cppkiller)》之銘言：
現在Sub or Function not defined的問題已經解決了！
但是現在按CommandButton它只會對原點作直線，要如何才能做兩點間的直線？
謝謝！
: 那再請問我接下來的做法對不對？
: 我要在一張圖上用滑鼠點兩點，然後按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 = Sqr((x1 - x2) ^ 2 + (y1 - y2) ^ 2)
: Picture1.Line (x1, y1)-(x2, y2), vbBlue
: Print length
: End Sub
: 請問各位大大我是哪裡寫錯了！謝謝！
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.115.214.56
討論串 (同標題文章)
以下文章回應了本文：
完整討論串 (本文為第 4 之 6 篇)：
Visual_Basic 近期熱門文章
PTT數位生活區 即時熱門文章
