问Autoscroll不工作于动态表单。

EN

 frmDynamic = New Form()
            frmDynamic.AutoScaleDimensions = New System.Drawing.SizeF(6.0F, 13.0F)
            frmDynamic.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
            frmDynamic.Name = "frmDynamicMerchantApplication"

            'dimension is irrelevant at the moment
            frmDynamic.ClientSize = New System.Drawing.Size(10, 10)
            'the parent will be the current form
            'frm.MdiParent = this;

            frmDynamic.ControlBox = True
            frmDynamic.FormBorderStyle = System.Windows.Forms.FormBorderStyle.Sizable
            ' This needs to be GrowOnly for the auto scroll to work. - otherwise you have to add scrollbars manually along with the handlers and so forth.
            frmDynamic.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowOnly

            ' Add auto scroll since the form could grow out of range when adding multiple references and owners
            frmDynamic.AutoScroll = True

 ' Create a new form.
        Dim form2 As New Form()
        ' Create a button to add to the new form.
        Dim button1 As New Button()
        ' Set text for the button.
        button1.Text = "Scrolled Button"
        ' Set the size of the button.
        button1.Size = New Size(100, 30)
        ' Set the location of the button to be outside the form's client area.
        button1.Location = New Point(form2.Size.Width + 200, form2.Size.Height + 200)

        ' Add the button control to the new form.
        form2.Controls.Add(button1)
        ' Set the AutoScroll property to true to provide scrollbars.
        form2.AutoScroll = True

        ' Display the new form as a dialog box.
        form2.ShowDialog()

 ' Creating dynamic form and dynamic objects in it.
        If Not IsNothing(colMerchApplicationFromWebService) Then
            ' vertical position of current object we are working with on the form
            Dim intVertPos As Integer = 35

            'variables to hold dimensions for objects on the form. Used in calculations for creating objects and their placement
            Dim intMaxWidthLabel As Integer = 0
            Dim intMaxWidthText As Integer = 0
            Dim iFrmMaxHeight As Integer = 0
            Dim intWidthTextBox As Integer = 0
            Dim intGapHeight As Integer = 0
            Dim measureString As String = ""
            Dim stringFont As Font = Nothing
            Dim stringSize As SizeF
            Dim iTabIndex As Integer = 0
            Dim iNewLineCount As Integer = 0
            Dim iNewColumnPosition As Integer = 0

            ' Font settings
            Dim sFont As String = "Arial"
            Dim sSizeFont As String = "10"
            Dim sTextSize As String = "15"
            Dim pictureBox1 As New PictureBox

            ' use an invisible picture box that will help to graphically
            ' measure strings according their font and font size
            Dim myGraphics As Graphics = pictureBox1.CreateGraphics()

            ' Calculate the height gap that has to be generated for this calculation, we have to follow the principles listed:
            '   The gap should be determined only by the height of the tallest object on window: the textBox.
            '   Simulate the drawing of a dummy textBox, that will never be shown, and retrieve its height for spacing purposes.
            Dim dummyTextBox As New TextBox()
            dummyTextBox.Font = New System.Drawing.Font(sFont, Single.Parse(sSizeFont), System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CByte(0))
            Dim intHeight As Integer = Integer.Parse(sSizeFont) + Integer.Parse(sSizeFont) / 2
            dummyTextBox.Name = "TextBoxDummy"
            intGapHeight = dummyTextBox.Height

            'close the dynamic form if existing already
            If frmDynamic IsNot Nothing Then
                frmDynamic.Close()
            End If

            ' Now create a new fresh one
            frmDynamic = New Form()
            frmDynamic.AutoScaleDimensions = New System.Drawing.SizeF(6.0F, 13.0F)
            frmDynamic.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
            frmDynamic.Name = "frmDynamicMerchantApplication"

            'dimension is irrelevant at the moment
            frmDynamic.ClientSize = New System.Drawing.Size(10, 10)
            'the parent will be the current form
            'frm.MdiParent = this;

            frmDynamic.ControlBox = True
            frmDynamic.FormBorderStyle = System.Windows.Forms.FormBorderStyle.Sizable
            ' This needs to be GrowOnly for the auto scroll to work. - otherwise you have to add scrollbars manually along with the handlers and so forth.
            frmDynamic.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowOnly

            ' Add auto scroll since the form could grow out of range when adding multiple references and owners
            frmDynamic.AutoScroll = True
            frmDynamic.BackColor = System.Drawing.Color.LightGray

            'for each parameter returned add a data entry control to the form
            For Each itemMerchantAppField As TestApp.parameter In colMerchApplicationFromWebService
                ' if we run into a collection it is used for detailed information. We store the collections in the collections dictionary so we can write values and pass them around as needed
                If itemMerchantAppField.ParameterType = "System.Collections" Then
                    ' Create a form level variable to hold the collection
                    dicCollections.Add(itemMerchantAppField.ParameterName, itemMerchantAppField.SubCollection)
                End If

                ' I assume a max of 35 fields in one column for my form and its size. (The field count is based on what looked right for my monitor not exactly Dynamic but its only a test form) 
                If iNewLineCount > 35 Then
                    ' Reset vertical position and counter
                    iNewLineCount = 0
                    iNewColumnPosition = iNewColumnPosition + (intMaxWidthLabel + intMaxWidthText + 20)
                    If intVertPos > iFrmMaxHeight Then
                        iFrmMaxHeight = intVertPos
                    End If
                    intVertPos = 35
                End If

                ' Kick the counter
                iNewLineCount = iNewLineCount + 1

                'add a label object
                Dim aLabel As New Label()
                aLabel.Font = New System.Drawing.Font(sFont, Single.Parse(sSizeFont), System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CByte(0))
                'back color is for testing purposes, to see if the control fits correctly
                aLabel.BackColor = System.Drawing.Color.AliceBlue
                aLabel.Location = New System.Drawing.Point(iNewColumnPosition, intVertPos)

                ' Set up string.
                measureString = itemMerchantAppField.ParameterName
                stringFont = New Font(sFont, Single.Parse(sSizeFont))
                ' Measure string.
                stringSize = New SizeF()
                stringSize = myGraphics.MeasureString(measureString, stringFont)
                Dim intWidthLabel As Integer = 10 + Integer.Parse(stringSize.Width.ToString("####0"))
                'store the biggest width, so that the textboxes can be vertically aligned
                If intWidthLabel > intMaxWidthLabel Then
                    intMaxWidthLabel = intWidthLabel
                End If
                aLabel.Size = New System.Drawing.Size(intWidthLabel, intGapHeight)
                aLabel.Name = "lbl" & itemMerchantAppField.ParameterName
                aLabel.Text = itemMerchantAppField.ParameterName

                frmDynamic.SuspendLayout()
                aLabel.SuspendLayout()
                frmDynamic.Controls.Add(aLabel)

                ' Size of textBox padding with "W" the largest char in ascii representation.
                ' Basically we are setting the textbox widths based on the lengths of the field name plus 15 w's
                ' We should be setting this based on the allowed field length as w's up to the max amount we allow(here is it coded to be 30)
                ' this section needs to be corrected
                Dim chrPadding As Char = "W"c
                If Integer.Parse(sTextSize) > 30 Then
                    measureString = measureString.PadRight(30, chrPadding)
                Else
                    measureString = measureString.PadRight(Integer.Parse(sTextSize), chrPadding)
                End If
                stringFont = New Font(sFont, Single.Parse(sSizeFont))
                ' Measure string.
                stringSize = New SizeF()
                stringSize = myGraphics.MeasureString(measureString, stringFont)
                intWidthTextBox = Integer.Parse(stringSize.Width.ToString("####0"))

                ''For Each item As wsMerchantApp.parameter In itemMerchantAppField 
                ' Add a text box object
                Dim aTextBox As New TextBox()
                aTextBox.Font = New System.Drawing.Font(sFont, Single.Parse(sSizeFont), System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CByte(0))
                aTextBox.BackColor = System.Drawing.Color.Yellow
                aTextBox.Location = New System.Drawing.Point(iNewColumnPosition + 5 + intMaxWidthLabel, intVertPos)
                aTextBox.Size = New System.Drawing.Size(intWidthTextBox + 10, intGapHeight)

                ' Add a double click handler for each text box - I use this for getting additional information on the field in focus
                AddHandler aTextBox.DoubleClick, AddressOf TextBoxShowDesc

                'store the biggest width, so that the textboxes can be vertically aligned
                If intWidthTextBox > intMaxWidthText Then
                    intMaxWidthText = intWidthTextBox
                End If

                ' giving a name to all your objects will be the only way to retrieve them and use them in code. I use the names from
                ' the parameter class so it is easier to work with
                aTextBox.Name = itemMerchantAppField.ParameterName
                'giving the maximum size in characters for the textbox.
                aTextBox.MaxLength = Integer.Parse(itemMerchantAppField.ParameterLength)
                ' Create a useful tooltip
                ToolTip1.SetToolTip(aTextBox, itemMerchantAppField.ParameterDesc & IIf(itemMerchantAppField.ParameterRequired, " This field is required.", " This field is not required."))

                'tab have to be ordered so we can navigate the form with ease
                aTextBox.TabIndex = iTabIndex
                ' Now kick the counter
                iTabIndex += 1

                'Vertical position is to be manage according the 
                'tallest object in the form, in this case the textbox it self
                intVertPos += intGapHeight

                'adding the textbox to the form
                frmDynamic.SuspendLayout()
                aTextBox.SuspendLayout()
                frmDynamic.Controls.Add(aTextBox)
            Next

            'put an action button to the right
            Dim btnFill As Button = New System.Windows.Forms.Button()
            btnFill.Location = New System.Drawing.Point(iNewColumnPosition + (intMaxWidthLabel + intMaxWidthText), 0) 'intMaxWidthLabel + intWidthTextBox + 20, 0)
            btnFill.Name = "btnFill"
            btnFill.Size = New System.Drawing.Size(75, 23)
            btnFill.TabIndex = iTabIndex
            btnFill.Text = "&Fill"

            'put another action button to the under the first
            Dim btnSendApp As Button = New System.Windows.Forms.Button()
            btnSendApp.Location = New System.Drawing.Point(iNewColumnPosition + (intMaxWidthLabel + intMaxWidthText), 0 + intGapHeight) 'intMaxWidthLabel + intWidthTextBox + 20, 0)
            btnSendApp.Name = "btnSubmit"
            btnSendApp.Size = New System.Drawing.Size(75, 23)
            btnSendApp.TabIndex = iTabIndex
            btnSendApp.Text = "&Submit"

            'define a click_event on the buttons - now we can handle the click event code in the parent form.
            AddHandler btnFill.Click, AddressOf btnFillClick
            AddHandler btnSendApp.Click, AddressOf btnSendAppClick

            ' Add the buttons
            frmDynamic.Controls.Add(btnFill)
            frmDynamic.Controls.Add(btnSendApp)

            ' Grow the form if needed to fir objects
            frmDynamic.Width = iNewColumnPosition + (intMaxWidthLabel + intMaxWidthText + 95) 'intMaxWidthLabel + intMaxWidthText + 95
            frmDynamic.Height = iFrmMaxHeight + 35 'intVertPos + 35
            If frmDynamic.Height > Screen.PrimaryScreen.WorkingArea.Height OrElse frmDynamic.Width > Screen.PrimaryScreen.WorkingArea.Width Then
                ' If the form is too big we should warn the user. 
                MessageBox.Show("Beware! The size of the window is bigger than your actual definitions...", "Warning", MessageBoxButtons.OK)
            End If

            frmDynamic.Show()
        Else
            MsgBox("ERROR: Nothing returned from the web service. The form can not be created.")
        End If