vb6どのようにmsflexgrid_scrollを知るにはクリックダウン

Question

下矢印のmsflexgridスクロールバーをクリックすると、私は下矢印をクリックしたことを知ることができます。可能であればサンプルコードを与えてください。

おかげ

Answer 1

（あなたはそれがする必要がどのように具体的な定義する）あなたがそれを望むものに依存します。グリッドがスクロールイベントで正常にスクロールされたとき、あなたは言うことができます。

Private Sub MSFlexGrid1_Scroll() 

    Debug.Print "Scrolled" 

End Sub 

あなたがアップからダウン区別する必要がある場合は（と大きなバー・クリックの動きから、単一の移動）、あなたは維持する必要があります一番上の行のトラック：

Option Explicit 
Public GridTop As Long 

Private Sub Form_Load() 
Dim lA As Long 

    MSFlexGrid1.Cols = 4 
    MSFlexGrid1.Clear 
    For lA = 1 To 20 
     MSFlexGrid1.AddItem lA & vbTab & "bob-" & lA & vbTab & lA & "-fred" & vbTab & lA & "-joe-" & lA 
    Next lA 
    MSFlexGrid1.RemoveItem 1 
    GridTop = MSFlexGrid1.TopRow 

End Sub 

Private Sub MSFlexGrid1_Scroll() 

    Debug.Print "Scrolled" 
    Debug.Print MSFlexGrid1.TopRow 
    If MSFlexGrid1.TopRow = GridTop + 1 Then 
     Debug.Print "Down arrow (effective)" 
    End If 
    GridTop = MSFlexGrid1.TopRow 

End Sub 

あなたが実際にあなたはそれが実際に今、あなたはサブクラスにしている、グリッドをスクロールするかどうかは、具体的に下向き矢印をクリックした際に知っておく必要がある場合。このお試しください：ちょうどサンプルプロジェクトでrtfExampleためのフレキシブルグリッドコントロールを入れ替える

http://www.planetsourcecode.com/vb/scripts/ShowCode.asp?txtCodeId=59656&lngWId=1

を - 私はそれを試してみましたが、正常に動作するようです。