作者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