Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


30189 / 76732 ←次へ | 前へ→

【51812】Re:電卓の表示位置について教えて
質問  吉田  - 07/10/5(金) 14:09 -

引用なし
パスワード
   ▼neptune さん:
ありがとうございます。


下記だと思うのですが
どのように書き込みしたらいいか?です。
>' 電卓を起動し、最前面に表示させる
>Private Sub CommandButton1_Click()
>  ' 電卓を表示する
>  Application.ActivateMicrosoftApp Index:=0
>  ' 電卓のウィンドウハンドルを取得する
>  hWnd = FindWindowEx(0&, 0&, "SciCalc", "電卓")
>  ' 電卓内のエディットボックスのウィンドウハンドルを取得する
>  hEditWnd = FindWindowEx(hWnd, 0&, "Edit", vbNullString)
>  ' 最前面に表示
>  SetWindowPos hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOSIZE Or SWP_NOMOVE
>End Sub
上記の部分にでしょうか
コピペしてみましただが?赤文字です


BOOL SetWindowPos(
 HWND hWnd,       // ウィンドウのハンドル
 HWND hWndInsertAfter, // 配置順序のハンドル
 int 300,         // 横方向の位置
 int Y,         // 縦方向の位置
 int cx,        // 幅
 int cy,        // 高さ
 UINT uFlags      // ウィンドウ位置のオプション
);
>
>Resが付かないようなので。
>
>>電卓の表示位置を変更したいのですが変更方法がわかりません
>ですが、MoveWindowというAPI関数があります。詳しくはMSDNを見て下さい。
>h t t p://msdn.microsoft.com/library/ja/default.asp?url=/library/ja/jpwinui/html/_win32_movewindow.asp
>
>若しくは、ExcelのWindow内でなら既にお使いのSetWindowPosの
>第3,4,5,6引数に位置寸法情報を、第7引数をSWP_SHOWWINDOWに変更する事
>で出来ると思います。(確認はしてません)
>これも詳しくは上述のMSDNで検索して下さい。
>
>その他、GetWindowRect、RECT構造体、場合によってはGetDesktopWindow、GetWindowClientRectなどのWindowサイズを取得するAPIも必要になります。
>
>これも、必要な物を、詳しくはMSDNで。
>
>サンプルは・・面倒なので・・Webでググって見て下さい。

2 hits

【51798】電卓の表示位置について教えて 吉田 07/10/5(金) 2:00 質問
【51811】Re:電卓の表示位置について教えて neptune 07/10/5(金) 13:48 回答
【51812】Re:電卓の表示位置について教えて 吉田 07/10/5(金) 14:09 質問
【51813】Re:電卓の表示位置について教えて neptune 07/10/5(金) 14:55 回答

30189 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free