MDIの子画面にスクロールバーを表示するには？ (ID:106331)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 # なにがしたいのか、わからん。 子フォームのモジュールに以下のコードを記述して下さい。 子フォームのサイズを変更すると、スクロールバーが表示されます。 # だから、なに？ Option Explicit Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long Private Const WS_HSCROLL As Long = &H100000 Private Const WS_VSCROLL As Long = &H200000 Private Const GWL_STYLE As Long = (-16&) Private Sub Form_Load() Dim L As Long L = GetWindowLong(Me.hwnd, GWL_STYLE) L = L Or WS_HSCROLL L = L Or WS_VSCROLL L = SetWindowLong(Me.hwnd, GWL_STYLE, L) End Sub