1,486
社区成员
发帖
与我相关
我的任务
分享
Const LVM_FIRST = &H1000
Const LVM_GETTOPINDEX = (LVM_FIRST + 39)
Const LVM_GETITEMTEXT = (LVM_FIRST + 45)
Const WM_HSCROLL = &H114
Const WM_VSCROLL = &H115
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function GetScrollPos Lib "user32" (ByVal hwnd As Long, ByVal nBar As Long) As Long
Private Declare Function GetScrollInfo Lib "user32.dll" (ByVal hwnd As Long, ByVal n As Long, lpScrollInfo As SCROLLINFO) As Long
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 Const SB_HOBZ = 15
Private Const SB_HORZ = 0
Private Const SB_VERT = 1
Private Const SIF_POS = &H4
Private SELECTEDCOLUMN As Integer
Private Function LiGus() As Long
'----------------------------------------------------------------------
'功能:获得ListView水平滚动条的滚动距离
'调用方法:LiGus
'----------------------------------------------------------------------
Dim scrInfo As SCROLLINFO
scrInfo.cbSize = LenB(scrInfo)
scrInfo.fMask = SIF_POS
GetScrollInfo ListView1.hwnd, SB_HORZ, scrInfo
LiGus = scrInfo.nPos * SB_HOBZ
End Function
Private Function LiGvs() As Long
'----------------------------------------------------------------------
'功能:获得ListView垂直滚动条的滚动距离
'调用方法:LiGvs
'----------------------------------------------------------------------
Dim scrInfo As SCROLLINFO
scrInfo.cbSize = LenB(scrInfo)
scrInfo.fMask = SIF_POS
GetScrollInfo ListView1.hwnd, SB_VERT, scrInfo
LiGvs = scrInfo.nPos * SB_HOBZ
End Function