１２９．ウインドウの位置とサイズを変更する

＜　使用用途　＞
ウインドウの位置とサイズを変更する

今回のサンプルソースをダウンロードする方は下記の「ダウンロード」を！
＝＞ダウンロード・・・　下に書いてあるサンプルソースと同じです

　＜　説明　＞
ＡＰＩ関数のMoveWindow使用します
MoveWindow ＝＞ウインドウの位置とサイズを変更
　　＜引数＞
　　　　　hWnd：ウインドウのﾊﾝﾄﾞﾙ
　　　　　X:移動後のx座標
　　　　　Y:移動後のy座標値　
　　　　　nWidth:変更後の幅
　　　　　nHeigh:変更後の高さ
　　　　　bRepaint:1
　　＠戻り値＠
　　　　　正常終了0以外
＊スクリーン座標なので注意(X,Y)

<　ＳＡＭＰＬＥ　＞
’ここでは自ウインドウのサイズを変更（300×300）して画面の左上に移動する処理です。

'標準モジュール
Public Declare Function MoveWindow Lib "user32" (ByVal hWnd As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal bRepaint As Long) As Long

'ここからはフォームの処理です
Private Sub Command1_Click()
　Dim Ret As Long
　　Ret = MoveWindow(Form1.hWnd, 0, 0, 300, 300, 1)
End Sub