コントロールの表示座標の移動方法

返信する


答えを正確に入力してください。答えられるかどうかでスパムボットか否かを判定します。
BBCode: ON
[img]: ON
[url]: ON
スマイリー: OFF
トピックのレビュー
   

展開ビュー トピックのレビュー: コントロールの表示座標の移動方法

by Papa » 2008年4月21日(月) 21:35

>>こんなコードを作ってみたのですが、説明は必要でしょうか？

十分です。
ありがとうございました。

by konisi » 2008年4月21日(月) 21:28

コード: 全て選択

Sub MainWnd_CommandButton2_Click()
	Dim rc As RECT,pa As POINTAPI
	Dim buf[1023] As Byte'表示用
	'スクリーン座標の取得
	GetWindowRect(GetDlgItem(hMainWnd,Static1),rc)
	'クライアント座標(ウインドウ座標)へ変換
	pa.x=rc.left
	pa.y=rc.top
	ScreenToClient(hMainWnd,pa)
	'表示
	wsprintf(buf,Ex"Screen : %d x %d\r\nWindow : %d x %d",rc.top,rc.left,pa.x,pa.y)
	MessageBox(hMainWnd,buf,"pos",MB_OK)
End Sub
こんなコードを作ってみたのですが、説明は必要でしょうか？

by Papa » 2008年4月21日(月) 20:43

>>などとすれば表示位置を変更できる筈です。

動きました。ありがとうございます。

もう１つ、現在の場所を調べる方法も教えてください。

by konisi » 2008年4月21日(月) 20:15

コード: 全て選択

SetWindowPos(GetDlgItem(hMainWnd,Static1),0,100,100,0,0,SWP_NOSIZE)
などとすれば表示位置を変更できる筈です。
第3引数と第4引数の値は適宜変更してください。

コントロールの表示座標の移動方法

by Papa » 2008年4月21日(月) 19:24

Static1の位置をプログラムにて移動させたいのですが、方法を教えてください。

ページトップ