MSFlexGrid滚动条问题
怎样知道按下的是MSFlexGrid控件滚动条的上按钮还是下按钮?
[解决办法]
Option Explicit
Dim x
Private Sub Form_Load()
Dim i
For i = 1 To 2000
M.AddItem i
Next
x = M.TopRow
End Sub
Private Sub M_Scroll()
If M.TopRow < x Then
Debug.Print "上 "
Else
Debug.Print "下 "
End If
x = M.TopRow
End Sub