vb.net - vb.net winform に swf オブジェクトを埋め込むにはどうすればよいですか?

Question

COM Shockwave Flash オブジェクト コントロールを使用して埋め込みたい swf オブジェクトがあります。あちこち検索しましたが、ファイルまたはインターネット URL の使用に関する回答しか見つかりませんでした。ワンクリック パブリッシュ方法を使用しているため、Flash オブジェクトをリソース ファイルとしてアプリケーションに埋め込む方法が必要です。

ありがとう、

マット

Answer 1

過去に似たようなことをしたことがありますが、リソースではなくDBテーブルからロードしています

Swf は、Flash アイテムを表示する Form 上の AxShockwaveFlash オブジェクトです。

リソースを .swf として追加し、FileType をバイナリに設定すると、メモリストリーム コンストラクターで使用できるバイト配列として返されます。

Using ms As New IO.MemoryStream(my.resources.TheFlashFile), fs As New IO.MemoryStream()
                Using bwriter As New IO.BinaryWriter(fs)
                    ' Write length of stream for flash AxHost.State 
                    bwriter.Write(8 + ms.ToArray.Length)
                    bwriter.Write(&H55665566)
                    ' Length of flash movie file 
                    bwriter.Write(ms.ToArray.Length)
                    bwriter.Write(ms.ToArray)
                    fs.Seek(0, IO.SeekOrigin.Begin)
                    swf.OcxState = New AxHost.State(fs, 1, False, Nothing)
                End Using
            End Using