自由的窗体(附超值源码)

cgsilicone · 发表于 2014-6-14 18:38:38

本帖最后由 cgsilicone 于 2014-6-14 19:28 编辑

朋友要个调整窗口的代码，花了两天时间，完美解决。
您可以任意拉动窗体（最小化到最大化），控件完美跟随。

将类模块“窗口操作”，导入您的数据库，然后不用作任何修改（导入的代码和您原来的代码都不用修改），只需要加入固定的四行代码（和提供的例子一模一样）。
1：窗体代码开始出加入“Dim 调整窗口 As New 窗口操作“
2：Form_Open中加入“调整窗口.初始化 Me“和“调整窗口.按屏幕比例“
3： Form_Resize中加入“调整窗口.调整大小”
您数据库中的任何窗体都可以自由变化了。
按屏幕比例：固定窗体大小占屏幕的比例，参数是比例数，缺省是60%
按设计大小：让你的窗体无论在任何分辨率下都和设设计时一样大（物理上一样大），参数是设计时的分辨率，缺省是1024*768

中文写代码，没有注释也能轻松读懂。
其他的您一定可以懂，懂了您就可以任意修改。

结合http://www.office-cn.net/thread-51853-1-1.html，您的ACCESS应用就完全没有了ACCESS的影子。

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

桑松木 · 发表于 2014-6-14 19:30:15

抢个沙发

wgh3g · 发表于 2014-6-14 19:36:59

谢谢分享！

leonshi · 发表于 2014-6-14 19:51:47

学习

sdhong · 发表于 2014-6-14 19:59:42

谢谢分享,下来学习.

netguestcn · 发表于 2014-6-14 22:11:33

谢谢分享！

sxb2007 · 发表于 2014-6-14 23:12:29

谢谢分享！

zwf33 · 发表于 2014-6-15 02:39:37

谢谢分享

zpy2 · 发表于 2014-6-15 07:28:21

谢谢分享！！！

xie62 · 发表于 2014-6-15 09:47:18

谢谢分享！

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

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

主题相关群

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

[窗体] 自由的窗体(附超值源码)

本帖子中包含更多资源

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