vba触发事件调用一个模块程序

CAD VBA中一个模型空间不同图样的批量打印（VBA程序）

说明：

1、本VBA程序在CAD2008/2009运行成功；电脑系统64位。 2、本程序仅对略有VBA基础知识同志共同学习、共勉；还请编程高手对不妥之处给予指正。谢谢大家！ 3、本VBA程序用于解决如下问题：如下图所示，当一个Model有12张图形是如何使用VBA代码实现一键打印或发布。

一般情况下，VBA有三种解决思路：

a）在每个图形上进行矩形框标识，然后用VBA代码识别矩形框进行批量打印。 b）使用VBA代码进行批量布局，然后使用CAD的发布功能进行批量打印。 c）使用VBA代码进行图样位置识别，然后进行批量打印。

4、本文仅对第二种和第三种方法进行程序演示。

b）使用VBA代码进行批量布局，然后使用CAD的发布功能进行批量打印。

应用步骤：

第一步，将图形等列、等行排放

第二步，新建一个标题为“layout1”布局， “页面布局管理器”的参数修改为自己想要的参数

第三步，打开VBA编辑器（工具→宏→Visual Basic编辑器），插入一个模块，将下面的过程代码复制进去 第四步，修改参数

实验11 模块与VBA程序设计

一、实验目的

1、掌握建立标准模块及窗体模块的方法 2、熟悉VBA开发环境及数据类型

3、掌握常量、变量、函数及其表达式的用法

4、掌握程序设计的顺序结构、分支结构、循环结构 5、了解VBA的过程及参数传递

6、掌握变量的定义方法和不同的作用域和生存期 7、了解数据库的访问技术 二、实验内容

实验11-1创建标准模块和窗体模块 1、 实验要求

在 “罗斯文.accdb” 数据库中创建一个标准模块“M1”，并添加过程“P1”和“P2”。 2、 实验步骤

（1） 打开“罗斯文.accdb”数据库，选择“创建”选项卡→“宏与代码”组→单击“模

块”按钮，打开VBE窗口。选择“插入”→过程，弹出过程对话框，如图11-1所示。

图 11-1 VBE菜单栏及插入菜单的下拉菜单

（2） 在过程对话框中“名称”文本框输入“P1”,“类型”栏选择“子程序”，“范围”栏

选择“公共的”，单击“确定”，如图11-2所示。

图 11-2 添加过程

（3） 在代码窗口中输入 “P1”的子过程代码，如图11-3所示。

图 11-3 P1子过程代码

（4） 单击“视图”→“立即窗口”菜单命令，打开立即窗口，并在立即窗口中输入“Call

P1(

编写一个程序，在屏幕上显示如下信息：

************************** welcome<你的名字>

************************** package cn.ldu.sun;

public class welcome {

/**

* @param args */

public static void main(String[] args) { // TODO Auto-generated method stub

System.out.println( \

System.out.println( \孙强 \ System.out.println( \ } }

2编写一个程序，使用while循环计算1~1000之间能被3和7同时整除的整数之和 package cn.ldu.sun;

public class Sum {

/**

* @param args */

public static void main(String[] args) { // TODO Auto-gener

编写一个程序，在屏幕上显示如下信息：

************************** welcome<你的名字>

************************** package cn.ldu.sun;

public class welcome {

/**

* @param args */

public static void main(String[] args) { // TODO Auto-generated method stub

System.out.println( \

System.out.println( \孙强 \ System.out.println( \ } }

2编写一个程序，使用while循环计算1~1000之间能被3和7同时整除的整数之和 package cn.ldu.sun;

public class Sum {

/**

* @param args */

public static void main(String[] args) { // TODO Auto-gener

龙源期刊网 http://www.qikan.com.cn

《沉思录》，作为一个事件

作者：蒙 木

来源：《出版参考》2009年第04期

事件营销

阅读薄薄的马可·奥勒留·安东尼(121—180)的《沉思录》，本来是对古希腊罗马哲学感兴趣，或者对伦理学感兴趣的人的分内事，也许还是无聊乱读书的寂寞事。但近几个季度来这本书的阅读成为一个事件：新加坡联合早报11月21日网讯、中评社香港11月21日电、中国日报网环球在线三家媒体最早传递给我们：《沉思录》是温家宝总理的枕边书。据报道，温总理11月20日在新加坡会见中国驻新使馆人员和中资机构代表时说：“那些曾经赫赫有名的人物都到哪里去了，他们像一缕青烟消失了。”这句话是罗马帝国凯撒马可·安东尼讲的。他写过一本书叫《沉思录》。这是书中最经典的一句话。这本书天天放在我的床头，我可能读了有100遍，天天都在读。

该消息在网上被广为传扬，引发热议。总是被媒体塑造为日理万机的大国总理，竟如此钟爱一本哲学书，直让人想起赵普“半部《论语》治天下”的话头来。中央编译出版社适时地推出《沉思录》，在封面上直接引用新闻以及新闻标题，直截地告诉我们尊敬的领导人在

第8章 模和块BAV序程设计1

gxz1729110h1x1@6.3com1

第8 模块章和 章模 和VBA程序块设计 程序计设本章要求: 本要章求：1、了V解B编A环境程 、;了 编解环程境 编；程环境 、2握掌BV编A程础基：常，变量量，达表式 、;掌握编 基础：程 程编础 基常量变量，,表达式； 3、握掌序顺制控选，控制，择环控循 制、握顺掌控制，选择序控制，4、 解了BA模V 、了解 块块模

本章点：要 章本要：点掌顺握控制序选择，控，制 掌顺序握控制选择，制控循，环制控学时排安：学时 安排:6时(学理论+)6时(学实践) 学(理时论+6)时(学践)实学 时2zg1972x0111xh163@.cmo

第8 章块和模 模块和章VA程B序计 程序设计● 设模的概念 块●V A程B序计设础 基● 常标准函数用● VBA的程序构 ● V结BA的据数库程编 ●过调用和参数程递

3

zgx传1720111hx91@36c.om

第章8模块 章和 模和VBA程块序计设 序程计在A设cecss统中系把宏、,窗和报表等对象结体 合起来，不编用程写序码代就可建立以能较功善 完数的库据管系理统但宏。的能功有局是性限的它， 只处理能些简单一操的，如作要果实功现强

第8章 模和块BAV序程设计1

gxz1729110h1x1@6.3com1

第8 模块章和 章模 和VBA程序块设计 程序计设本章要求: 本要章求：1、了V解B编A环境程 、;了 编解环程境 编；程环境 、2握掌BV编A程础基：常，变量量，达表式 、;掌握编 基础：程 程编础 基常量变量，,表达式； 3、握掌序顺制控选，控制，择环控循 制、握顺掌控制，选择序控制，4、 解了BA模V 、了解 块块模

本章点：要 章本要：点掌顺握控制序选择，控，制 掌顺序握控制选择，制控循，环制控学时排安：学时 安排:6时(学理论+)6时(学实践) 学(理时论+6)时(学践)实学 时2zg1972x0111xh163@.cmo

第8 章块和模 模块和章VA程B序计 程序设计● 设模的概念 块●V A程B序计设础 基● 常标准函数用● VBA的程序构 ● V结BA的据数库程编 ●过调用和参数程递

3

zgx传1720111hx91@36c.om

第章8模块 章和 模和VBA程块序计设 序程计在A设cecss统中系把宏、,窗和报表等对象结体 合起来，不编用程写序码代就可建立以能较功善 完数的库据管系理统但宏。的能功有局是性限的它， 只处理能些简单一操的，如作要果实功现强

它是来响应你在组合框里选择的事件函数。

void CEXERCISE1Dlg::OnSelchangeCombo1() {

int bnt,receivenum; CString anyview;

bnt = m_list.GetCurSel(); if (bnt != CB_ERR) {

m_list.GetLBText(bnt,m_test);

receivenum = m_list.GetItemData(bnt); anyview.Format(\m_test2 = anyview; UpdateData(FALSE); } else {

MessageBox(\您未选中任何一项！\} }

3、注意的是：m_list为组合框的一个成员变量，类型为：CComoboBox. m_test和m_test2为两个编辑框的成员变量，类型为：CString。

消息触发事件

ON_CBN_SELENDOK

當應用程式接收 CBN_SELCHANGE 通知訊息時，尚未更新下拉式方塊的編輯/靜態部份。若要取得新的選取範圍，傳送 CB_GETLBTEXT 訊息至下拉式方塊控制項。這封郵件會放在新的選取範圍的文字中指定的緩衝區。下

第9章 模块与VBA程序设计_习题

一、选择题

1．模块是存储代码的容器，其中窗体就是一种（ ）。A

A．类模块 B．标准模块 C．子过程 D．函数过程 2．使用Dim声明变量，若省略“As类型”，则所创建的变量默认为（ ）。C A．Integer B．String C．Variant D．不合法变量 3．函数Len(\数据库\的值是（ ）。A

A．9 B．12 C．15 D．18

4．函数Right(Left(Mid(\Access_DataBase\,10,3),2),1)的值是（ ）。A A．a B．B C．t D．空格 5．在下列逻辑表达式中，能正确表示条件“m和n至少有一个为偶数”的是（ ）。C

A．m Mod 2 = 1 Or n Mod 2 = 1 B．m Mod 2 = 1 And n Mod 2 = 1 C．m Mod 2 = 0 Or n M

Excel-VBA操作文件方法总结

一、利用Excel对象来处理文件 ......................................................................................... 4 1、打开Excel文件 ........................................................................................................... 4 2、打开文本文件 ............................................................................................................. 4 3、打开其他文件 ............................................................................................................. 5 4、保存文件 ...............................