如何用程序移动MSHFlexGrid的滚动条

cdc2533802 2003-10-16 05:40:20
如何用程序移动MSHFlexGrid的滚动条
...全文
60 7 打赏 收藏 转发到动态 举报
写回复
用AI写文章
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
yjch 2003-10-17
  • 打赏
  • 举报
回复
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

yjch 2003-10-17
  • 打赏
  • 举报
回复
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

abc10 2003-10-17
  • 打赏
  • 举报
回复
直接用改变控件的TopRow属性就可以达到你的效果。

例如

Private Sub Command1_Click()
On Error GoTo err
MSHFlexGrid1.TopRow = MSHFlexGrid1.TopRow + 1 '向下移一行
'MSHFlexGrid1.TopRow = MSHFlexGrid1.TopRow - 1 '向上移一行
err:
If err.Number = 30009 Then
MsgBox "你已移到顶了"
End If
End Sub

greatqn 2003-10-17
  • 打赏
  • 举报
回复
是不是想让MSHFlexGrid 显示你想看到的那行或列啊。
设置它的 toprow 或 leftcol 就好啦。
cdc2533802 2003-10-17
  • 打赏
  • 举报
回复
能不能说明清楚些,后面的那个XXX是什么.
WQ771211 2003-10-17
  • 打赏
  • 举报
回复
上移一行
sendmessage(hw,WM_SCROLL,WS_UP,vbNullString)
下移一行
sendmessage(hw,WM_SCROLL,WS_DOWN,vbNullString)
滚动到某个地方
SetScrollPos(hw,WS_VERT,pos) '垂直
SetScrollPos(hw,WS_HORZ,pos) '水平


WQ771211 2003-10-16
  • 打赏
  • 举报
回复
用SendMessage试试
SendMessage(hw,WM_SCROLL,xxx,xxx)
wPara和lPara要去查一下

7,759

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧