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

■No17093 (ランペル さん) に返信
> 「System.Windows.Forms.TreeView」オブジェクトのスクロールバーの位置調整をスクリプトでおこないたいのですが可能でしょうか。
> ツリーのノードをフォーム上で追加するようなソフトを作成しており、追加したノードが画面外に追加された場合に、
> スクリプトにて自動でスクロールバーを調節しようと考えています。
> 追加したノードをアクティブにすれば、自動で画面内にスクロールされますが、ソフトの事情により、アクティブにはできません。
> 
> 以下のようなことを試しましたが、スクロールバーの位置は調整されませんでした。
> 
> ObjTree:ツリービューオブジェクト
> nowNode：追加したノード
> 
> Dim instance As Point
> instance = nowNode.Bounds.Location(追加したいノードの位置を取得)
> ObjTree.AutoScrollOffset = instance(スクロールバーの調整？？)

C# で書いたあと、無理矢理 VB に直したものなので動く保証はありませんが。

    If nowNode.IsVisible = False Then
        ObjTree.TopNode = nowNode;
    End If

こんな感じで。

■No83351 (shu さん) に返信

ありがとうございます。
教えて頂いたので動作はしたのですが下記のサンプルに置き換えてはみたのですがどうも上手くいきません。
応用は可能でしょうか？
それと関係が有るのかは分かりませんが、実際のチャートではX軸に対してスクロールも掛けています。

        Dim ds As New DataSet
        Dim dt As New DataTable
        Dim dtRow As DataRow
        '列の作成
        dt.Columns.Add("年月日時分", GetType(String))　　'GetType(Date)
        dt.Columns.Add("数量", GetType(Integer))
        ds.Tables.Add(dt)
        'データの追加
        Dim cRandom As New System.Random()                ' Random クラスの新しいインスタンスを生成する
        Dim iResult1 As Integer = cRandom.Next(13, 186)   ' 実際は"年月日時分"ですが分かり易く 13以上 186 未満の乱数を取得し開始を決めている
        For i = iResult1 To iResult1 + 100
            dtRow = ds.Tables(0).NewRow
            dtRow(0) = i
            dtRow(1) = cRandom.Next(1, 100)               ' "数量"   (1 以上 100 未満の乱数を取得する） 
            ds.Tables(0).Rows.Add(dtRow)
        Next
        'Chart1
        Chart1.DataSource = ds   'Chart に表示するデータソースを設定
        Chart1.Series.Clear()    '系列を初期化
        Dim oresen = Chart1.Series.Add("棒グラフ")
        With oresen
            .ChartType = DataVisualization.Charting.SeriesChartType.Column
            .XValueMember = "年月日時分"     ' X軸
            .YValueMembers = "数量"          ' Y軸
            .IsVisibleInLegend = False
        End With

        GoTo kk
        With Chart1.ChartAreas(0)
            With .AxisX
                .LabelStyle.Format = "yyyy/MM/dd HH:mm"  ' "yyyy/MM/dd HH:mm"      "yyyy/MM/dd"日 
                .IntervalType = DataVisualization.Charting.DateTimeIntervalType.Minutes
                .Interval = 15   '1440分=1日
            End With
        End With
kk: