作者littlebear79 (阿熊)
看板Visual_Basic
標題[.NET] 使用mediaplayer問題
時間Fri Aug 27 18:50:33 2010
版本:Visual basic.net 2008
目前在研究一個功能
使用AxMediaPlayer控制項的時候
我想要在上面用滑鼠畫線
我有試過在button下寫
Dim d As Graphics
d = AxMediaPlayer1.CreateGraphics()
d.DrawLine(Pens.Red, 10, 10, 100, 100)
上面那個程式可以顯示一條線在mediaplayer上
可是我使用滑鼠就不行了
請問一下有沒有解決方法?
附上我的程式碼:
Dim oldx, oldy As Integer
Dim 按下 As Boolean
Private Sub AxMediaPlayer1_MouseDownEvent(ByVal sender As System.Object,
ByVal e As AxMediaPlayer._MediaPlayerEvents_MouseDownEvent) Handles
AxMediaPlayer1.MouseDownEvent
oldx = e.x
oldy = e.y
按下 = True
End Sub
Private Sub AxMediaPlayer1_MouseUpEvent(ByVal sender As System.Object,
ByVal e As AxMediaPlayer._MediaPlayerEvents_MouseUpEvent) Handles
AxMediaPlayer1.MouseUpEvent
按下 = False
End Sub
Private Sub AxMediaPlayer1_MouseMoveEvent(ByVal sender As System.Object,
ByVal e As AxMediaPlayer._MediaPlayerEvents_MouseMoveEvent) Handles
AxMediaPlayer1.MouseMoveEvent
If 按下 = True Then
Dim d As Graphics
d = Me.AxMediaPlayer1.CreateGraphics()
d.DrawLine(Pens.White, oldx, oldy, e.x, e.y)
AxMediaPlayer1.Refresh()
oldx = e.x
oldy = e.y
End If
End Sub
謝謝大家~
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 210.241.76.129