以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]面板垂直滚动条判断,已解决  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=89567)
--  作者：pcxjxjhkw
--  发布时间：2016/8/24 16:39:00
--  [求助]面板垂直滚动条判断,已解决

如何判断，当前面板（panl)是否有垂直滚动条？

 

项目中有问题描述

 

谢谢

 

 

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目4.table

[此贴子已经被作者于2017/1/10 14:34:59编辑过]
--  作者：大红袍
--  发布时间：2016/8/24 16:59:00
--  
Dim p = e.Form.Controls("Panel1").BaseControl
If p.VerticalScroll.Maximum > 100 Then
    msgbox("有")
End If
--  作者：pcxjxjhkw
--  发布时间：2016/8/24 17:18:00
--  

谢谢

 

测试，不正确呀。当没有垂直滚动条时，也测试为“有”

[此贴子已经被作者于2016/8/24 17:20:15编辑过]
--  作者：大红袍
--  发布时间：2016/8/24 17:29:00
--  
 上传实例测试。
--  作者：pcxjxjhkw
--  发布时间：2017/1/8 15:54:00
--  

求助老师
--  作者：有点色
--  发布时间：2017/1/8 16:32:00
--  

 代码没问题，请认真测试。
--  作者：pcxjxjhkw
--  发布时间：2017/1/9 0:26:00
--  
以下是引用有点色在2017/1/8 16:32:00的发言：

 代码没问题，请认真测试。

老师，请测试一楼项目。
--  作者：有点蓝
--  发布时间：2017/1/9 8:29:00
--  
还是用Windows api吧，比较准确一点，项目用法来自：http://blog.csdn.net/ltolll/article/details/7637995

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目4.table
--  作者：逛逛
--  发布时间：2017/1/9 9:05:00
--  
Dim p = e.Form.Controls("Panel1").BaseControl
msgbox(p.VerticalScroll.Visible  )
--  作者：有点色
--  发布时间：2017/1/9 9:09:00
--  
 mark 滚动条