vb6 - vb6怎么知道msflexgrid_scroll up down click

Question

单击向下箭头上的 msflexgrid 滚动条时，我怎么知道我单击了向下箭头。如果可能的话，给我示例代码。

谢谢

Answer 1

取决于您想要它的用途（它定义了您需要它的具体程度）。您可以使用 Scroll 事件判断网格何时成功滚动：

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

如果您确实需要知道何时专门单击了向下箭头，它是否真的滚动了网格，现在您将进入子类化。尝试这个：

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

只需在示例项目中为 rtfExample 换一个 flexgrid - 我试过了，似乎工作正常。