Re: 請問mousemove 的用法..

[Secertman (獨在異鄉為異客)]

※ 引述《alenavaro (ale)》之銘言：
: 請問..
: 按住滑鼠,則picturebox可以隨著滑鼠移動的話..
: 要怎麼寫呢..謝謝

  Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove

        If e.Button = MouseButtons.Left Then
            px2 = e.X
            py2 = e.Y






            '當滑鼠有移動則會重新載入在myBitmap上的圖形，因此滑鼠在移動過程中的線條會消除掉
            '將myBitmap的資料顯示在畫布tempBitmapGraphics上，
            '因此該畫布相對應的tempBitmap(, 即刻變成存放myBitmap的資料)
            tempBitmapGraphics.DrawImage(myBitmap, 0, 0)

            '在tempBitmapGraphics畫布上增加一條新的直線，該直線連結起始點到目前游標所在位置，
            '該畫布所對應的tempBitmap也一直隨游標位置更改
            tempBitmapGraphics.DrawLine(New Pen(Color.Blue), px1, py1, px2, py2)

            '將tempBitmap的資料顯示在Form上，亦即將連結起始點到游標所在位置的線條也一併顯示出來
            g.DrawImage(tempBitmap, 0, 0)


        End If
    End Sub

不知道是不是這樣...我們學校上禮拜的作業...

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 140.112.249.116
→ alenavaro:可以了..謝謝^^