返回首页
- 或代码
- 文章
- 平台，框架和库
- .NET Framework
智能标记控制设计（扩展设计时支持）
{S0}简介
本文提供了一个基类，帮助开发人员构建定制的扩展设计时，通过智能标记设计师面板组件和控制。如何使用这个助手类（基地）
您可以很容易地定义您的自定义智能标记面板，包含你的行动清单项目（属性，方法（动词）和文本）。下面是一个示例控制来自TextBox控制项，并使用自定义设计（mySmartTagActionList）。该项目被添加在AddActionItems（）方法。应界定在您的SmartTagActionList从SmartTagActionListBase类派生的类，这是您要添加任何属性或方法。
在这里是必要的步骤来创建自定义控件设计师:定义您的控制（或组件）类（如XTextBox）定义DesignerActionList类继承从SmartTagActionListBase。这部分的代码也应该插入到它的身体:Public Class mySmartTagActionList1
Inherits SmartTagActionListBase
'this variable is used to cache a reference
'to the associated control in this class
Private m_Control As XTextBox
Sub New(ByVal component As IComponent)
MyBase.New(component)
'Me.AutoShow = True
'AutoExpand this designer whenever user drag it to the Form
m_Control = CType(component, XTextBox)
'cache the control assciated to this designer
End Sub
End Class
XTextBox是你的控制类型（或类名）。在这里，m_Control变量是用来缓存稍后使用此设计相关控制的参考。
您可能还可以使用此构造例程Me.AutoShow = TRUE自动扩展（自动显示），用户只要拖动到表单的控制。
定义你想要（例如，背景色，前景色，和IsMultiline，在下面的示例）的属性/方法。有些属性已经定义在基类（SmartTagActionListBase），如:名称，文字，字体，从右至左。
覆盖AddActionItems（）方法来增加您的智慧标签面板的项目（ActionList项目）。您可以使用AddActionProperty，AddActionMethod，AddActionHeader，和AddActionText方法，轻松地做到这一点（见示例代码）。你这样的控制类设计器属性:{C}
mySmartTagActionList是你的SmartTagActionList类的名称。
注意:如果你想定义一个组件（不是一个控制）的设计师，只是使用而不是SmartTagControlDesigner SmartTagComponentDesigner:<Designer(GetType(SmartTagComponentDesigner(Of mySmartTagActionList)))<
下面是一个示例使用一个自定义SmartTagPanel设计器的控制:Imports System.ComponentModel
<Designer(GetType(SmartTagControlDesigner(Of mySmartTagActionList)))> _
Public Class XTextBox
Inherits TextBox
'... customizations
End Class
Public Class mySmartTagActionList
Inherits SmartTagActionListBase
Private m_Control As XTextBox
Sub New(ByVal component As IComponent)
MyBase.New(component)
m_Control = CType(component, XTextBox)
End Sub
Public Property BackColor() As Color
Get
Return m_Control.BackColor
End Get
Set(ByVal value As Color)
Me.SetPropertyByName(m_Control, "BackColor", value)
End Set
End Property
Public Property ForeColor() As Color
Get
Return m_Control.ForeColor
End Get
Set(ByVal value As Color)
Me.SetPropertyByName(m_Control, "ForeColor", value)
End Set
End Property
Public Property IsMultiline() As Boolean
Get
Return m_Control.Multiline
End Get
Set(ByVal value As Boolean)
Me.SetPropertyByName(m_Control, "Multiline", value)
End Set
End Property
Public Sub SwapColors()
Dim c As Color = Me.ForeColor
Me.ForeColor = Me.BackColor
Me.BackColor = c
RefreshDesigner()
End Sub
Public Overrides Sub AddActionItems()
'These properties are already defined
'in base (SmartTagActionListBase) class:
' => Name, Text, Font, RightToLeft
'Other properties/Methods should be defined in current class
AddActionHeader("Main")
AddActionProperty("Name", "Name:", "Main", "")
AddActionProperty("Text", "Text:", "Main", "")
AddActionProperty("Font", "Font:", "Main", "")
AddActionProperty("IsMultiline", "Multiline:", "", "")
AddActionHeader("Colors")
AddActionProperty("ForeColor", "ForeColor:", _
"Colors", "Sets the ForeColor")
AddActionProperty("BackColor", "BackColor:", _
"Colors", "Sets the BackColor")
AddActionText("This is my info...", "Colors")
AddActionMethod("SwapColors", "Swap Colors", _
"Colors", "Swap ForeColor/BackColor", True)
End Sub
End Class
你可以看到这篇文章:{A}，营造UITypeEditor的的轻松。一个"编辑器"相关的属性，但一个"设计师"是关系到一个控件或组件（A类）！通过UITypeEditors手段，可以提供一个定制的编辑器窗口（例如，一个下拉窗口）编辑控件的每个属性。您可能混合的"设计"和"编辑器"的属性，以达到更好的设计时的组件和控件扩展。
这是为什么，我可以不使用它
