Changeset 364 for trunk/bin/SubOperation/dx/main_exe_directx.abp
- Timestamp:
- Oct 24, 2007, 12:32:20 AM (17 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/bin/SubOperation/dx/main_exe_directx.abp
r187 r364 2 2 3 3 4 Dim ScreenX =640 As Long 'ディスプレイの幅 (ピクセル単位)5 Dim ScreenY =480 As Long 'ディスプレイの高さ(ピクセル単位)4 Dim ScreenX = 640 As Long 'ディスプレイの幅 (ピクセル単位) 5 Dim ScreenY = 480 As Long 'ディスプレイの高さ(ピクセル単位) 6 6 7 7 ' TODO: この位置にグローバル変数を定義してください。 8 8 9 9 10 Function InitProc() As B OOL10 Function InitProc() As Boolean 11 11 'DirectXを初期化 12 If dx_Init(hMainWnd, ScreenX,ScreenY,FALSE)=0 Then13 InitProc= 012 If dx_Init(hMainWnd, ScreenX, ScreenY, FALSE)=0 Then 13 InitProc=False 14 14 Exit Function 15 15 End If … … 20 20 ' TODO: この位置にアプリケーションの初期化コードを記述してください。 21 21 22 InitProc =122 InitProc = True 23 23 End Function 24 24 … … 49 49 '------------------------------------------------ 50 50 51 If InitProc() =0Then51 If InitProc() = False Then 52 52 MessageBox(0,"初期化に失敗しました。","Error",MB_OK or MB_ICONEXCLAMATION) 53 53 ExitProcess(0) … … 104 104 105 105 QuitProc() 106 ExitProcess(msgMain.wParam) 106 System.Environment.ExitCode = msgMain.wParam As Long 107 End
Note:
See TracChangeset
for help on using the changeset viewer.