Smart Client Software Factory:扩展工具栏，加入新视图(View)

首先在Module项目下的ModuleController.vb

这个ModuleController类在生成时有一个空方法

Private Sub ExtendToolStrip() 'TODO: add new items to the ToolStrip in the Shell. See the UIExtensionSites collection in the WorkItem. ' End Sub 

从名字看就知道是扩展工具栏，因为SCSF主窗体的工具栏菜单是动态生成的，所以当我们需要有自己的工具栏时，要实现该方法.

 

第一步:首先在Constant文件夹下CommandNames.vb中定义几个常量

Namespace Constants ''' <summary> ''' Constants for command names. ''' </summary> Public Class CommandNames Inherits Infrastructure.Interface.Constants.CommandNames '********************************** Public Const AdminForm As String = "Administration" '********************************** Public Const EventLogForm As String = "Event Log" '********************************** End ClassEnd Namespace 

 

第二步:在基类WorkItemController中注册运行子窗体的函数

 

''' <summary> ''' Registers the launch point. ''' </summary> ''' <param name="text">The text.</param> ''' <param name="commandName">Name of the command.</param> ''' <param name="icon">The icon.</param> ''' <param name="hasAccess">if set to <c>true</c> [has access].</param> ''' <param name="siteName">Name of the site.</param> ''' <param name="toRegister">if set to <c>true</c> [to register].</param> Protected Sub RegisterLaunchPoint(ByVal text As String, ByVal commandName As String, Optional ByVal icon As Image = Nothing, Optional ByVal hasAccess As Boolean = True, Optional ByVal siteName As String = Constants.UIExtensionSiteNames.ModulesMenuItems, Optional ByVal toRegister As Boolean = False) Dim element As ToolStripMenuItem = New ToolStripMenuItem() 'ToolStripButton = New ToolStripButton() If Not icon Is Nothing Then element.Image = icon element.TextImageRelation = TextImageRelation.ImageBeforeText 'TextImageRelation.ImageAboveText element.ImageScaling = ToolStripItemImageScaling.None End If element.Text = text element.ToolTipText = text element.Enabled = hasAccess WorkItem.UIExtensionSites(siteName).Add(element) WorkItem.Commands(commandName).AddInvoker(element, "Click") End Sub 

 

第三步：完成ModuleController类的ExtendToolStrip方法

 

Private Sub ExtendToolStrip() 'TODO: add new items to the ToolStrip in the Shell. See the UIExtensionSites collection in the WorkItem. 'See: ms-help://MS.VSCC.v90/MS.VSIPCC.v90/ms.practices.scsf.2008apr/SCSF/html/02-04-340-Showing_UIElements.htm 'Dim user As IUserSecurityService 'RegisterLaunchPoint(My.Resources.ModuleTitle, CommandNames.AdminForm, My.Resources.AdministrationIcon, IsAuthorize, siteName:=UIExtensionSiteNames.AdminModulesMenuItems) RegisterLaunchPoint(My.Resources.ModuleTitle, CommandNames.AdminForm, My.Resources.AdministrationIcon, True, siteName:=UIExtensionSiteNames.AdminModulesMenuItems) RegisterLaunchPoint(My.Resources.EventLogTitle, CommandNames.EventLogForm, My.Resources.i_info, IsAuthorize, siteName:=UIExtensionSiteNames.AdminModulesMenuItems) End Sub 

 

基中UIExtensionSiteNames.AdminModulesMenuItems是定义的一个字符串常量