５．AVI(アニメーション)ファイルを表示する

１．AVI(アニメーション)ファイルを表示する ２． ３． ４． ５．　 ６．

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

１．AVI(アニメーション)ファイルを表示する

Option Explicit　　　　 'SampleNo:038　　2002.05.02　　 �@ 2007.01.10 Private Sub Command1_Click() '★プロジェクト→コンポーネントでMicrosoft Windows Common '　Controls-2 5.0(SP2) にチェックを入れておいて下さい。 '================================================================== '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 filecopy.avi ファイルは VB6.0 のCDの中のGraphicsフォルダーの中のAVIsフォルダーの中にあります。 上記ファイル以外にも色々収録されているので試して見て下さい。 ※ 拡張子が、avi でも表示されないものがあります。

２．

３．

４．

５．

６．

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

１．アニメーションファイル(*.AVI)を表示する ２．Animationコントロールの使用例