WindowsAPI(GetWindowLongA)について質問です。
以下コードを実行すると、ウィンドウにスクロールバーが表示されてしまいます。
実行はVBAでAccessのフォームを呼び出しています。
フォーム自体はディスプレイ幅より明らかに小さいフォームサイズです。
SetWindowLongAの引数指定が間違っているのでしょうか?
また、スクロールバーを表示させない方法はありますでしょうか?
アドバイスよろしくお願いいたします。
'Windows属性の取得
Public Declare Function GetClassLongPtr Lib "user32" Alias "GetWindowLongA" ( _
ByVal hWnd As Long, ByVal nIndex As Long) As Long
'Windows属性の変更
Public Declare Function SetWindowLongPt Lib "user32" Alias "SetWindowLongA" ( _
ByVal hWnd As Long, ByVal nIndex As Long, _
ByVal dwNewLong As Long) As Long
Public Sub MenuBarsReset()
Const GWL_STYLE = (-16)
Const WS_SYSMENU = &H80000
Dim lngRetVal As Long
lngRetVal = GetClassLongPtr(hWndAccessApp, GWL_STYLE)
lngRetVal = SetWindowLongPt(hWndAccessApp, GWL_STYLE, lngRetVal - WS_SYSMENU)
End Sub
WindowsAPI(GetWindowLongA)について質問です。
以下コードを実行すると、ウィンドウにスクロールバーが表示されてしまいます。
実行はVBAでAccessのフォームを呼び出しています。
フォーム自体はディスプレイ幅より明らかに小さいフォームサイズです。
SetWindowLongAの引数指定が間違っているのでしょうか?
また、スクロールバーを表示させない方法はありますでしょうか?
アドバイスよろしくお願いいたします。
'Windows属性の取得
Public Declare Function GetClassLongPtr Lib "user32" Alias "GetWindowLongA" ( _
ByVal hWnd As Long, ByVal nIndex As Long) As Long
'Windows属性の変更
Public Declare Function SetWindowLongPt Lib "user32" Alias "SetWindowLongA" ( _
ByVal hWnd As Long, ByVal nIndex As Long, _
ByVal dwNewLong As Long) As Long
Public Sub MenuBarsReset()
Const GWL_STYLE = (-16)
Const WS_SYSMENU = &H80000
Dim lngRetVal As Long
lngRetVal = GetClassLongPtr(hWndAccessApp, GWL_STYLE)
lngRetVal = SetWindowLongPt(hWndAccessApp, GWL_STYLE, lngRetVal - WS_SYSMENU)
End Sub
WindowsAPI(GetWindowLongA)について質問です。
以下コードを実行すると、ウィンドウにスクロールバーが表示されてしまいます。
実行はVBAでAccessのフォームを呼び出しています。
フォーム自体はディスプレイ幅より明らかに小さいフォームサイズです。
SetWindowLongAの引数指定が間違っているのでしょうか?
また、スクロールバーを表示させない方法はありますでしょうか?
アドバイスよろしくお願いいたします。
'Windows属性の取得
Public Declare Function GetClassLongPtr Lib "user32" Alias "GetWindowLongA" ( _
ByVal hWnd As Long, ByVal nIndex As Long) As Long
'Windows属性の変更
Public Declare Function SetWindowLongPt Lib "user32" Alias "SetWindowLongA" ( _
ByVal hWnd As Long, ByVal nIndex As Long, _
ByVal dwNewLong As Long) As Long
Public Sub MenuBarsReset()
Const GWL_STYLE = (-16)
Const WS_SYSMENU = &H80000
Dim lngRetVal As Long
lngRetVal = GetClassLongPtr(hWndAccessApp, GWL_STYLE)
lngRetVal = SetWindowLongPt(hWndAccessApp, GWL_STYLE, lngRetVal - WS_SYSMENU)
End Sub