Imports Infragistics.Shared
Imports Infragistics.Win
Imports Infragistics.Win.UltraWinGrid
Imports System.Diagnostics
   Private Sub UltraGrid1_AfterColRegionScroll(ByVal sender As Object, ByVal e As Infragistics.Win.UltraWinGrid.ColScrollRegionEventArgs) Handles ultraGrid1.AfterColRegionScroll
       ' 列のスクロール領域がスクロールされた後に、AfterColRegionScroll を発生します
       ' 列のスクロール領域の VisibleHeaders プロパティを使用すると、
       ' 表示されるヘッダーにアクセスできます以下のコードは、列スクロール領域がスクロールされたときに、
       ' 表示されるヘッダーを出力します
       ' 表示されるすべてのヘッダーでループして出力します
       Debug.WriteLine("New visible headers in the col scroll region are: ")
       Dim i As Integer
       For i = 0 To e.ColScrollRegion.VisibleHeaders.Count - 1
           Dim vh As VisibleHeader = e.ColScrollRegion.VisibleHeaders(i)
           ' vh VisibleHeader と関連付けられたヘッダーを取得します
           Dim header As HeaderBase = e.ColScrollRegion.VisibleHeaders(i).Header
           If TypeOf header Is Infragistics.Win.UltraWinGrid.ColumnHeader Then
               ' 関連付けられた列のキー、元の位置 (列のスクロール領域に相対する位置)、および幅を出力します
               Debug.WriteLine("    " & header.Band.Key & "." & header.Column.Key & "'s Origin = " & vh.Origin & ", Extent = " & vh.Extent)
           ElseIf TypeOf header Is GroupHeader Then
               ' ヘッダーがグループの場合もあります
               Debug.WriteLine("    " & header.Caption & " group header's Origin = " & vh.Origin & ", Extent = " & vh.Extent)
           ElseIf TypeOf header Is BandHeader Then
               ' ヘッダーがバンド ヘッダーの場合もあります
               Debug.WriteLine("    " & header.Caption & " band header's Origin = " & vh.Origin & ", Extent = " & vh.Extent)
           End If
       Next
   End Sub