ocx files and swflash.ocx

[Guest_imported]

hi all,

I am trying to incorporate a flash movie in my vb code using swflash.ocx but dont know where to start apart form getting the ocx onto the vb toolbar.

any help would be great.

thanks,

john

 

[hcexi]

1. regsvr32 swflash.ocx
2. In VB project right click on controls toolbar -> Components. Then try to find ShockwaveFlash, ( or use browse button )
3. Add it into your Form and name it Flash.
4. Change Form property OLEDropMode to 1
5. Override method:

Private Sub Form_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
    Dim file As String
    file = Data.Files(1)    
    Flash.Movie = file
    Flash.Play    
End Sub

It should work on Drag & Drop to Form ( not Flash control )