Embed flash ActiveX in vb6 dynamically?
Posted
by
Alex
on Stack Overflow
See other posts from Stack Overflow
or by Alex
Published on 2013-10-31T21:40:25Z
Indexed on
2013/10/31
21:54 UTC
Read the original article
Hit count: 221
im trying to embed flash in my program by placing flash.ocx in my app's folder without having to register it. i found DirectCom.dll and with this code i can show the right version of flash.
but how do i show it on the form and load the movie?
Private Declare Function GetInstanceOld Lib "DirectCom" Alias "GETINSTANCE" (FName As String, ClassName As String) As Object
Dim ShockwaveFlash1 As Object
Set ShockwaveFlash1 = GetInstanceEx(StrPtr(App.Path & "\" & "flash.ocx"), StrPtr("ShockwaveFlash"), True)
MsgBox ShockwaveFlash1.FlashVersion
© Stack Overflow or respective owner
