ウインドウの大きさをクライアント領域のサイズで指定

メッセージ

三毛CAT

タイトルの通りです。
Radツールで作った配置にサイズを合わせるのに使ってください。

Sub wndresizebyclient(hWnd As HWND,x As Long,y As Long)
	Dim size As RECT
	Dim wndsize As RECT
	GetClientRect(hWnd,size)
	GetWindowRect(hWnd,wndsize)
	wndsize.right=wndsize.right-wndsize.left
	wndsize.bottom=wndsize.bottom-wndsize.top
	SetWindowPos(hWnd,NULL,0,0,x+wndsize.right-size.right,y+wndsize.bottom-size.bottom,SWP_NOMOVE or SWP_NOREPOSITION or SWP_NOZORDER)
End Sub

hWnd:リサイズするウインドウ
x:リサイズ後のクライアント領域の幅
y:リサイズ後のクライアント領域の高さ

たかせ

使用させていただきました。
素晴らしいです。