flash 播放器问题 怎样实现拖动flash到窗口就可实现播放功能

Question

直接把一个flash文件拖动到flash播放器上就可以实现播放功能啊？？？

Answer 1

还是拖放到播放按钮上吧,ShockwaveFlash控件好像没有OLEDropMode事件,不能作为放下目标的对象.

Answer 2

有一个办法可以实现:在ShockwaveFlash控件前面放上一个完全透明的窗体,大小、相对位置都要保持一致，然后，将文件拖到窗体上即可实现播放。

Answer 3

有一个办法可以实现:在ShockwaveFlash控件前面放上一个完全透明的窗体,大小、相对位置都要保持一致，然后，将文件拖到窗体上即可实现播放。
[/Quote]
大侠，能不能具体指导一下

Answer 4

ShockwaveFlash1放在Picture1里
Dim ISTR As String
Private Sub Form_Load()
Picture1.BackColor = vbBlack
With ShockwaveFlash1
.Width = Picture1.Width - 200
.Height = Picture1.Height - 200
.Left = 100
.Top = 100
.BackgroundColor = Picture1.BackColor
End With
Picture1.OLEDropMode = 1
Form1.OLEDropMode = 1
End SubPrivate Sub Form_OLEDragOver(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single, State As Integer)
Dim fl, s
 For Each fl In Data.Files
 s = s & fl & Chr(10)
 Next
 s = Left(s, Len(s) - 1)
ISTR = s
End Sub
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
ShockwaveFlash1.Movie = ISTR
End Sub

Answer 5

谢谢楼上各位大侠，谢谢老张，不过老张，必须还得在flash控件前加一个窗体才能实现……