自动滚动在 tabcontrol 中不起作用
Autoscroll not working in tabcontrol
正如您从下面的屏幕截图中看到的那样,我的自动滚动功能无法正常工作。我在选项卡中有一个 tablelayoutpanel,我在两者上都将自动滚动设置为 true,但都不起作用。
正如这个问题所建议的,我尝试摆脱 Dock.Fill(我的对接现在通过设计器设置为 None),但这也没有用。 Winform autoscroll not working
有什么建议可以让我在添加新问题时向下滚动吗?
我正在我的案例陈述中尝试以下代码,当我对问题 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 将滚动条移动到显示新控件的 window 底部,这正是我想要的。
正如您从下面的屏幕截图中看到的那样,我的自动滚动功能无法正常工作。我在选项卡中有一个 tablelayoutpanel,我在两者上都将自动滚动设置为 true,但都不起作用。
正如这个问题所建议的,我尝试摆脱 Dock.Fill(我的对接现在通过设计器设置为 None),但这也没有用。 Winform autoscroll not working
有什么建议可以让我在添加新问题时向下滚动吗?
我正在我的案例陈述中尝试以下代码,当我对问题 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 将滚动条移动到显示新控件的 window 底部,这正是我想要的。