比如说LB_SETHORIZONTALEXTENT为listbox水平滚动条常量,哪个是msflexgrid的呢?
解决方案 »
- vb hook 键盘问题(仿魔兽争霸改键)的问题?我这个程序在游戏开始后能在第一次起到作用,后面就不行了
- VB COM 问题
- 如何将VB里做的MSCHART图表导出到Excel里?在网上找了N天了,找不到办法,到底能不能导啊?问题解决,另开贴送分!!!!!
- winsock调用close后,端口处于TIMED_WAIT状态请问如何释放该端口
- 紧急救援,ADODC刷新问题
- 发送与瑞星smtp监控的冲突?????????????
- 书中程序的问题
- 如何控制MSFlexGrid控件只能用鼠标选择单行,而不能选多行?
- 求救各位大侠请指点啊!!
- 如何实现邮件的实时监控、接收
- 如何focus 在 含有 "halloworld" 為title 的程序上
- vbscript里的Recordset问题
msflexgrid不是标准的系统控件,恐怕不能用这种方法吧...
Private Declare Function SetScrollRange Lib "user32" (ByVal hwnd As Long, ByVal nBar As Long, ByVal nMinPos As Long, ByVal nMaxPos As Long, ByVal bRedraw As Long) As Long'WM_HSCROLL和WM_VSCROLL
Const SB_HORZ = &H0
Const SB_VERT = &H1Private Sub Form_Activate()
' MSHFlexGrid1.Width = Me.Width
Call SetScrollRange(MSHFlexGrid1.hwnd, SB_HORZ, 0, Me.Width, True)
End SubPrivate Sub Command1_Click()
MsgBox HeScroll(MSHFlexGrid1) '判断水平滚动条是否存在
MsgBox VsScroll(MSHFlexGrid1) '判断垂直滚动条是否存在
End SubPublic Function VsScroll(MshGrid As MSHFlexGrid) As Boolean '判断水平滚动条的可见性
Dim i As Long
VsScroll = False
i = GetScrollRange(MshGrid.hwnd, SB_HORZ, lpMinPos, lpMaxPos)
If lpMaxPos <> lpMinPos Then VsScroll = True
End FunctionPublic Function HeScroll(MshGrid As MSHFlexGrid) As Boolean '判断垂直滚动条的可见性
Dim i As Long
HeScroll = False
i = GetScrollRange(MshGrid.hwnd, SB_VERT, lpMinPos, lpMaxPos)
If lpMaxPos <> lpMinPos Then HeScroll = True
End Function