msflexgrid问题，在Scroll事件中如何计算窗口内的row值

nj_tanghua 2006-01-19 06:34:01

高难度问题，想了两天没想出算法
请高手指点呀
我做了一个带text文本输入的msflexgrid
即可以在grid中的活动行列中输入内容,
其他的控制都做好了，就剩这个没法控制了.

...全文

174 5 打赏收藏转发到动态举报

写回复

用AI写文章

5 条回复

切换为时间正序

请发表友善的回复…

发表回复

nj_tanghua 2006-01-20

打赏
举报

谢谢你给的思路，就是在row值变化的时候记住row值和toprow值
我已成功解决

nj_tanghua 2006-01-19

打赏
举报

我试一下

fishmans 2006-01-19

打赏
举报

你的textbox是在点击网络时定的位吧？
那么在click事件中取得当时msflexgrid的toprow与row值，row-toprow就是你当前在网格上显示的行数假设为NRow
scroll事件里再取topr+Nrow，就是滚动后应该显示的行数了
如：
dim nRow as integer
private sub msflexgrid_click()
nrow=msflexgrid.row-msflexgrid.toprow
end sub
private sub msflexgrid_scroll()
msflexgrid.row=mflexgrid.toprow+nrow
text1.move msflexgrid.left+msflexgrid.cellleft,msflexgrid.top+msflexgrid.cellTop,
msflexgrid.cellwidth,msflexgrid.cellheight
end sub

rainstormmaster 2006-01-19

打赏
举报

Option Explicit

Const SBS_HORZ = 0
Const SBS_VERT = 1
Private Const SIF_RANGE = &H1
Private Const SIF_PAGE = &H2
Private Const SIF_POS = &H4
Private Const SIF_DISABLENOSCROLL = &H8
Private Const SIF_TRACKPOS = &H10
Private Const SIF_ALL = (SIF_RANGE Or SIF_PAGE Or SIF_POS Or SIF_TRACKPOS)

Private Type SCROLLINFO
cbSize As Long
fMask As Long
nMin As Long
nMax As Long
nPage As Long
nPos As Long
nTrackPos As Long
End Type
Private Declare Function GetScrollInfo Lib "user32" (ByVal hWnd As Long, ByVal n As Long, lpScrollInfo As SCROLLINFO) As Long

Private Sub MSFlexGrid1_Scroll()
Dim SInfo As SCROLLINFO
SInfo.cbSize = LenB(SInfo)
SInfo.fMask = SIF_ALL
Call GetScrollInfo(Me.MSFlexGrid1.hWnd, SBS_VERT, SInfo)
Debug.Print SInfo.nPos
End Sub

nj_tanghua 2006-01-19