DataGridのスクロールイベントについて (ID:111333)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 > VB6.0でデータグリッドのスクロールイベントが発生した時、 > 垂直・水平をどのように判断すればよいか、わからないのです。 前回の表示位置と、今回の表示位置を比較してみては如何でしょう。 # 分割ペインを使っている場合は DataGrid.LeftCol等の替わりに、 # DataGrid.Splits(ペイン番号).LeftCol 等を利用してみてください。 Option Explicit Private PreCol As Integer Private PreRow As Variant Private Sub DataGrid1_Scroll(Cancel As Integer) With Me.DataGrid1 If PreCol <> .LeftCol Then PreCol = .LeftCol Me.Caption = "水平" ElseIf PreRow <> .FirstRow Then PreRow = .FirstRow Me.Caption = "垂直" Else Me.Caption = "変化無し" End If End With End Sub