Partial Class ContactsVC _ Public Sub New(ByVal Container As System.ComponentModel.IContainer) MyClass.New() 'Required for Windows.Forms Class Composition Designer support Container.Add(Me) End Sub 'Component overrides dispose to clean up the component list. _ Protected Overrides Sub Dispose(ByVal disposing As Boolean) If disposing AndAlso components IsNot Nothing Then components.Dispose() End If MyBase.Dispose(disposing) End Sub 'Required by the Component Designer Private components As System.ComponentModel.IContainer 'NOTE: The following procedure is required by the Component Designer 'It can be modified using the Component Designer. 'Do not modify it using the code editor. _ Private Sub InitializeComponent() Me.aCreateActivityContacts = New DevExpress.ExpressApp.Actions.SimpleAction() Me.aContacts_ChangeGroup = New DevExpress.ExpressApp.Actions.PopupWindowShowAction() Me.aCreateEmailSendQueue = New DevExpress.ExpressApp.Actions.PopupWindowShowAction() Me.aContactEmailToClipboard = New DevExpress.ExpressApp.Actions.SimpleAction() Me.aClearClipboard = New DevExpress.ExpressApp.Actions.SimpleAction() ' 'aCreateActivityContacts ' Me.aCreateActivityContacts.Caption = "Create Activity Contacts" Me.aCreateActivityContacts.ConfirmationMessage = Nothing Me.aCreateActivityContacts.Id = "aCreateActivityContacts" Me.aCreateActivityContacts.TargetViewId = "Contacts_CRM_Leads_Activity_ListView" Me.aCreateActivityContacts.ToolTip = Nothing ' 'aContacts_ChangeGroup ' Me.aContacts_ChangeGroup.AcceptButtonCaption = Nothing Me.aContacts_ChangeGroup.CancelButtonCaption = Nothing Me.aContacts_ChangeGroup.Caption = "aContacts_ChangeGroup" Me.aContacts_ChangeGroup.Category = "" Me.aContacts_ChangeGroup.ConfirmationMessage = Nothing Me.aContacts_ChangeGroup.Id = "aContacts_ChangeGroup" Me.aContacts_ChangeGroup.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects Me.aContacts_ChangeGroup.TargetObjectType = GetType(Nuvolar.[Module].Contacts) Me.aContacts_ChangeGroup.ToolTip = Nothing ' 'aCreateEmailSendQueue ' Me.aCreateEmailSendQueue.AcceptButtonCaption = Nothing Me.aCreateEmailSendQueue.CancelButtonCaption = Nothing Me.aCreateEmailSendQueue.Caption = "aCreateEmailSendQueue" Me.aCreateEmailSendQueue.ConfirmationMessage = Nothing Me.aCreateEmailSendQueue.Id = "aCreateEmailSendQueue" Me.aCreateEmailSendQueue.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects Me.aCreateEmailSendQueue.TargetObjectType = GetType(Nuvolar.[Module].Contacts) Me.aCreateEmailSendQueue.TargetViewType = DevExpress.ExpressApp.ViewType.ListView Me.aCreateEmailSendQueue.ToolTip = Nothing Me.aCreateEmailSendQueue.TypeOfView = GetType(DevExpress.ExpressApp.ListView) ' 'aContactEmailToClipboard ' Me.aContactEmailToClipboard.Caption = "aContact Email To Clipboard" Me.aContactEmailToClipboard.ConfirmationMessage = Nothing Me.aContactEmailToClipboard.Id = "aContactEmailToClipboard" Me.aContactEmailToClipboard.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects Me.aContactEmailToClipboard.TargetObjectType = GetType(Nuvolar.[Module].Contacts) Me.aContactEmailToClipboard.TargetViewType = DevExpress.ExpressApp.ViewType.ListView Me.aContactEmailToClipboard.ToolTip = Nothing Me.aContactEmailToClipboard.TypeOfView = GetType(DevExpress.ExpressApp.ListView) ' 'aClearClipboard ' Me.aClearClipboard.Caption = "aClear Clipboard" Me.aClearClipboard.ConfirmationMessage = Nothing Me.aClearClipboard.Id = "aClearClipboard" Me.aClearClipboard.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects Me.aClearClipboard.TargetObjectType = GetType(Nuvolar.[Module].Contacts) Me.aClearClipboard.TargetViewType = DevExpress.ExpressApp.ViewType.ListView Me.aClearClipboard.ToolTip = Nothing Me.aClearClipboard.TypeOfView = GetType(DevExpress.ExpressApp.ListView) ' 'ContactsVC ' Me.Actions.Add(Me.aCreateActivityContacts) Me.Actions.Add(Me.aContacts_ChangeGroup) Me.Actions.Add(Me.aCreateEmailSendQueue) Me.Actions.Add(Me.aContactEmailToClipboard) Me.Actions.Add(Me.aClearClipboard) End Sub Friend WithEvents aCreateActivityContacts As DevExpress.ExpressApp.Actions.SimpleAction Friend WithEvents aContacts_ChangeGroup As DevExpress.ExpressApp.Actions.PopupWindowShowAction Friend WithEvents aCreateEmailSendQueue As DevExpress.ExpressApp.Actions.PopupWindowShowAction Friend WithEvents aContactEmailToClipboard As DevExpress.ExpressApp.Actions.SimpleAction Friend WithEvents aClearClipboard As DevExpress.ExpressApp.Actions.SimpleAction End Class