vb6如何知道msflexgrid_scroll向上向下单击

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

只需在示例项目中将 flexgrid 替换为 rtfExample -我尝试了一下，似乎效果很好。