flash 播放器问题 怎样实现拖动flash到窗口就可实现播放功能
直接把一个flash文件拖动到flash播放器上就可以实现播放功能啊？？？
[解决办法]
[size=12px][/size]
[解决办法]
Dim ISTR As StringPrivate Sub Form_Load()Picture1.BackColor = vbBlackWith ShockwaveFlash1.Width = Picture1.Width - 200.Height = Picture1.Height - 200.Left = 100.Top = 100.BackgroundColor = Picture1.BackColorEnd WithPicture1.OLEDropMode = 1Form1.OLEDropMode = 1End 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 = sEnd SubPrivate Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)ShockwaveFlash1.Movie = ISTREnd Sub
