替身控件的妙用（源码）

cgsilicone · 发表于 2014-6-26 21:09:00

本帖最后由 cgsilicone 于 2018-12-7 15:37 编辑

根据sxgaobo的帖子解决组合框宽度不够显示文字不全的问题。

修改了数据多时（出现滚动条），提示条显示数据不正确的问题。
将类模块导入您的数据库，然后不用作任何修改（导入的代码和您原来的代码都不用修改），只需要在您的窗体中加入固定的三行代码（和提供的例子一模一样）。您的组合框宽度不够显示文字不全的问题就解决了。
中文写代码，没有注释也能轻松读懂。

游客，如果您要查看本帖隐藏内容请回复

cgsilicone · 发表于 2014-6-28 11:46:56

轻风发表于 2014-6-27 14:12
鼠标移到组合框时出现错误：
运行时错误'11'
除数为零

代码很粗糙，没有进行必要的容错处理。因为下拉框要在可见的情况下才能得到窗体句柄，因此启动时，程序会打下拉开组合框，如果组合框不能下拉，或下拉后太快收回，就可能得不到“下拉HWnd”，“下拉大小.Bottom”就会为0，出现错误。

轻风 · 发表于 2014-6-27 14:12:27

鼠标移到组合框时出现错误：
运行时错误'11'
除数为零

下拉行号 = Fix((p.Y - 下拉位移) / (下拉大小.Bottom / IIf(替身.ListRows > 替身.ListCount, 替身.ListCount, 替身.ListRows)))

玉树TMD临风 · 发表于 2014-6-26 21:19:45

这也要回复可看？

tmtony · 发表于 2014-6-27 07:40:32

源码分享. 顶一下

tmtony · 发表于 2014-6-27 07:41:46

提个建议哦. 一般如果需要回复可见的贴就不要设置需要金钱, 或直接可见,但需要金钱. 这样会比较好一些.

yanwei82123300 · 发表于 2014-6-27 07:54:05

谢谢分享1！！

sxgaobo · 发表于 2014-6-28 23:37:04

学习！！！

aslxt · 发表于 2014-6-29 07:52:46

快速回复一下

cyber-bobo · 发表于 2014-6-30 00:58:40

必须要顶

帐号		自动登录	找回密码
密码			注册

群介绍
Access培训群 (792054000)
Access免费培训群2 (792054000)
Access经典源码培训群 (77130759)
Access源码技巧群 (138920637)
access vba (307776555)

主题相关群

地区相关群[您还没设置居住地]

[窗体] 替身控件的妙用（源码）

本帖子中包含更多资源

评分

群介绍
主题无相 (随机显示版	同地区群块其他地区)