１．アニメーション(Animation)コントロールを使って AVI アニメーションファイルを表示する

１．アニメーション(Animation)コントロールを使って AVI アニメーションファイルを表示する ２．　 ３．　 ４．　 ５．　 ６．

下記プログラムコードに関する補足・注意事項　 動作確認：Windows Vista・Windows 7 (32bit) / VB6.0(SP6) Option　：[Option Explicit] 参照設定：MyWaitDll　　　　　　　　　 参照設定方法参照 使用 API：なし その他　：プロジェクト→コンポーネントでMicrosoft Windows Common Controls-2 6.0(SP6) にチェックを入れ、 　　　　：表示されたコントロールをフォームに貼り付けて下さい。

１．アニメーション(Animation)コントロールを使って AVI アニメーションファイルを表示する

Animation コントロールを Form 等の表示したい位置に貼り付けておいて下さい。 filecopy.avi ファイルは VB6.0 のCDの中のGraphicsフォルダーの中のAVIsフォルダーの中にあります 上記ファイル以外にも色々収録されているので試して見て下さい。 Option Explicit　　　　 'SampleNo:038　　2002.05.02　　 �@ 2007.01.10 Private Sub Command1_Click() 'AVI(アニメーション)ファイルを表示する 　　Dim st As Long 　　'表示ファイルの指定及びオープン 　　Animation1.Open "..\fileCopy.avi" 　　'再生開始 　　Animation1.Play 　　'10秒間表示 　　Wait 10000 '　　st = Timer '　　Do While Timer - st < 10 '　　　　DoEvents '　　Loop 　　'再生を停止 　　Animation1.Stop 　　'ファイルをクローズ 　　Animation1.Close End Sub 　　図１．上記実行結果

２．

３．

４．

５．

６．

検索キーワード及びサンプルコードの別名(機能名)