自动滚动不在tabcontrol中工作

时间:2015-01-22 21:28:24

标签: vb.net autoscroll

从下面的屏幕截图中可以看出,我的自动滚动功能不起作用。我在选项卡中有一个tablelayoutpanel,我在两者上都设置了autoscroll,但都不起作用。

正如这个问题建议的那样,我试图摆脱Dock.Fill(我的对接现在通过设计师设置为无),但这也没有用。 Winform autoscroll not working

有什么建议我可以做些什么来让它在添加新问题时向下滚动?

Autoscroll isn't working!

我在我的case语句中尝试了以下代码,当我对问题D回答是,它只显示0,0作为自动滚动的位置并且不会将其向下移动。

        Case "DY"
            Dim q As KeyValuePair(Of String, String)
            For Each q In Questions
                If q.Key = "E" Then
                    For Each c As Control In Appl1HealthQuestions.Controls
                        ShowControls(15, 16, 17, cbo)
                    Next
                    Appl1TabScrollLayout.AutoScroll = True
                    Appl1TabScrollLayout.AutoScrollPosition = New Point(Me.AutoScrollPosition.X, Me.AutoScrollPosition.Y - 20)
                    MessageBox.Show(Applicant1Tab.AutoScrollPosition.ToString)
                    MessageBox.Show(Appl1TabScrollLayout.AutoScrollPosition.ToString)
                    Exit For
                End If
            Next

1 个答案:

答案 0 :(得分:0)

我能够找到解决方案:

Case "DY"
        Dim q As KeyValuePair(Of String, String)
        For Each q In Questions
            If q.Key = "E" Then
                For Each c As Control In Appl1HealthQuestions.Controls
                    ShowControls(15, 16, 17, cbo)
                Next
                Appl1TabScrollLayout.VerticalScroll.Value = Appl1TabScrollLayout.VerticalScroll.Maximum
                Exit For
            End If
        Next

Vertical Scroll.Maximum将滚动移动到窗口底部,显示新控件,这就是我所追求的。