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