ab.com コミュニティ https://www.activebasic.com/forum/ |
|
ウインドウの大きさをクライアント領域のサイズで指定 https://www.activebasic.com/forum/viewtopic.php?t=2461 |
ページ 1 / 1 |
作成者: | 三毛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 SubhWnd:リサイズするウインドウ x:リサイズ後のクライアント領域の幅 y:リサイズ後のクライアント領域の高さ |
作成者: | たかせ [ 2011年11月14日(月) 22:23 ] |
記事の件名: | 素晴らしい |
使用させていただきました。 素晴らしいです。 |
ページ 1 / 1 | 全ての表示時間は UTC+09:00 です |
Powered by phpBB® Forum Software © phpBB Limited https://www.phpbb.com/ |