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