Wer ist online?
Buchempfehlung
FreeBASIC-Chat
FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!fb:porticula NoPaste
apitest
| Uploader: |  csde_rats |
| Datum/Zeit: | 22.07.2007 13:38:02 |
#include "windows.bi"
const ProgrammName = "Pixeloperationen"
declare function Fenster(byval hWnd as HWND, byval message as UINTEGER,_
byval wParam as WPARAM, byval lParam as LPARAM) as LRESULT
dim as WNDCLASS wcMeinFenster
with wcMeinFenster
.style = CS_HREDRAW or CS_VREDRAW
.lpfnWndProc = ProcPtr(Fenster)
.cbClsExtra = 0
.cbWndExtra = 0
.hInstance = GetModuleHandle(NULL)
.hCursor = LoadCursor(NULL, IDC_ARROW)
.hIcon = LoadIcon(NULL, IDI_APPLICATION)
.hbrBackground = GetStockObject(WHITE_BRUSH)
.lpszClassName = StrPtr(ProgrammName)
.lpszMenuName = NULL
end with
RegisterClass @wcMeinFenster
dim as HWND hMeinFenster = CreateWindow(_
ProgrammName, "Titelzeile", WS_OVERLAPPEDWINDOW,_
CW_USEDEFAULT, CW_USEDEFAULT, CW_USEDEFAULT, CW_USEDEFAULT,_
NULL, NULL, GetModuleHandle(NULL), NULL)
ShowWindow hMeinFenster, SW_NORMAL
UpdateWindow hMeinFenster
dim as MSG msg
do while getmessage(@msg, NULL, 0, 0) <> 0
DispatchMessage @msg
loop
end msg.wParam
function Fenster(byval hWnd as HWND, byval message as UINTEGER,_
byval wParam as WPARAM, byval lParam as LPARAM) as LRESULT
static as hwnd hText
select case message
case WM_DESTROY
PostQuitMessage 0
return 0
case WM_CREATE
hText = CreateWindowEx(WS_EX_CLIENTEDGE,_
"edit", _
"SCheiss Textfeld", _
WS_CHILD or WS_VISIBLE or WS_BORDER or ES_LEFT, _
300, 300, 200, 200, _
hWnd, _
NULL, _
cast(LPCREATESTRUCT,lParam)->hInstance, _
NULL)
return 0
end select
return DefWindowProc(hWnd, message, wParam, lParam)
end function