ab.com コミュニティ

ActiveBasicを通したコミュニケーション
現在時刻 - 2017年11月21日(火) 09:32

All times are UTC+09:00




新しいトピックを投稿する  トピックへ返信する  [ 2 件の記事 ] 
作成者 メッセージ
投稿記事Posted: 2008年8月18日(月) 08:18 
タイトルの通りです。
Radツールで作った配置にサイズを合わせるのに使ってください。
[hide]
コード:
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:リサイズ後のクライアント領域の高さ[/hide]


通報する
ページトップ
   
 記事の件名: 素晴らしい
投稿記事Posted: 2011年11月14日(月) 22:23 
オフライン

登録日時: 2006年2月05日(日) 17:10
記事: 189
住所: 東京都
使用させていただきました。
素晴らしいです。


通報する
ページトップ
期間内表示:  ソート  
新しいトピックを投稿する  トピックへ返信する  [ 2 件の記事 ] 

All times are UTC+09:00


オンラインデータ

このフォーラムを閲覧中のユーザー: なし & ゲスト[1人]


トピック投稿:  可
返信投稿:  可
記事編集: 不可
記事削除: 不可
ファイル添付: 不可

検索:
ページ移動:  
cron
Powered by phpBB® Forum Software © phpBB Limited
Japanese translation principally by KONISHI Yohsuke