设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

12下一页
返回列表 发新帖
查看: 7138|回复: 17
打印 上一主题 下一主题

[模块/函数] 程序入口、界面控制

[复制链接]

点击这里给我发消息

跳转到指定楼层
1#
发表于 2002-5-4 05:08:00 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
本程序是总结轻魂ACCESS源码区论坛的一些贴子组合而成。仁者见仁,智者见智。

主要功能:完整的应用程序结构,主程序入口,主窗体背景、图标设置,关闭程序时的提示。



请点此下载

[em26][em26][em26]

本帖被以下淘专辑推荐:

分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖1 订阅订阅
2#
发表于 2002-5-4 16:43:00 | 只看该作者
哇, 这样很好呢, 如果网站所有的贴子都能做了个例子就好啦, 我就喜欢例子
多谢版主
3#
发表于 2002-5-4 18:51:00 | 只看该作者
精品,值得收藏。

点击这里给我发消息

4#
 楼主| 发表于 2002-5-4 21:16:00 | 只看该作者

程序讲解


一、背景的实现

    在本程序中有一个类模块 CMDIWindow,该类实现了设置、更换 ACCESS 主窗口的背景的方法。
    在程序中,创建一个从一开始到应用程序结束的全程隐藏窗体 frmAppUnit,在该窗体中创建 CMDIWindow 类的实例 mclsMDIClientWnd,设置属性 DrawMode (背景显示方式)、ImagePath(背景文件名),并调用其方法 Hook 实现更改设置 ACCESS 主窗口的背景。注意:该对象必须是贯穿程序全程的,因此 frmAppUnit 总是打开的(只是不可见)。更换背景时,只需设置属性 DrawMode、ImagePath 即可,不要再次使用 Hook 方法。在程序结束时必须调用 UnHook 方法解除 ACCESS 主窗口的背景设置,并释放对象 mclsMDIClientWnd。
    如果要改变背景和显示方式,可以用 frmAppUnit.Visible = True 语句事显示 frmAppUnit 窗体,重新设置背景和显示方式。

二、程序入口的实现

    程序入口就设在 frmAppUnit 窗体的 Form_Load 事件处理中, frmAppUnit 是程序打开的第一个窗体,但它会隐藏,因此可以在此处打开第一个要显示的窗体,如登录窗体。当然没有窗体也没关系,因为这时程序的菜单以激活,控制权已经落到菜单上了(ACCESS 主窗口)。

三、关闭提示的实现

    由于 frmAppUnit 窗体是隐藏的(不可见),当关闭数据库时,会自动激活 frmAppUnit 窗体的 Unload 事件,当选择“是”,就会关闭数据库,选择“否”,就不会关闭数据库。

    另,在 frmAppUnit 窗体的 Form_Load 事件中实现了更改应用程序的标题和图标。

[em26][em26][em26]
5#
发表于 2002-5-5 00:40:00 | 只看该作者
五一节收到的第二个好礼物!
6#
发表于 2002-5-5 03:19:00 | 只看该作者
:)收到。
7#
发表于 2002-5-5 04:50:00 | 只看该作者
初来贵地,收获不小,非常感谢!!!

点击这里给我发消息

8#
 楼主| 发表于 2002-5-6 00:35:00 | 只看该作者

  如果把这个文件编译成 .mde 的文件后,再运行,效果更好!不会出现假死机现象。

  [em26][em26][em26]

点击这里给我发消息

9#
 楼主| 发表于 2002-5-6 00:36:00 | 只看该作者

  请参见贴子:

  http://www.accxp.com/club/topic.cgi?forum=19&topic=133

  [em26]
10#
发表于 2002-5-11 22:10:00 | 只看该作者
版主:我用了,管用。但是我的窗体标题栏中除了我自己在启动中加入的标题外,后面还有“ -[XXXX:窗体]”字样。在切换到其他窗体时, 也会显示出其他窗体的名称,如何去掉?
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-11-14 10:49 , Processed in 0.092376 second(s), 35 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表