アプリケーションのサイズをｖｂａで調整したい

質問

フォームのサイズではなく。アクセスのアプリケーションのサイズをｖｂａで
調整したいのですが可能でしょうか？

全画面表示ではない状態です。

よろしくお願い致します。

回答No.2

nicotinism · ベストアンサー

標準モジュールに以下を、WindResizeを実行してみて
800×600になるかと

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
Public Declare Function GetWindowRect Lib "user32" _
　　(ByVal hWnd As Long, lpRect As RECT) As Long
Public Type RECT
　　Left As Long
　　Top As Long
　　Right As Long
　　Bottom As Long
End Type

Sub WindResize()
'Application Windowの大きさ位置を再セット
　　Dim lnghwnd As Long
　　Dim sRECT As RECT
　　Dim lngRet As Long

　　lnghwnd = Application.hWndAccessApp '自AccessのhWnd
　　lngRet = GetWindowRect(lnghwnd, sRECT) '現在の位置
　　lngRet = MoveWindow(lnghwnd, sRECT.Left, sRECT.Top, 800, 600, 1)
End Sub

お礼

意味は難しくて理解できませんでしたが
やってみたら思い通りになりました。
ご回答ありがとうございました！！

回答No.1

imogasi

WEB照会すると
http://www.moug.net/tech/acvba/0010011.html
のようなのが出てくる。これではないのか。
ここに質問する前にWEB照会。

お礼

ちょっと違うようです。
ありがとうございます。