タイトルの通りです。
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:リサイズ後のクライアント領域の高さ
タイトルの通りです。 Radツールで作った配置にサイズを合わせるのに使ってください。 [hide][code]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[/code] hWnd:リサイズするウインドウ x:リサイズ後のクライアント領域の幅 y:リサイズ後のクライアント領域の高さ[/hide]
|