使用属性窗口设置三个编辑框的属性。设置如下：

<首先是最上面的编辑框>

(Name)    = tb_Name

Text = <请输入一个名字>

<第二个编辑框>

(Name) = tb_Division

Text = Sales

<第三个编辑框>

(Name) = tb_Salary

Text = <请输入薪水>

要使用.NET API实例化一个面板对象，你必须要实例化用户控件对象（无模式窗体）和‘PaletteSet’对象。调用PaletteSet的成员函数Add来传递用户控件对象。

5)   接下来，我们要加入一个命令来创建面板。在类中加入一个名为CreatePalette的函数和CommandMethod属性来定义名为“PALETTE”的命令。

请看一下下面的代码块。这是实例化面板的代码。

  ps = New Autodesk.AutoCAD.Windows.PaletteSet("Employee Palette”)

Dim myForm As ModelessForm = New ModelessForm()

ps.Add("Employee Palette", myForm)

ps.MinimumSize = New System.Drawing.Size(300, 300)

ps.Visible = True

6)  把上面的代码加入到CreatePalette()函数。‘ps’需要在函数的外部声明：

Dim ps As Autodesk.AutoCAD.Windows.PaletteSet = Nothing

在函数的实例化面板代码之前加入检查ps是否为null的代码。

编译并运行工程。在AutoCAD中装载组件，运行‘PALETTE’命令来检查面板是否被装载。

使用PaletteSet.Style来看看PaletteSetStyles对象。例如：

ps.Style = PaletteSetStyles.ShowTabForSingle

我们也可以试试诸如透明性的属性，例如：

ps.Opacity = 65

注意：要使用PaletteSet 和PaletteSetStyles对象，你必须加入两个命名空间Autodesk.AutoCAD.Windows和Autodesk.AutoCAD.Windows.Palette

在我们继续之前，让我们执行一个快速的维护更新：请在AsdkClass1类中加入下列成员：

    Public Shared sDivisionDefault As String = "Sales"

    Public Shared sDivisionManager As String = "Fiona Q. Farnsby" ‘ for this, you can chose any name you like

这些值将被用作为部门和部门经理的缺省值。由于它们被声明为’static’，它们在每个程序中只实例化一次，并在组件装载的时候实例化。

第2a部分　在无模式窗体中加入拖放支持

在这部分，我们将加入允许我们使用面板窗体中编辑框的值来创建一个雇员。当用户从面板中拖动到AutoCAD中，将会提示输入职位，一个新的雇员实体将使用这些值来进行创建。

7)　　为了支持拖放，我们首先需要一个对象来进行拖动。在编辑框的下面，另外加入一个名为DragLabel的标签控件，设置标签的文本为一些提示性的东西（‘Drag to Create Employee’）。通过这个标签，我们可以在AutoCAD中处理拖放。

要捕捉到什么时候拖动事件发生，我们必须要知道什么时候鼠标开始操作。

首先，你要注意的是缺省地DragLabel被声明为‘WithEvents’，这允许DragLabel对象可以接收影响它的事件通知，包括我们感兴趣的‘MouseMove’在内。

8)    在ModelessForm类中加入下面的函数声明：

Private Sub DragLabel_MouseMove()

现在在‘Handles DragLabel.’ 后面加入点来看智能提示:

Private Sub _ DragLabel_MouseMove()Handles DragLabel.

可以看到我们可以选择的所有事件。找到‘MouseMove’并把它加入。在MouseMove 事件下面有一行蓝色的东西（智能提示），因为它们的形式不一样。通常，事件处理使用两个参数，一个object类的sender和与事件有关的参数。对于MouseMove，我们也要做同样的事情。改变函数的声明来接收 ‘sender’ 和 ‘e’。

    Private Sub DragLabel_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles DragLabel.MouseMove

    End Sub

运行这个工程，检查一下当鼠标经过文本的时候，函数是否被调用的。

我们还可以进一步知道是不是按了鼠标左键:

If (System.Windows.Forms.Control.MouseButtons = System.Windows.Forms.MouseButtons.Left) Then

End If

我们需要一个方法来检测什么时候对象被拖入到AutoCAD。我们可以使用.NET的基类DropTarget来实现。要使用它，你只要创建从这个基类派生的类并实现你想要的函数。在我们这个例子中，我们需要的是OnDrop()。

9)    在工程中加入一个从Autodesk.AutoCAD.Windows.DropTarget派生的类‘MyDropTarget’。如果你把这个类加入到ModelessForm.cs文件中，请把这个类加入到ModelessForm类之后。

上一页  [1] [2] [3] [4]  下一页