VisualStudioCommunity 2015,VB.net 4.6を使用しています。
OSはWin7 64bit Professionalです。
フォームにFlowLayoutPanelを設置し、AutoScrollではなくHorizontalScrollのVisibleプロパティをONに設定し、
フォームのロードイベントで、Maximumを500、Minimumを０とし、Value値に100を設定しています。
フォームが起動した状態では、スクロールの位置は100の位置になっていますが、ここでマウスを使ってスクロールさせると、スクロール終了後一番左に戻ってしまいます。（Value値が0になる）
スクロールを移動させた際に発生するスクロールイベントで、Value値にスクロール値を設定しているのですが、スクロール中はValueに値が入っていても、スクロールが終了すると戻ってしまうようです。
ちなみに、Panelコントロールでも試してみましたが、同じ現象でした。
ボタンを配置し、ボタンを押すたびにValue値をアップしていくというのは問題なく行えます。
スクロールした後、その状態をそのままスクロールバーに反映させるためには、どのように設定すればすればよいのでしょうか。
ご回答よろしくお願いいたします。
Public Class Form2
Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
With FlowLayoutPanel1
With .HorizontalScroll
.Visible = True
.Enabled = True
.Minimum = 0
.Maximum = 500
.Value = 100
End With
End With
With Panel1
With .HorizontalScroll
.Visible = True
.Enabled = True
.Minimum = 0
.Maximum = 500
.Value = 100
End With
End With
End Sub
Private Sub FlowLayoutPanel1_Scroll(sender As Object, e As ScrollEventArgs) Handles FlowLayoutPanel1.Scroll
With DirectCast(sender, FlowLayoutPanel)
With .HorizontalScroll
If .Value <> e.NewValue Then
.Value = e.NewValue
Console.WriteLine("NewValue:{0},Value:{1}", e.NewValue, .Value)
End If
End With
End With
End Sub
Private Sub Panel1_Scroll(sender As Object, e As ScrollEventArgs) Handles Panel1.Scroll
With DirectCast(sender, Panel)
With .HorizontalScroll
If .Value <> e.NewValue Then
.Value = e.NewValue
Console.WriteLine("NewValue:{0},Value:{1}", e.NewValue, .Value)
End If
End With
End With
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
With FlowLayoutPanel1.HorizontalScroll
Debug.Print(.Value.ToString)
.Value = .Value + 10
End With
End Sub
End Class
