Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

72976 / 76732

←次へ　｜　前へ→


	【8239】Re:画面の大きさを変更させない

Kein - 03/10/5(日) 23:10 -


	引用なし

	パスワード

未テストですが、こんな感じでしょーか ?

Private Declare Function FindWindow Lib "user32" _
Alias "FindWindowA"(ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long

Private Declare Function SetWindowPos Lib "user32" _
(ByVal hwnd As Long, ByVal hWndInsertAfter As Long, _
ByVal x As Long, ByVal y As Long, ByVal cx As Long, _
ByVal cy As Long, ByVal wFlags As Long) As Long

Private Const HWND_TOPMOST = (-1)
Private Const SWP_NOSIZE = &H1&
Private Const SWP_NOMOVE = &H2&

Sub Test_Window()
　 Dim AppCap As String
　 Dim hwnd As Long, ret As Long
　　
　 AppCap = Application.Caption
　 hwnd = FindWindow("XLMAIN", AppCap)
　 ret = SetWindowPos(hwnd, HWND_TOPMOST, _
　　0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE)
End Sub

1 hits

▼

【8234】画面の大きさを変更させない ドラゴン 03/10/5(日) 11:45