ressp.bak

Powerbasic 里使用资源创建窗口等!

#COMPILE EXE
#DIM ALL
#include "Win32api.inc"
#RESOURCE "ziyuan.pbr"

%CHH_DIALOG = 100
%CHH_BUTTON = 101

global g_hinst as dword
global Ctrl as dword


FUNCTION DialogProc(BYVAL hDlg AS DWORD, _
					BYVAL wMsg AS DWORD, _
                    BYVAL wParam AS DWORD, _
					BYVAL lParam AS LONG) AS LONG				'这里是处理事件
    SELECT CASE wMsg
    CASE %WM_INITDIALOG  '初始化
        FUNCTION = 1
    CASE %WM_COMMAND	'窗体上的任何控件的事件
		Ctrl = LO(WORD, wParam)
		select CASE Ctrl
		    CASE %CHH_BUTTON 	'这里是资源按钮的ID值
				EndDialog hDlg, 0
				FUNCTION = 1
		END SELECT
	case %WM_CLOSE
		EndDialog hDlg, 0
		FUNCTION = 1
    END SELECT
END FUNCTION

FUNCTION WINMAIN (BYVAL hDlg AS DWORD, _
                  BYVAL wMsg AS DWORD, _
                  BYVAL wParam AS ASCIIZ PTR, _
                  BYVAL lParam AS LONG) AS LONG
    g_hInst = hDlg
    DialogBox g_hInst, BYVAL %CHH_DIALOG, %HWND_DESKTOP, CODEPTR(DialogProc)
END FUNCTION