by 三毛CAT » 2008年8月18日(月) 08:18
タイトルの通りです。
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]