• 新浪微博:
  • 微信 :
按键精灵电脑版
立即下载

软件版本:2014.05
软件大小:21.6M
更新时间:07-04

按键精灵安卓版
立即下载

软件版本:3.3.5
软件大小:62.5M
更新时间:9-25

按键精灵iOS版
立即下载

软件版本:1.3.5
软件大小:29.2M
更新时间:06-14

最新企业版UiBot
立即下载

软件版本:3.3
软件大小:282M
更新时间:08-06

快捷导航

登录 后使用快捷导航
没有帐号? 注册

登录 注册
发新话题 回复该主题

[分享源码] 【技巧】表格保证显示选择项源码!!! [复制链接]

1#

按键精灵出的表格控件,

行数太多了的话,

我都不知道运行到第几行了,

我看到易语言的超级列表框有个【保证显示】,

我就用API做了个同样的功能出来,给大家看看!

  1. Call 保证显示选择项(10, Form1.Grid1.Hwnd, Form1.Grid1.Height, Form1.Grid1.GetRowHeight(0))
复制代码


  1. Declare Function SetScrollPos Lib "user32" Alias "SetScrollPos" (ByVal hwnd As Long, ByVal nBar As Long, ByVal nPos As Long, ByVal bRedraw As Boolean) As Long
  2. Declare Function SendMessage Lib "user32" Alias "SendMessageW" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
  3. Sub 保证显示选择项(行数, 列表框句柄, 列表框高度, 初始行高)
  4. Dim 初始行数, 滑动位置
  5. 初始行数 = 列表框高度\初始行高
  6. If 行数 > 初始行数 Then
  7. 滑动位置 = 初始行高 * (行数 - 初始行数)
  8. Else
  9. 滑动位置 = 0
  10. End If
  11. SetScrollPos 列表框句柄, 1, 滑动位置, True '滑动条滚动到指定位置
  12. If 行数 > 初始行数 Then SendMessage 列表框句柄, 277, 1, 0'滑动条向下滚一行
  13. End Sub
复制代码
Q文件下载:表格控件实例_保证显示选中项.Q

    已有1评分我要评分查看所有评分

    本主题由 超级版主 n15976906190 于 2016/9/21 23:08:28 执行 主题分类 操作
    2#

    自己占沙发

    3#


    4#

    来看看 学习下啊

    5#

    学习了

    6#

    自己占沙发

    7#

    sdfsdfdfdfsf

    脚本定制,请联系老冷QQ:1920712147
    8#

    保证显示选择项源

    9#

    来看看看 这不错啊

    10#


    11#

    2121212

    12#

    看看好不好用

    13#

    okokok

    14#


    15#

    什么好东东啊

    16#

    学习中

    17#

    需要这个来看看!!!!!!!!

    18#

    瞅瞅

    19#

    看看

    20#

    前来观看!

    发新话题 回复该主题