1,451
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
northwolves 2004-08-12
- 打赏
- 举报
Dim vrow As Integer
Private Sub Form_Load()
Dim i As Integer
MSHFlexGrid1.Rows = 20
For i = 0 To MSHFlexGrid1.Rows - 1
If MSHFlexGrid1.RowIsVisible(i) = True Then vrow = i
Next
End Sub
Private Sub MSHFlexGrid1_Scroll()
If MSHFlexGrid1.TopRow = MSHFlexGrid1.Rows - vrow + MSHFlexGrid1.FixedRows Then MsgBox "到底了！"
If MSHFlexGrid1.TopRow = MSHFlexGrid1.FixedRows Then MsgBox "到顶了！"
End Sub
Private Sub Form_Load()
Dim i As Integer
MSHFlexGrid1.Rows = 20
For i = 0 To MSHFlexGrid1.Rows - 1
If MSHFlexGrid1.RowIsVisible(i) = True Then vrow = i
Next
End Sub
Private Sub MSHFlexGrid1_Scroll()
If MSHFlexGrid1.TopRow = MSHFlexGrid1.Rows - vrow + MSHFlexGrid1.FixedRows Then MsgBox "到底了！"
If MSHFlexGrid1.TopRow = MSHFlexGrid1.FixedRows Then MsgBox "到顶了！"
End Sub
of123 2004-08-12
- 打赏
- 举报
不响应任何事件了。也许可以用 API 拦截什么消息。
shanlisong 2004-08-12
- 打赏
- 举报
可以判断当滚动条到最低下时，在把你要做的事情在写进去呀。
jordi2014 2004-08-12
- 打赏
- 举报
这个事件本身好像是没有的。
不知这样的事件对您有什么用？
不知这样的事件对您有什么用？
