ab.com コミュニティ

Dim lpWcx As WNDCLASSEX
Dim hBrush As HBRUSH
Dim hMainWnd As HWND
Dim lpMsg As MSG
Dim hMainDC As HDC

hBrush = CreateSolidBrush(RGB(200,200,255))
FillMemory(VarPtr(lpWcx), Len(lpWcx), 0)

With lpWcx
	.lpszClassName = "NORMAL"
	.lpfnWndProc = AddressOf(MainWndProc)
	.hIcon = LoadIcon(NULL,IDI_APPLICATION)
	.hIconSm = LoadIcon(NULL,IDI_WINLOGO)
	.hCursor = LoadCursor(NULL,IDC_ARROW)

	.cbSize = SizeOf(WNDCLASSEX)
	.style = CS_DBLCLKS or CS_HREDRAW or CS_VREDRAW
	.hInstance = GetModuleHandle(0)
	.hbrBackground = hBrush
End With

RegisterClassEx(lpWcx)

hMainWnd = CreateWindowEx(
	NULL,"NORMAL","スケルトンウィンドウ",
	WS_OVERLAPPEDWINDOW or WS_VISIBLE,
	100, 200, 300, 200,
	NULL,NULL,GetModuleHandle(0),NULL
	)

While GetMessage(lpMsg, 0, 0, 0) > 0
	TranslateMessage(lpMsg)
	DispatchMessage(lpMsg)
Wend

DeleteDC(hMainDC)
DeleteObject(hBrush)
End

Function MainWndProc(hWnd As HWND, wMsg As DWord, wParam As DWord, lParam As DWord) As Long
	Select Case wMsg
		Case WM_CREATE
			hMainDC = GetDC(hMainWnd)
		Case WM_CLOSE
			DestroyWindow(hWnd)
		Case WM_DESTROY
			PostQuitMessage(0)
		Case WM_PAINT
			BitBlt(hMainDC,20,20,16,16,0,0,0,BLACKNESS)
			InvalidateRect(hMainWnd,ByVal 0,FALSE)
		Case Else
			MainWndProc = DefWindowProc(hWnd, wMsg, wParam, lParam)
			Exit Function
	End Select
	MainWndProc=0
End Function

Dim lpWcx As WNDCLASSEX
Dim hBrush As HBRUSH
Dim hMainWnd As HWND
Dim lpMsg As MSG
Dim hMainDC As HDC

hBrush = CreateSolidBrush(RGB(200,200,255))
FillMemory(VarPtr(lpWcx), Len(lpWcx), 0)

With lpWcx
    .lpszClassName = "NORMAL"
    .lpfnWndProc = AddressOf(MainWndProc)
    .hIcon = LoadIcon(NULL,IDI_APPLICATION)
    .hIconSm = LoadIcon(NULL,IDI_WINLOGO)
    .hCursor = LoadCursor(NULL,IDC_ARROW)

    .cbSize = SizeOf(WNDCLASSEX)
    .style = CS_DBLCLKS or CS_HREDRAW or CS_VREDRAW
    .hInstance = GetModuleHandle(0)
    .hbrBackground = hBrush
End With

RegisterClassEx(lpWcx)

CreateWindowEx(
    NULL,"NORMAL","スケルトンウィンドウ",
    WS_OVERLAPPEDWINDOW or WS_VISIBLE,
    100, 200, 300, 200,
    NULL,NULL,GetModuleHandle(0),NULL
    )

While GetMessage(lpMsg, 0, 0, 0) > 0
    TranslateMessage(lpMsg)
    DispatchMessage(lpMsg)
Wend

DeleteDC(hMainDC)
DeleteObject(hBrush)
End

Function MainWndProc(hWnd As HWND, wMsg As DWord, wParam As DWord, lParam As DWord) As Long
    Select Case wMsg
        Case WM_CREATE
            hMainWnd = hWnd
            hMainDC = GetDC(hMainWnd)
        Case WM_CLOSE
            DestroyWindow(hWnd)
        Case WM_DESTROY
            PostQuitMessage(0)
        Case WM_PAINT
            BitBlt(hMainDC,20,20,16,16,0,0,0,BLACKNESS)
            InvalidateRect(hMainWnd,ByVal 0,FALSE)
        Case Else
            MainWndProc = DefWindowProc(hWnd, wMsg, wParam, lParam)
            Exit Function
    End Select
    MainWndProc=0
End Function