ab.com コミュニティ

おさむさんありがとうございました。

ＥＸＥＣのみでいけるんですね。やってみます。


誠にありがとうございました。

'**************************************************************************
'*     動画再生サンプルプログラム
'**************************************************************************
'
'メインウインドウ定義
Window hMainWnd     ,0       ,  0,  0,900,720,hMainWnd_title$,WS_OVERLAPPED or WS_SYSMENU or WS_VISIBLE or WS_MINIMIZEBOX,"PROMPT"
'背景を塗りつぶし
TargetWnd hMainWnd
Line (0,0)-(900,685),0,BF,RGB(100,50,100)
'ボタン定義
Window hButton1     ,hMainWnd,200,170,200,355,"ボタン１処理" ,WS_CHILD or WS_VISIBLE,"BUTTON",1
Window hButton2     ,hMainWnd,500,170,200,355,"ボタン２処理" ,WS_CHILD or WS_VISIBLE,"BUTTON",2
'
'**************************************************************************
'*     メインループ
'**************************************************************************
'
*MainLoop
GetWndMsg hThisWnd,Message,wParam,lParam
If Message=WM_CLOSE Then GoSub *MainMenuEnd
If Message=WM_COMMAND Then
   Select Case Int(LOWORD(wParam)/10)
          Case 0 'ボタン処理
               On LOWORD(wParam)    GoSub *Button1,*Button2
   End Select
End If
Goto *MainLoop
'
'**************************************************************************
'*     ボタン処理
'**************************************************************************
'
*Button1
MsgBox hMsgWnd,"ボタン１処理を実行しますか？",hSubWndTitle$,MB_YESNO or MB_ICONINFORMATION,MsgretAns
If MsgretAns=IDNO Then Return
Exec "TEST1.MPG" ' ←　フルパス指定をしてください。（省略時はカレントフォルダ）
Return
'
*Button2
MsgBox hMsgWnd,"ボタン２処理を実行しますか？",hSubWndTitle$,MB_YESNO or MB_ICONINFORMATION,MsgretAns
If MsgretAns=IDNO Then Return
Exec "TEST2.MPG" ' ←　フルパス指定をしてください。（省略時はカレントフォルダ）
Return
'
'**************************************************************************
'*     終了処理
'**************************************************************************
'
*MainMenuEnd
END

お世話になります。

　久しぶりにＡＢ２．６２をさわってみました。
　サンプル作ってみましたが、突貫のとりあえずバージョンですので参考まで。

> プログラム中から、MPEGなどの動画ファイルを直接コールすることって
> 出来るのでしょうか？

　とりあえず「ＥＸＥＣ」で動画ファイル名を直接実行すれば関連付けされた
　動画再生プレイヤーが動くことを確認しました。

> ボタンをセレクトして押して、動画が出てきて、終わると閉じて。

　ボタン起動も実行確認できました。
　しかし、再生後の自動終了はできません。

> またMENUに戻るようなものをイメージしています。

　別画面での起動なので、プレイヤーをバッテンすれば後ろに隠れています。

[hide][code]
'**************************************************************************
'* 動画再生サンプルプログラム
'**************************************************************************
'
'メインウインドウ定義
Window hMainWnd ,0 , 0, 0,900,720,hMainWnd_title$,WS_OVERLAPPED or WS_SYSMENU or WS_VISIBLE or WS_MINIMIZEBOX,"PROMPT"
'背景を塗りつぶし
TargetWnd hMainWnd
Line (0,0)-(900,685),0,BF,RGB(100,50,100)
'ボタン定義
Window hButton1 ,hMainWnd,200,170,200,355,"ボタン１処理" ,WS_CHILD or WS_VISIBLE,"BUTTON",1
Window hButton2 ,hMainWnd,500,170,200,355,"ボタン２処理" ,WS_CHILD or WS_VISIBLE,"BUTTON",2
'
'**************************************************************************
'* メインループ
'**************************************************************************
'
*MainLoop
GetWndMsg hThisWnd,Message,wParam,lParam
If Message=WM_CLOSE Then GoSub *MainMenuEnd
If Message=WM_COMMAND Then
Select Case Int(LOWORD(wParam)/10)
Case 0 'ボタン処理
On LOWORD(wParam) GoSub *Button1,*Button2
End Select
End If
Goto *MainLoop
'
'**************************************************************************
'* ボタン処理
'**************************************************************************
'
*Button1
MsgBox hMsgWnd,"ボタン１処理を実行しますか？",hSubWndTitle$,MB_YESNO or MB_ICONINFORMATION,MsgretAns
If MsgretAns=IDNO Then Return
Exec "TEST1.MPG" ' ←　フルパス指定をしてください。（省略時はカレントフォルダ）
Return
'
*Button2
MsgBox hMsgWnd,"ボタン２処理を実行しますか？",hSubWndTitle$,MB_YESNO or MB_ICONINFORMATION,MsgretAns
If MsgretAns=IDNO Then Return
Exec "TEST2.MPG" ' ←　フルパス指定をしてください。（省略時はカレントフォルダ）
Return
'
'**************************************************************************
'* 終了処理
'**************************************************************************
'
*MainMenuEnd
END[/code][/hide]

AB262で使ってます。

プログラム中から、MPEGなどの動画ファイルを直接コールすることって
出来るのでしょうか？

ボタンをセレクトして押して、動画が出てきて、終わると閉じて。

またMENUに戻るようなものをイメージしています。