网上已经找过很多类似的问题，但似乎还没有人能解决这个问题。
问题很简单，就在怎么样在MDI窗体中禁用掉自动滚动条。如果子窗体的边缘超过的主窗体的显示区域，便会出现滚动条。已经设置过主窗体或子窗体的autoscroll属性，都没有。
可能的解决方案是找出MDIClient实例，scrollbar可能就是由MDIClient 控制，但是不知如何能得到这个scrollbar的实例。
请各路高手帮忙。谢谢

噢，这不是我想要的。 这个窗体就没办法移动的，我需要的是一个正常的窗体。就像在Excel里的子窗体操作一样

原始C#


Code Block        
    private const int SB_BOTH = 3;

        private const int WM_NCCALCSIZE = 0x83;

 

        [DllImport("user32.dll")]

        private static extern int ShowScrollBar(IntPtr hWnd, int wBar, int bShow);

 

        protected override void WndProc(ref Message m)

        {

            if (mdiClient != null)

            {

                ShowScrollBar(mdiClient.Handle, SB_BOTH, 0 /*Hide the ScrollBars*/);

            }

 

            base.WndProc(ref m);

        }

        MdiClient mdiClient = null;

        private void Form1_Load(object sender, EventArgs e)

        {

            foreach (Control c in this.Controls) //Find the MdiClient in the MdiWindow

            {

                if (c is MdiClient)

                {

                    mdiClient = c as MdiClient;

                }

            }

 

            Form2 form = new Form2();

            form.MdiParent = this;

            form.Show();

        }



 

 

修改後的


程式碼區塊
Imports System.Runtime.InteropServices

Public Class Form1

    Dim mdiClient As MdiClient = Nothing
    Dim SB_BOTH As Integer = 3

    <DllImport("user32.dll")> _
    Private Shared Function ShowScrollBar(ByVal hWnd As IntPtr, ByVal wBar As Integer, ByVal bShow As Integer) As Integer
    End Function

    Protected Overrides Sub WndProc(ByRef m As Message)
        If mdiClient IsNot Nothing Then
            ShowScrollBar(mdiClient.Handle, SB_BOTH, 0)
        End If

        MyBase.WndProc(m)
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        For Each c As Control In Me.Controls
            If TypeOf c Is MdiClient Then
                mdiClient = c
            End If
        Next

        Dim fm As Form = New Form2
        fm.MdiParent = Me
        fm.Show()

    End Sub
End Class