コントロールの表示座標の移動方法
コード: 全て選択
SetWindowPos(GetDlgItem(hMainWnd,Static1),0,100,100,0,0,SWP_NOSIZE)
第3引数と第4引数の値は適宜変更してください。
Website→http://web1.nazca.co.jp/himajinn13sei/top.html
ここ以外の場所では「暇人13世」というHNを主として使用。
に署名を書き換えて欲しいと言われたので暇だしやってみるテスト。
ここ以外の場所では「暇人13世」というHNを主として使用。
に署名を書き換えて欲しいと言われたので暇だしやってみるテスト。
コード: 全て選択
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
Website→http://web1.nazca.co.jp/himajinn13sei/top.html
ここ以外の場所では「暇人13世」というHNを主として使用。
に署名を書き換えて欲しいと言われたので暇だしやってみるテスト。
ここ以外の場所では「暇人13世」というHNを主として使用。
に署名を書き換えて欲しいと言われたので暇だしやってみるテスト。