|
.ListEmployee(prEntRes.ObjectId,
saEmployeeList)
If (saEmployeeList.Length = 4) Then
tb_Name.Text =
saEmployeeList(0)
tb_Salary.Text =
saEmployeeList(1)
tb_Division.Text = saEmployeeList(2)
End If
17) 加入上面的代码，它会在窗体的编辑框中显示雇员的详细信息。
在开始测试代码之前，我们还要记住的是代码是在有模式对话框中运行的，也就意味着当对话框可见的时候用户与AutoCAD的互操作是被禁止的。在用户能够进行选择雇员对象之前，我们必须隐藏窗体。当选择结束后，我们可以再次站窗体显示（例如，可以在finally块的函数中）
18) 在选择之前加入隐藏窗体的代码（例如在try块之前） ‘this.Hide’ 和选择结束后显示窗体的代码（例如，可以在finally块中）‘this.Show’。
编译、装载并在AutoCAD中运行MODALFORM命令来看看对话框是否工作。试试选择一个实体并填充窗体中编辑框的值。
第四部分 在AutoCAD选项对话框中加入页面
本章的最后部分将向你介绍如何定义一个用户控件，这个控件可以被作为一个页面显示在AutoCAD的选项对话框中。我们可以使用这个页面来设置程序运行期间的缺省值。在Employee例子中，我们只是在AsdkClass1类中简单地设置了sDivisionDefault 和sDivisionManager字符串。
19) 在工程中加入另外一个名为‘EmployeeOptions’的用户控件。在控件中加入两个编辑框和标签控件，如下图所示：
使用属性窗口来设置编辑框的属性，设置如下：
<上面的编辑框>
(Name) = tb_EmployeeDivision
Text = <空白>
<下面的编辑框>
(Name) = tb_DivisionManager
Text = <空白>
使用.NET API来显示自定义多页对话框，需要两个步骤。首先，通过传入要调用的成员函数的地址，来知道什么时候选项对话框出现。其次是实现回调函数。传入到回调函数中的第二个参数是一个‘TabbedDialogEventArgs’对象，我们必须使用它来调用‘AddTab’函数。AddTab使用一个标题字符串和一个‘TabbedDialogExtension’对象的实例，此实例封装了我们的窗体（其实是用户控件）。在TabbedDialogExtension的构造函数中，我们输入窗体的实例和回调函数（OnOK, OnCancel 或OnHelp）的地址。
20) 在EmployeeOptions类中，加入一个名为AddTabDialog的public static函数，它会添加一个可供系统调用的事件处理：
Public Shared Sub AddTabDialog()
AddHandler
Application.DisplayingOptionDialog, AddressOf TabHandler
End Sub
在AsdkClass1的Initialize函数中加入调用此函数的代码。因为这个函数是在程序启动的时候调用的（因为类已经实现了IExtensionApplication接口），所以多页对话框就被自动的加载。
20a) 实现一个相同的函数来移除事件处理，使用VB的RemoveHandler关键字。
在这里，你可以看到我们为AutoCAD中的Application 对象的DisplayingOptionDialog事件加入了一个处理函数，此函数会调用‘TabHandler’函数。所以接下来我们要实现这个函数。
21) 加入下面的代码来实现处理函数：
Private
Shared Sub TabHandler(ByVal sender As Object, ByVal e As
Autodesk.AutoCAD.ApplicationServices.TabbedDialogEventArgs)
Dim EmployeeOptionsPage As EmployeeOptions = New EmployeeOptions()
e.AddTab("Acme Employee Options", _
New TabbedDialogExtension( _
EmployeeOptionsPage, _
New TabbedDialogAction(AddressOf EmployeeOptionsPage.OnOk)))
End Sub
我们首先实例化了一个EmployeeOptions对象。然后调用e.AddTab()，在这个函数中传入了一个TabbedDialogExtension的实例。TabbedDialogExtension的构造函数使用了EmployeeOptionsPage实例和一个TabbedDialogAction对象。TabbedDialogAction对象的参数可以是Ok, Cancel 或Help回调函数。在这个函数中，我们使用的是OK。
22) 现在剩下的就是确定回调函数的内容，也就是ONOK的内容。前面已经说过了，我们只要设置AsdkClass1的static成员，也就是设置tb_DivisionManager 和tb_EmployeeDivision编辑框中的值。下面是代码：
Public
Sub OnOk()
AsdkClass1.sDivisionDefault = tb_EmployeeDivision.Text
AsdkClass1.sDivisionManager = tb_DivisionManager.Text
End
Sub
编译、装载并选择AutoCAD的选项菜单项来看一下我们的自定义对话框。试试设置对话框中的值并实例化一个雇员。你可以使用PRINTOUTEMPLOYEE命令来查看详细信息。
附加的问题：怎样让对话框的编辑框能自动显示为AsdkClass1中的Manager和Division字符串的内容？
上一页 [1] [2] [3] [4]
[C语言系列]NET 中C#的switch语句的语法 [系统软件]托拽Explore中的文件到VB.net的窗口
[系统软件]Boost库在XP+Visual C++.net中的安装 [常用软件]新配色面板：Paint.Net3.0RC1官方下载
[常用软件]用内建的“Net Meeting”聊天 [VB.NET程序]Henry的VB.NET之旅（三）—共享成员
[VB.NET程序]Henry的VB.NET之旅（二）—构造与析构 [VB.NET程序]Henry的VB.NET之旅（一）—失踪的窗体
[VB.NET程序]在托盘上显示Balloon Tooltip（VB.NET） [VB.NET程序]Henry手记－VB.NET中动态加载Treeview节点（二）
| 
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
