作者： 老王

‘建立项目(Project)，创制如图级联菜单，分别命名为mnuMain、mnuWork、mnuExit。

Option Explicit
Private Type NOTIFYICONDATA
cbSize As Long
hWnd As Long
uID As Long
uFlags As Long
uCallbackMessage As Long
hIcon As Long
szTip As String * 64
End Type
Dim tnid As NOTIFYICONDATA
Private Const NIM_ADD = &H0
Private Const NIM_MODIFY = &H1
Private Const NIM_DELETE = &H2
Private Const NIM_MOUSEMOVE = &H200
Private Const NIF_MESSAGE = &H1
Private Const NIF_ICON = &H2
Private Const NIF_TIP = &H4
Private Const DOUBLE_CLICK_LEFT = &H203
Private Const BUTTON_LEFT_DOWN = &H201
Private Const BUTTON_LEFT_UP = &H202
Private Const DOUBLE_CLICK_RIGHT = &H206
Private Const BUTTON_RIGHT_DOWN = &H204
Private Const BUTTON_RIGHT_UP = &H205
Private Declare Function Shell_NotifyIcon Lib “shell32” Alias “Shell_NotifyIconA” (ByVal dwMessage As Long, pnid As NOTIFYICONDATA) As Boolean

Private Sub Form_Load()
tnid.cbSize = Len(tnid)
tnid.hWnd = Me.hWnd
tnid.uID = 1&
tnid.uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE
tnid.uCallbackMessage = NIM_MOUSEMOVE
tnid.hIcon = Me.Icon
tnid.szTip = “系统托盘样例” & Chr$(0)
Shell_NotifyIcon NIM_ADD, tnid
Me.Hide
App.TaskVisible = False
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
‘为相应事件添加对应代码
Dim MSG As Long
MSG = X / Screen.TwipsPerPixelX ‘512
Select Case MSG
Case DOUBLE_CLICK_LEFT ‘515

Case BUTTON_LEFT_DOWN ‘513
OpenForm Me
Case BUTTON_LEFT_UP ‘514

Case DOUBLE_CLICK_RIGHT ‘518

Case BUTTON_RIGHT_DOWN ‘516

Case BUTTON_RIGHT_UP ‘517
PopupMenu mnuMain, , , , mnuWork
End Select
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
EndApp
End Sub

Private Sub Form_Resize()
If Me.WindowState = 1 Then
Me.Hide
App.TaskVisible = False
End If
End Sub

Private Sub mnuExit_Click()
EndApp
End Sub

Private Sub EndApp()
Unload Me
tnid.cbSize = Len(tnid)
tnid.hWnd = Me.hWnd
tnid.uID = 1&
Shell_NotifyIcon NIM_DELETE, tnid
End
End Sub

Private Sub OpenForm(ByVal frmShow As Form)
frmShow.Show
App.TaskVisible = True
End Sub

DXF的基本惯例

DXF格式是特定版本AutoCAD图形文件中所包含的全部信息的标记数据的一种表示方法。

标记数据的意思是指在每个数据元素前都带一个称为组码的整数。组码的值表明了其后数据元素的类型，也指出了数据元素对于给定对象（或记录）类型的含意。实际上，图形文件中所有用户指定的信息都能够以DXF文件格式表示。在AutoLISP和ARX应用程序中使用的DXF格式与上述格式基本相同，只是在某些数据组上存在着细微的差别。

如不作特殊说明，本节中所出现的组码都可以应用于DXF文件、AutoLISP应用程序和ARX应用程序。当组码说明对于应用程序和DXF文件有所不同时（或只适用于其中之一），在组码的说明前有如下提示符：

APP只用于应用程序的说明

DXF只用于DXF文件的说明

如果组码说明对DXF文件和应用程序都适用，那么没有提示符；否则将显示适当的提示符。

组码范围

组码将与组码关联的值（组值）定义为整型、浮点数型或字符串型。具体说明如下表：

组码范围   组码范围组值类型

0-9                                    字符串（最多255个字符，对于UNICODE字符串则更少）

10-59                     双精度三维点

60-79                     16位整数值

90-99                     32位整数值

100                                    字符串（最多255个字符，对于UNICODE字符串则更少）

102                                    字符串（最多255个字符，对于UNICODE字符串则更少）

105                                    表示十六进制句柄值的字符串

140-147                 双精度标量浮点值

170-175                 16位整数值

280-289                 8位整数值

300-309                 任意文字字符串

310-319                 表示二进制数据组的十六进制值的字符串

320-329                 表示十六进制句柄值的字符串

330-369                 表示十六进制对象标识符的字符串

999                                    注释（字符串）

1000-1009  字符串（最多255个字符；对于UNICODE字符串则更少）

1010-1059  浮点值

1060-1070  16位整数值

1071                      32位整数值

按数字次序排列的组码

下表给出了组码（或组码范围）及其说明。在表中，“固定”表示该组码的用途固定不变，非固定组码的用途将随上下文变化。

按数字次序排列的图元组码

组码说明

-5APP：persistentreactor链表

-4APP：条件运算符（仅用于ssget）

-3APP：扩展数据(XDATA)标记（固定）

-2APP：图元名引用（固定）

-1APP：图元名。每次打开图形时它都改变，且不被保存。（固定）

0   表示图元类型的文字字符串（固定）

1   图元的主要文字值

2   名称（属性标记、块名称等）

3-4            其他的文字值或名称值

5   图元句柄。最多16位十六进制数字的文字字符串（固定）

6               线型名（固定）

7               文字样式名（固定）

8               图层名（固定）

9               DXF：变量名标识符（仅用于DXF文件的HEADER区域）。

10              主要点。此点为直线或文字图元的起点，圆的圆心等等。

DXF：主要点的X值（其后为Y和Z值的组码20和30）

APP：三维点（三个实数构成的表）

11-18         其他点。

DXF：其他点的X值（其后为Y和Z值的组码21-28和31-38）

APP：三维点（三个实数构成的表）

20,30         DXF：主要点的Y和Z值

21-28,

31-37         DXF：其他点的Y和Z值

38              DXF：如果非零，则为图元的标高。只在R11以前的AutoCAD输出的DXF文件中存在

39              如果非零，则为图元的厚度（固定）

40-48         浮点值（文字高度、比例因子等）

48              线型比例。浮点标量值。缺省值适用于所有图元类型。

49              可重复的浮点值。一个图元中的可变长度表（例如LTYPE表中的虚线长度）中可出现多个组码49。组码7x总是在第一个组码49前出现，用于指定表的长度。

50-58         角度（在DXF文件中单位为度，在AutoLISP和ARX应用程序中单位为弧度）。

60              表示图元可见性的整数值。不赋值或值为0时表示可见；为1时表示不可见。

62              颜色代码（固定）

66              “图元跟随”标志（固定）

67              空间，即模型空间或图纸空间（固定）

68              APP：表示视口打开但不可见、未激活或者关闭。

69              APP：视口标识数字。

70-78         整数值，如重复部分的计数器、标志位或模式等。

90-99         32位整数值

100                        子类数据标记（把继承下来的类名当作字符串）。由具体类继承下来的所有对象和图元类都必须有此项。此标记用于分离某个对象中由不同的类定义的数据。它也满足从ARX继承下来的每个独立的具体类的DXF命名需要（请参见子类标记!AL(`XREF_11832_al_u05_c’,1)）。

102                        控制字符串，其后为“{<任意名称>”或”}”。除了字符串必须以”{“开始外，它与外部数据组码1002类似。其后可跟任意字符串，且此字符串的解释取决于应用程序。另一个可用的控制字符串为”}”，它标识组的结束。如上所述，除了在执行图形核查操作期间外AutoCAD一般不解释这些字符串；它们仅用于应用程序。

105                        DIMVAR符号表条目对象句柄。

210                        拉伸方向（固定）。

DXF：拉伸方向的X值

APP：三维拉伸方向矢量

220,230      DXF：拉伸方向的Y和Z值

280-289     8位整数值

300-309     任意的文字字符串

310-319     任意二进制数据组，与组码1004具有相同表示法和限制：最长为254个字符的十六进制字符串表示最长为127个字节的数据数据组。

320-329     任意对象句柄。句柄值保留原样，在执行INSERT和XREF操作时它们不被转化。

330-339     软键指针句柄。任意指向同一DXF文件或图形中的其他对象的软键指针，在执行INSERT和XREF操作时被转化。

340-349     硬键指针句柄。任意指向同一DXF文件或图形中的其他对象的硬键指针，在执行INSERT和XREF操作时被转化。

350-359     软键从属句柄。链接到同一DXF文件或图形中其他对象的任意软键从属链接，在执行INSERT和XREF操作时被转化。

360-369     硬键从属句柄。链接到同一DXF文件或图形中其他对象的任意硬键从属链接，在执行INSERT和XREF操作时被转化。

999                        DXF：999组码表示其后为注释字符串行。DXFOUT不在DXF输出文件中包括此组；DXFIN能识别词组码，但忽略其后的注释。通过999组码，用户可以在所编辑的DXF文件中包括注释。

1000          扩展数据中的ASCII字符串（最长255个字节）。

1001          扩展数据的已注册应用程序名（ASCII字符串，最长31个字节）。

1002          扩展数据控制字符串（”{“或”}”）。

1003          扩展数据图层名。

1004          扩展数据中的字节数据组（最长127字节）。

1005          扩展数据中的图元句柄。文字字符串，最多16位十六进制数字。

1010          扩展数据中的点

DXF：X值（其后跟组码1020和1030）

APP：三维点

1020,1030  DXF：点的Y和Z值

1011                      扩展数据中的三维世界空间位置：X值（其后跟组码1021和1031）：三维点

1021,1031  DXF：世界空间位置的Y和Z值。

1012          扩展数据中的三维世界空间位移：X值（其后跟组码1022和1032）：三维矢量

1022,1032  DXF：世界空间位移的Y和Z值

1013          扩展数据中的三维世界空间方向

DXF：X值（其后跟组码1022和1032）

APP：三维矢量

1023,1033  DXF：世界空间方向的Y和Z值

1040          扩展数据浮点值。

1041          扩展数据距离值。

1042          扩展数据比例因子。

1070          扩展数据16位符号整数。

1071          扩展数据32位符号整数。

对象和图元的组码

在DXF格式中，对象的定义与图元的定义不同：图元有图形表示，而对象则没有图形表示。例如，词典是对象而不是图元。对象通常作为非图形对象来使用，图元则作为图形对象来使用。

在DXF文件中，图元可以出现在BLOCK和ENTITIESE区域中。两个区域中图元的用法一样。某些定义图元的组码始终会出现，而其他的组码仅在它们的值与缺省值不同时才出现。

读取DXF文件的程序不应该假定说明图元的组码是按照给定次序出现的。与说明图元的组码相连的0组码表示此图元已结束。0组码将开始新图元或表示此区域已结束。 注意如果用户以表驱动方式（即忽略未定义的组码，且对图元中的组码次序不做任何假定）编写DXF处理程序，那么该程序将比较容易针对AutoCAD的后续版本做调整。因为AutoCAD的性能将不断得到增强，所以图元中将添加一些新的组码以提供更多的功能。

理解Word的对象模型是对其编程的基础，Word以层次结构组织对象。

Word提供了数百个可与之交互的对象。这些对象排列在一个与用户界面密切相关的层次结构中。层次结构如图所示，顶部的对象是Application对象。此对象表示Word的当前实例。Application对象包含Document、Selection、Bookmark和Range对象。这些对象各自都有很多方法和属性，可以访问这些方法和属性来操作对象或与对象交互。图中存在许多重叠，是因为可以通过多种方式来访问相同类型的对象。

Application对象表示Word应用程序，是其他所有对象的父级。它的所有成员通常作为一个整体应用于 Word。可以使用该对象的属性和方法来控制Word环境。在应用程序级外接程序项目中，您可以使用ThisAddIn类的Application字段访问Application对象。在文档级项目中，可以使用ThisDocument类的Application属性访问Application对象。

Document对象是Word编程的中枢。它表示文档及其所有内容。当打开文档或创建新文档时，就创建了新的Document对象，该对象被添加到Application对象的Documents集合中。具有焦点的文档称为活动文档。它由Application对象的ActiveDocument属性表示。

Selection对象表示当前选择的区域。在Word用户界面中执行某项操作（例如，对文本进行加粗）时，应首先选择或突出显示文本，然后应用格式设置。Selection对象始终存在于文档中。如果未选中任何对象，它表示插入点。此外，所选内容可以包含多个不连续的文本块。

Range对象表示文档中的一个连续的区域，由一个起始字符位置和一个结束字符位置定义。Range对象的数量并不局限于一个。可以在同一文档中定义多个Range对象。

更多信息参见 Office VBA Reference。