从下面的屏幕截图中可以看到,我的自动滚动无法正常工作。我在选项卡中有一个tablelayoutpanel,我都将autoscroll都设置为true,但都没有用。
正如这个问题所建议的那样,我尝试摆脱了Dock.Fill(现在通过设计器将对接设置为None),但这也不起作用。Winform自动滚动不起作用
关于添加新问题时如何使它向下滚动的任何建议?
我正在我的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
我能够找到一个解决方案:
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
VerticalScroll.Maximum将滚动移动到显示新控件的窗口底部,这正是我所追求的。
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句