C# と VB.NET の質問掲示板

■No79145 (素人 さん) に返信
> 2016/03/10(Thu) 21:30:02 編集(投稿者)
> 
> 素人ですので場違いなのかもしれませんが。
> 
> チャートを操作するHScrollBarです。
> 調べてみたのですが分かりません。
> 普通は左端にあるスクロールボタン（？）を初期値で右端にしたいのです。
> 
┌─┬───┬─────┬───┬─┐
│＜│　　　│■■■■■│　　　│＞│
└─┴───┴─────┴───┴─┘
　1           2                   3

スクロールボタン(?)はどこのこと？

■No79150 (shu さん) に返信

ありがとうございます。

> ┌─┬───┬─────┬───┬─┐
> │＜│　　　│■■■■■│　　　│＞│
> └─┴───┴─────┴───┴─┘
> 　1           2                   3
> 
> スクロールボタン(?)はどこのこと？

３の位置です。

■No79154 (shu さん) に返信

ありがとうございます。

> ２のパーツを３の位置ということでしょうか？

はい、そうです。

> であれば既に回答がついている通り
> Maximumに値を設定した後
> Value=Maximum
> でよいかと思います。

どこへどのようにすればよいのでしょうか？

 With Chart1.ChartAreas(0)
     .AxisX.Minimum = 0
     .AxisX.Maximum = 100    
     .AxisX.Value = .AxisX.Maximum     'では.AxisX.Valueの部分にエラーでますので違うようですし？？
 End With

■No79161 (shu さん) に返信

ありがとうございます。

> HScrollBar1.Maximum = ・・・ (どのように使いたいのかにより設定値が決まると思います。)
> HScrollBar1.Value = HScrollBar1.Maximum

もう少し教えてください。
データ数100件です。
初期値で50〜100までは正常に表示もされますし、
スクロールバーを一番左端（図１）にしても正常に0〜50までは表示もされますが、
一番右端（図３）にすると、どうもダメで何故か41〜91の表示になってしまいます。

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim dat As DataTable = New DataTable
        With dat.Columns
            .Add("件数", GetType(Integer))
            .Add("数量", GetType(Integer))
        End With

        For i = 0 To 100
            dat.Rows.Add(i, i * 10)
        Next

        Chart1.DataSource = dat
        Chart1.Series.Clear()
        Dim oresen = Chart1.Series.Add("折れ線")
        With oresen
            .ChartType = DataVisualization.Charting.SeriesChartType.Line
            .XValueMember = "件数"
            .YValueMembers = "数量"
            .IsVisibleInLegend = False
        End With

        With Chart1.ChartAreas(0)  '初期値で50〜100の表示です。
            .AxisX.Minimum = 50
            .AxisX.Maximum = 100
        End With

        HScrollBar1.Maximum = 50    '・・・ (どのように使いたいのかにより設定値が決まると思います。)
        HScrollBar1.Value = HScrollBar1.Maximum

    End Sub

    Private Sub HScrollBar1_Scroll(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs) Handles HScrollBar1.Scroll
        With Chart1.ChartAreas(0)
            .AxisX.Minimum = HScrollBar1.Value
            .AxisX.Maximum = HScrollBar1.Value + 50
        End With
    End Sub

End Class