VS中的设计器问题：无法在传递给事件绑定服务的对象上设置事件

时间：2010-12-22 15:39:52

标签： .net wpf visual-studio winforms designer

我有一点问题：Winform控件（包含其他WPF之间）突然停止在Designer中显示。

alt text

消息：

  

无法在对象上设置事件   传递给事件绑定服务   因为一个网站与之关联   无法找到对象。

调用堆栈：

  

在   System.ComponentModel.Design.EventBindingService.EventPropertyDescriptor.SetValue（对象   组件，对象值）at   System.ComponentModel.Design.Serialization.CodeDomSerializerBase.DeserializeAttachEventStatement（IDesignerSerializationManager   经理，CodeAttachEventStatement   声明）   System.ComponentModel.Design.Serialization.CodeDomSerializerBase.DeserializeStatement（IDesignerSerializationManager   经理，CodeStatement声明）

哪里可能是问题？

InitializeComponent代码

Private Sub InitializeComponent()
    Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(PlanDeLigne))
    Dim Appearance1 As Infragistics.Win.Appearance = New Infragistics.Win.Appearance()
    Dim Appearance2 As Infragistics.Win.Appearance = New Infragistics.Win.Appearance()
    Dim Appearance3 As Infragistics.Win.Appearance = New Infragistics.Win.Appearance()
    Dim Appearance4 As Infragistics.Win.Appearance = New Infragistics.Win.Appearance()
    Dim Appearance5 As Infragistics.Win.Appearance = New Infragistics.Win.Appearance()
    Dim Appearance6 As Infragistics.Win.Appearance = New Infragistics.Win.Appearance()
    Dim Appearance7 As Infragistics.Win.Appearance = New Infragistics.Win.Appearance()
    Dim Appearance8 As Infragistics.Win.Appearance = New Infragistics.Win.Appearance()
    Dim Appearance9 As Infragistics.Win.Appearance = New Infragistics.Win.Appearance()
    Dim Appearance10 As Infragistics.Win.Appearance = New Infragistics.Win.Appearance()
    Dim Appearance11 As Infragistics.Win.Appearance = New Infragistics.Win.Appearance()
    Dim Appearance12 As Infragistics.Win.Appearance = New Infragistics.Win.Appearance()
    Me.mnbMenu = New System.Windows.Forms.ToolStrip()
    Me.mncMode = New System.Windows.Forms.ToolStripComboBox()
    Me.mnbSeparator1 = New System.Windows.Forms.ToolStripSeparator()
    Me.mnbAdd = New System.Windows.Forms.ToolStripButton()
    Me.mnbDelete = New System.Windows.Forms.ToolStripButton()
    Me.mnbSeparator2 = New System.Windows.Forms.ToolStripSeparator()
    Me.mnbDropDownAction = New System.Windows.Forms.ToolStripDropDownButton()
    Me.mnbDropDownActionSens = New System.Windows.Forms.ToolStripMenuItem()
    Me.mnbDropDownActionSeparator1 = New System.Windows.Forms.ToolStripSeparator()
    Me.mnbDropDownActionDistances = New System.Windows.Forms.ToolStripMenuItem()
    Me.mnbDropDownActionSeparator2 = New System.Windows.Forms.ToolStripSeparator()
    Me.mnbDropDownActionArretsPhysiques = New System.Windows.Forms.ToolStripMenuItem()
    Me.mnbSeparator3 = New System.Windows.Forms.ToolStripSeparator()
    Me.mnbSelectionZoom = New System.Windows.Forms.ToolStripButton()
    Me.mnbCancelZoom = New System.Windows.Forms.ToolStripButton()
    Me.mnbSeparator4 = New System.Windows.Forms.ToolStripSeparator()
    Me.mnbParametrage = New System.Windows.Forms.ToolStripButton()
    Me.mncSPlacerArret = New System.Windows.Forms.ToolStripMenuItem()
    Me.mncSSeparator1 = New System.Windows.Forms.ToolStripSeparator()
    Me.mncSImage = New System.Windows.Forms.ToolStripMenuItem()
    Me.mncSDefinirLastArret = New System.Windows.Forms.ToolStripMenuItem()
    Me.mncSSeparator2 = New System.Windows.Forms.ToolStripSeparator()
    Me.mncSSupprimerArrets = New System.Windows.Forms.ToolStripMenuItem()
    Me.mncSInsererArret = New System.Windows.Forms.ToolStripMenuItem()
    Me.mncSSeparator3 = New System.Windows.Forms.ToolStripSeparator()
    Me.mncSInformations = New System.Windows.Forms.ToolStripMenuItem()
    Me.mncSSupprimerSegment = New System.Windows.Forms.ToolStripMenuItem()
    Me.mncSSeparator4 = New System.Windows.Forms.ToolStripSeparator()
    Me.mncSBatirTroncon = New System.Windows.Forms.ToolStripMenuItem()
    Me.mncTInformations = New System.Windows.Forms.ToolStripMenuItem()
    Me.mncTDistances = New System.Windows.Forms.ToolStripMenuItem()
    Me.mncTSeparator1 = New System.Windows.Forms.ToolStripSeparator()
    Me.mncTTempsDeParcours = New System.Windows.Forms.ToolStripMenuItem()
    Me.mncTSeparator2 = New System.Windows.Forms.ToolStripSeparator()
    Me.mncTCreerSensInverse = New System.Windows.Forms.ToolStripMenuItem()
    Me.mncTSeparator3 = New System.Windows.Forms.ToolStripSeparator()
    Me.mncTSupprimerTroncon = New System.Windows.Forms.ToolStripMenuItem()
    Me.mncTBatirItineraire = New System.Windows.Forms.ToolStripMenuItem()
    Me.mncIInformations = New System.Windows.Forms.ToolStripMenuItem()
    Me.mncISeparator1 = New System.Windows.Forms.ToolStripSeparator()
    Me.mncISupprimerItineraire = New System.Windows.Forms.ToolStripMenuItem()
    Me.SplitContainer = New System.Windows.Forms.SplitContainer()
    Me.ElementHost1 = New System.Windows.Forms.Integration.ElementHost()
    Me._StopsCanvas = New Keolis.ctlWpfPlanDeLigne.StopsCanvas()
    Me.lblTitreCreation = New MyNamespace.ctlComponents.Label()
    Me.Panel1 = New System.Windows.Forms.Panel()
    Me.btnOk = New MyNamespace.ctlComponents.Button()
    Me.btnAnnuler = New MyNamespace.ctlComponents.Button()
    Me.grdCreation = New MyNamespace.ctlWinGrid.WinGrid()
    Me.mnbMenu.SuspendLayout()
    CType(Me.SplitContainer, System.ComponentModel.ISupportInitialize).BeginInit()
    Me.SplitContainer.Panel1.SuspendLayout()
    Me.SplitContainer.Panel2.SuspendLayout()
    Me.SplitContainer.SuspendLayout()
    Me.Panel1.SuspendLayout()
    CType(Me.grdCreation, System.ComponentModel.ISupportInitialize).BeginInit()
    Me.SuspendLayout()
    '
    'mnbMenu
    '
    Me.mnbMenu.GripStyle = System.Windows.Forms.ToolStripGripStyle.Hidden
    Me.mnbMenu.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mncMode, Me.mnbSeparator1, Me.mnbAdd, Me.mnbDelete, Me.mnbSeparator2, Me.mnbDropDownAction, Me.mnbSeparator3, Me.mnbSelectionZoom, Me.mnbCancelZoom, Me.mnbSeparator4, Me.mnbParametrage})
    Me.mnbMenu.Location = New System.Drawing.Point(0, 0)
    Me.mnbMenu.Name = "mnbMenu"
    Me.mnbMenu.Size = New System.Drawing.Size(605, 25)
    Me.mnbMenu.TabIndex = 2
    '
    'mncMode
    '
    Me.mncMode.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
    Me.mncMode.Name = "mncMode"
    Me.mncMode.Size = New System.Drawing.Size(121, 25)
    Me.mncMode.ToolTipText = "Mode du plan de ligne"
    '
    'mnbSeparator1
    '
    Me.mnbSeparator1.AutoSize = False
    Me.mnbSeparator1.Name = "mnbSeparator1"
    Me.mnbSeparator1.Size = New System.Drawing.Size(20, 25)
    '
    'mnbAdd
    '
    Me.mnbAdd.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
    Me.mnbAdd.Image = CType(resources.GetObject("mnbAdd.Image"), System.Drawing.Image)
    Me.mnbAdd.ImageTransparentColor = System.Drawing.Color.Magenta
    Me.mnbAdd.Name = "mnbAdd"
    Me.mnbAdd.Size = New System.Drawing.Size(23, 22)
    Me.mnbAdd.Text = "Création Tronçon / Itinéraire"
    '
    'mnbDelete
    '
    Me.mnbDelete.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
    Me.mnbDelete.Image = CType(resources.GetObject("mnbDelete.Image"), System.Drawing.Image)
    Me.mnbDelete.ImageTransparentColor = System.Drawing.Color.Magenta
    Me.mnbDelete.Name = "mnbDelete"
    Me.mnbDelete.Size = New System.Drawing.Size(23, 22)
    Me.mnbDelete.Text = "Supprimer les éléments sélectionnés"
    '
    'mnbSeparator2
    '
    Me.mnbSeparator2.AutoSize = False
    Me.mnbSeparator2.Name = "mnbSeparator2"
    Me.mnbSeparator2.Size = New System.Drawing.Size(20, 25)
    '
    'mnbDropDownAction
    '
    Me.mnbDropDownAction.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
    Me.mnbDropDownAction.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnbDropDownActionSens, Me.mnbDropDownActionSeparator1, Me.mnbDropDownActionDistances, Me.mnbDropDownActionSeparator2, Me.mnbDropDownActionArretsPhysiques})
    Me.mnbDropDownAction.Image = CType(resources.GetObject("mnbDropDownAction.Image"), System.Drawing.Image)
    Me.mnbDropDownAction.ImageTransparentColor = System.Drawing.Color.Magenta
    Me.mnbDropDownAction.Name = "mnbDropDownAction"
    Me.mnbDropDownAction.Size = New System.Drawing.Size(29, 22)
    Me.mnbDropDownAction.Text = "Action sur le plan de ligne"
    '
    'mnbDropDownActionSens
    '
    Me.mnbDropDownActionSens.Checked = True
    Me.mnbDropDownActionSens.CheckOnClick = True
    Me.mnbDropDownActionSens.CheckState = System.Windows.Forms.CheckState.Checked
    Me.mnbDropDownActionSens.Name = "mnbDropDownActionSens"
    Me.mnbDropDownActionSens.Size = New System.Drawing.Size(222, 22)
    Me.mnbDropDownActionSens.Text = "Afficher le sens"
    '
    'mnbDropDownActionSeparator1
    '
    Me.mnbDropDownActionSeparator1.Name = "mnbDropDownActionSeparator1"
    Me.mnbDropDownActionSeparator1.Size = New System.Drawing.Size(219, 6)
    '
    'mnbDropDownActionDistances
    '
    Me.mnbDropDownActionDistances.Checked = True
    Me.mnbDropDownActionDistances.CheckOnClick = True
    Me.mnbDropDownActionDistances.CheckState = System.Windows.Forms.CheckState.Checked
    Me.mnbDropDownActionDistances.Name = "mnbDropDownActionDistances"
    Me.mnbDropDownActionDistances.Size = New System.Drawing.Size(222, 22)
    Me.mnbDropDownActionDistances.Text = "Afficher les distances"
    '
    'mnbDropDownActionSeparator2
    '
    Me.mnbDropDownActionSeparator2.Name = "mnbDropDownActionSeparator2"
    Me.mnbDropDownActionSeparator2.Size = New System.Drawing.Size(219, 6)
    '
    'mnbDropDownActionArretsPhysiques
    '
    Me.mnbDropDownActionArretsPhysiques.Checked = True
    Me.mnbDropDownActionArretsPhysiques.CheckOnClick = True
    Me.mnbDropDownActionArretsPhysiques.CheckState = System.Windows.Forms.CheckState.Checked
    Me.mnbDropDownActionArretsPhysiques.Name = "mnbDropDownActionArretsPhysiques"
    Me.mnbDropDownActionArretsPhysiques.Size = New System.Drawing.Size(222, 22)
    Me.mnbDropDownActionArretsPhysiques.Text = "Afficher les arrêts physiques"
    '
    'mnbSeparator3
    '
    Me.mnbSeparator3.AutoSize = False
    Me.mnbSeparator3.Name = "mnbSeparator3"
    Me.mnbSeparator3.Size = New System.Drawing.Size(20, 25)
    '
    'mnbSelectionZoom
    '
    Me.mnbSelectionZoom.CheckOnClick = True
    Me.mnbSelectionZoom.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
    Me.mnbSelectionZoom.Image = CType(resources.GetObject("mnbSelectionZoom.Image"), System.Drawing.Image)
    Me.mnbSelectionZoom.ImageTransparentColor = System.Drawing.Color.Magenta
    Me.mnbSelectionZoom.Name = "mnbSelectionZoom"
    Me.mnbSelectionZoom.Size = New System.Drawing.Size(23, 22)
    Me.mnbSelectionZoom.Text = "Zoom par sélection"
    '
    'mnbCancelZoom
    '
    Me.mnbCancelZoom.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
    Me.mnbCancelZoom.Image = CType(resources.GetObject("mnbCancelZoom.Image"), System.Drawing.Image)
    Me.mnbCancelZoom.ImageTransparentColor = System.Drawing.Color.Magenta
    Me.mnbCancelZoom.Name = "mnbCancelZoom"
    Me.mnbCancelZoom.Size = New System.Drawing.Size(23, 22)
    Me.mnbCancelZoom.Text = "Annuler le zoom"
    '
    'mnbSeparator4
    '
    Me.mnbSeparator4.AutoSize = False
    Me.mnbSeparator4.Name = "mnbSeparator4"
    Me.mnbSeparator4.Size = New System.Drawing.Size(20, 25)
    '
    'mnbParametrage
    '
    Me.mnbParametrage.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
    Me.mnbParametrage.Image = CType(resources.GetObject("mnbParametrage.Image"), System.Drawing.Image)
    Me.mnbParametrage.ImageTransparentColor = System.Drawing.Color.Magenta
    Me.mnbParametrage.Name = "mnbParametrage"
    Me.mnbParametrage.Size = New System.Drawing.Size(23, 22)
    Me.mnbParametrage.Text = "Paramétrage"
    '
    'mncSPlacerArret
    '
    Me.mncSPlacerArret.Name = "mncSPlacerArret"
    Me.mncSPlacerArret.Size = New System.Drawing.Size(216, 22)
    Me.mncSPlacerArret.Text = "Placer un arrêt"
    '
    'mncSSeparator1
    '
    Me.mncSSeparator1.Name = "mncSSeparator1"
    Me.mncSSeparator1.Size = New System.Drawing.Size(213, 6)
    '
    'mncSImage
    '
    Me.mncSImage.Name = "mncSImage"
    Me.mncSImage.Size = New System.Drawing.Size(216, 22)
    Me.mncSImage.Text = "Image..."
    '
    'mncSDefinirLastArret
    '
    Me.mncSDefinirLastArret.Name = "mncSDefinirLastArret"
    Me.mncSDefinirLastArret.Size = New System.Drawing.Size(216, 22)
    Me.mncSDefinirLastArret.Text = "Définir comme dernier arrêt"
    '
    'mncSSeparator2
    '
    Me.mncSSeparator2.Name = "mncSSeparator2"
    Me.mncSSeparator2.Size = New System.Drawing.Size(213, 6)
    '
    'mncSSupprimerArrets
    '
    Me.mncSSupprimerArrets.Name = "mncSSupprimerArrets"
    Me.mncSSupprimerArrets.Size = New System.Drawing.Size(216, 22)
    Me.mncSSupprimerArrets.Text = "Supprimer le ou les arrêts"
    '
    'mncSInsererArret
    '
    Me.mncSInsererArret.Name = "mncSInsererArret"
    Me.mncSInsererArret.Size = New System.Drawing.Size(216, 22)
    Me.mncSInsererArret.Text = "Insérer un arrêt"
    '
    'mncSSeparator3
    '
    Me.mncSSeparator3.Name = "mncSSeparator3"
    Me.mncSSeparator3.Size = New System.Drawing.Size(213, 6)
    '
    'mncSInformations
    '
    Me.mncSInformations.Name = "mncSInformations"
    Me.mncSInformations.Size = New System.Drawing.Size(216, 22)
    Me.mncSInformations.Text = "Modifier les informations"
    '
    'mncSSupprimerSegment
    '
    Me.mncSSupprimerSegment.Name = "mncSSupprimerSegment"
    Me.mncSSupprimerSegment.Size = New System.Drawing.Size(216, 22)
    Me.mncSSupprimerSegment.Text = "Supprimer le segment"
    '
    'mncSSeparator4
    '
    Me.mncSSeparator4.Name = "mncSSeparator4"
    Me.mncSSeparator4.Size = New System.Drawing.Size(213, 6)
    '
    'mncSBatirTroncon
    '
    Me.mncSBatirTroncon.Name = "mncSBatirTroncon"
    Me.mncSBatirTroncon.Size = New System.Drawing.Size(216, 22)
    Me.mncSBatirTroncon.Text = "Bâtir un tronçon"
    '
    'mncTInformations
    '
    Me.mncTInformations.Name = "mncTInformations"
    Me.mncTInformations.Size = New System.Drawing.Size(201, 22)
    Me.mncTInformations.Text = "Modifier les informations"
    '
    'mncTDistances
    '
    Me.mncTDistances.Name = "mncTDistances"
    Me.mncTDistances.Size = New System.Drawing.Size(201, 22)
    Me.mncTDistances.Text = "Modifier les distances"
    '
    'mncTSeparator1
    '
    Me.mncTSeparator1.Name = "mncTSeparator1"
    Me.mncTSeparator1.Size = New System.Drawing.Size(198, 6)
    '
    'mncTTempsDeParcours
    '
    Me.mncTTempsDeParcours.Name = "mncTTempsDeParcours"
    Me.mncTTempsDeParcours.Size = New System.Drawing.Size(201, 22)
    Me.mncTTempsDeParcours.Text = "Temps de parcours"
    '
    'mncTSeparator2
    '
    Me.mncTSeparator2.Name = "mncTSeparator2"
    Me.mncTSeparator2.Size = New System.Drawing.Size(198, 6)
    '
    'mncTCreerSensInverse
    '
    Me.mncTCreerSensInverse.Name = "mncTCreerSensInverse"
    Me.mncTCreerSensInverse.Size = New System.Drawing.Size(201, 22)
    Me.mncTCreerSensInverse.Text = "Créer le sens inverse"
    '
    'mncTSeparator3
    '
    Me.mncTSeparator3.Name = "mncTSeparator3"
    Me.mncTSeparator3.Size = New System.Drawing.Size(198, 6)
    '
    'mncTSupprimerTroncon
    '
    Me.mncTSupprimerTroncon.Name = "mncTSupprimerTroncon"
    Me.mncTSupprimerTroncon.Size = New System.Drawing.Size(201, 22)
    Me.mncTSupprimerTroncon.Text = "Supprimer le tronçon"
    '
    'mncTBatirItineraire
    '
    Me.mncTBatirItineraire.Name = "mncTBatirItineraire"
    Me.mncTBatirItineraire.Size = New System.Drawing.Size(201, 22)
    Me.mncTBatirItineraire.Text = "Bâtir un itinéraire"
    '
    'mncIInformations
    '
    Me.mncIInformations.Name = "mncIInformations"
    Me.mncIInformations.Size = New System.Drawing.Size(201, 22)
    Me.mncIInformations.Text = "Modifier les informations"
    '
    'mncISeparator1
    '
    Me.mncISeparator1.Name = "mncISeparator1"
    Me.mncISeparator1.Size = New System.Drawing.Size(198, 6)
    '
    'mncISupprimerItineraire
    '
    Me.mncISupprimerItineraire.Name = "mncISupprimerItineraire"
    Me.mncISupprimerItineraire.Size = New System.Drawing.Size(201, 22)
    Me.mncISupprimerItineraire.Text = "Supprimer l'itinéraires"
    '
    'SplitContainer
    '
    Me.SplitContainer.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
    Me.SplitContainer.Dock = System.Windows.Forms.DockStyle.Fill
    Me.SplitContainer.FixedPanel = System.Windows.Forms.FixedPanel.Panel2
    Me.SplitContainer.Location = New System.Drawing.Point(0, 25)
    Me.SplitContainer.Name = "SplitContainer"
    '
    'SplitContainer.Panel1
    '
    Me.SplitContainer.Panel1.AutoScroll = True
    Me.SplitContainer.Panel1.Controls.Add(Me.ElementHost1)
    '
    'SplitContainer.Panel2
    '
    Me.SplitContainer.Panel2.Controls.Add(Me.lblTitreCreation)
    Me.SplitContainer.Panel2.Controls.Add(Me.Panel1)
    Me.SplitContainer.Panel2.Controls.Add(Me.grdCreation)
    Me.SplitContainer.Panel2MinSize = 0
    Me.SplitContainer.Size = New System.Drawing.Size(605, 418)
    Me.SplitContainer.SplitterDistance = 428
    Me.SplitContainer.SplitterWidth = 2
    Me.SplitContainer.TabIndex = 1
    '
    'ElementHost1
    '
    Me.ElementHost1.Dock = System.Windows.Forms.DockStyle.Fill
    Me.ElementHost1.Location = New System.Drawing.Point(0, 0)
    Me.ElementHost1.Name = "ElementHost1"
    Me.ElementHost1.Size = New System.Drawing.Size(424, 414)
    Me.ElementHost1.TabIndex = 0
    Me.ElementHost1.Text = "ElementHost1"
    Me.ElementHost1.Child = Me._StopsCanvas
    '
    'lblTitreCreation
    '
    Me.lblTitreCreation.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
                Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
    Me.lblTitreCreation.Location = New System.Drawing.Point(3, 4)
    Me.lblTitreCreation.Name = "lblTitreCreation"
    Me.lblTitreCreation.Size = New System.Drawing.Size(167, 16)
    Me.lblTitreCreation.TabIndex = 4
    '
    'Panel1
    '
    Me.Panel1.AutoSize = True
    Me.Panel1.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
    Me.Panel1.Controls.Add(Me.btnOk)
    Me.Panel1.Controls.Add(Me.btnAnnuler)
    Me.Panel1.Dock = System.Windows.Forms.DockStyle.Bottom
    Me.Panel1.Location = New System.Drawing.Point(0, 385)
    Me.Panel1.Name = "Panel1"
    Me.Panel1.Size = New System.Drawing.Size(171, 29)
    Me.Panel1.TabIndex = 3
    '
    'btnOk
    '
    Me.btnOk.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
    Me.btnOk.BackColor = System.Drawing.SystemColors.Control
    Me.btnOk.FlatAppearance.MouseDownBackColor = System.Drawing.Color.LightSlateGray
    Me.btnOk.FlatAppearance.MouseOverBackColor = System.Drawing.Color.LightSteelBlue
    Me.btnOk.FlatStyle = System.Windows.Forms.FlatStyle.Flat
    Me.btnOk.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
    Me.btnOk.ForeColor = System.Drawing.SystemColors.ControlText
    Me.btnOk.Location = New System.Drawing.Point(12, 3)
    Me.btnOk.Name = "btnOk"
    Me.btnOk.Size = New System.Drawing.Size(75, 23)
    Me.btnOk.TabIndex = 6
    Me.btnOk.Text = "OK"
    Me.btnOk.UseVisualStyleBackColor = True
    '
    'btnAnnuler
    '
    Me.btnAnnuler.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
    Me.btnAnnuler.BackColor = System.Drawing.SystemColors.Control
    Me.btnAnnuler.DialogResult = System.Windows.Forms.DialogResult.Cancel
    Me.btnAnnuler.FlatAppearance.MouseDownBackColor = System.Drawing.Color.LightSlateGray
    Me.btnAnnuler.FlatAppearance.MouseOverBackColor = System.Drawing.Color.LightSteelBlue
    Me.btnAnnuler.FlatStyle = System.Windows.Forms.FlatStyle.Flat
    Me.btnAnnuler.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
    Me.btnAnnuler.ForeColor = System.Drawing.SystemColors.ControlText
    Me.btnAnnuler.Location = New System.Drawing.Point(93, 3)
    Me.btnAnnuler.Name = "btnAnnuler"
    Me.btnAnnuler.Size = New System.Drawing.Size(75, 23)
    Me.btnAnnuler.TabIndex = 7
    Me.btnAnnuler.Text = "Annuler"
    Me.btnAnnuler.UseVisualStyleBackColor = True
    '
    'grdCreation
    '
    Me.grdCreation.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
                Or System.Windows.Forms.AnchorStyles.Left) _
                Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
    Me.grdCreation.AutoResizeColumns = False
    Me.grdCreation.ColumnsFiltreActif = False
    Appearance1.BackColor = System.Drawing.SystemColors.Window
    Appearance1.BorderColor = System.Drawing.SystemColors.InactiveCaption
    Me.grdCreation.DisplayLayout.Appearance = Appearance1
    Me.grdCreation.DisplayLayout.BorderStyle = Infragistics.Win.UIElementBorderStyle.Solid
    Me.grdCreation.DisplayLayout.CaptionVisible = Infragistics.Win.DefaultableBoolean.[False]
    Appearance2.BackColor = System.Drawing.SystemColors.ActiveBorder
    Appearance2.BackColor2 = System.Drawing.SystemColors.ControlDark
    Appearance2.BackGradientStyle = Infragistics.Win.GradientStyle.Vertical
    Appearance2.BorderColor = System.Drawing.SystemColors.Window
    Me.grdCreation.DisplayLayout.GroupByBox.Appearance = Appearance2
    Appearance3.ForeColor = System.Drawing.SystemColors.GrayText
    Me.grdCreation.DisplayLayout.GroupByBox.BandLabelAppearance = Appearance3
    Me.grdCreation.DisplayLayout.GroupByBox.BorderStyle = Infragistics.Win.UIElementBorderStyle.Solid
    Appearance4.BackColor = System.Drawing.SystemColors.ControlLightLight
    Appearance4.BackColor2 = System.Drawing.SystemColors.Control
    Appearance4.BackGradientStyle = Infragistics.Win.GradientStyle.Horizontal
    Appearance4.ForeColor = System.Drawing.SystemColors.GrayText
    Me.grdCreation.DisplayLayout.GroupByBox.PromptAppearance = Appearance4
    Me.grdCreation.DisplayLayout.MaxColScrollRegions = 1
    Me.grdCreation.DisplayLayout.MaxRowScrollRegions = 1
    Appearance5.BackColor = System.Drawing.SystemColors.Window
    Appearance5.ForeColor = System.Drawing.SystemColors.ControlText
    Me.grdCreation.DisplayLayout.Override.ActiveCellAppearance = Appearance5
    Appearance6.BackColor = System.Drawing.SystemColors.Highlight
    Appearance6.ForeColor = System.Drawing.SystemColors.HighlightText
    Me.grdCreation.DisplayLayout.Override.ActiveRowAppearance = Appearance6
    Me.grdCreation.DisplayLayout.Override.AllowRowFiltering = Infragistics.Win.DefaultableBoolean.[False]
    Me.grdCreation.DisplayLayout.Override.BorderStyleCell = Infragistics.Win.UIElementBorderStyle.Dotted
    Me.grdCreation.DisplayLayout.Override.BorderStyleRow = Infragistics.Win.UIElementBorderStyle.Dotted
    Appearance7.BackColor = System.Drawing.SystemColors.Window
    Me.grdCreation.DisplayLayout.Override.CardAreaAppearance = Appearance7
    Appearance8.BorderColor = System.Drawing.Color.Silver
    Appearance8.TextTrimming = Infragistics.Win.TextTrimming.EllipsisCharacter
    Me.grdCreation.DisplayLayout.Override.CellAppearance = Appearance8
    Me.grdCreation.DisplayLayout.Override.CellPadding = 0
    Appearance9.BackColor = System.Drawing.SystemColors.Control
    Appearance9.BackColor2 = System.Drawing.SystemColors.ControlDark
    Appearance9.BackGradientAlignment = Infragistics.Win.GradientAlignment.Element
    Appearance9.BackGradientStyle = Infragistics.Win.GradientStyle.Horizontal
    Appearance9.BorderColor = System.Drawing.SystemColors.Window
    Me.grdCreation.DisplayLayout.Override.GroupByRowAppearance = Appearance9
    Appearance10.TextHAlignAsString = "Left"
    Me.grdCreation.DisplayLayout.Override.HeaderAppearance = Appearance10
    Me.grdCreation.DisplayLayout.Override.HeaderClickAction = Infragistics.Win.UltraWinGrid.HeaderClickAction.SortMulti
    Me.grdCreation.DisplayLayout.Override.HeaderStyle = Infragistics.Win.HeaderStyle.WindowsXPCommand
    Appearance11.BackColor = System.Drawing.SystemColors.Window
    Appearance11.BorderColor = System.Drawing.Color.Silver
    Me.grdCreation.DisplayLayout.Override.RowAppearance = Appearance11
    Me.grdCreation.DisplayLayout.Override.RowSelectors = Infragistics.Win.DefaultableBoolean.[False]
    Appearance12.BackColor = System.Drawing.SystemColors.ControlLight
    Me.grdCreation.DisplayLayout.Override.TemplateAddRowAppearance = Appearance12
    Me.grdCreation.DisplayLayout.ScrollBounds = Infragistics.Win.UltraWinGrid.ScrollBounds.ScrollToFill
    Me.grdCreation.DisplayLayout.ScrollStyle = Infragistics.Win.UltraWinGrid.ScrollStyle.Immediate
    Me.grdCreation.DisplayLayout.ViewStyleBand = Infragistics.Win.UltraWinGrid.ViewStyleBand.OutlookGroupBy
    Me.grdCreation.Font = New System.Drawing.Font("Times New Roman", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
    Me.grdCreation.Location = New System.Drawing.Point(0, 23)
    Me.grdCreation.Name = "grdCreation"
    Me.grdCreation.PrintColumnsKey = Nothing
    Me.grdCreation.PrintRowsIndex = Nothing
    Me.grdCreation.PrintTitle = Nothing
    Me.grdCreation.RowsActivation = Infragistics.Win.UltraWinGrid.Activation.AllowEdit
    Me.grdCreation.Size = New System.Drawing.Size(175, 391)
    Me.grdCreation.TabIndex = 5
    Me.grdCreation.Tag = ""
    '
    'PlanDeLigne
    '
    Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
    Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
    Me.Controls.Add(Me.SplitContainer)
    Me.Controls.Add(Me.mnbMenu)
    Me.MinimumSize = New System.Drawing.Size(605, 431)
    Me.Name = "PlanDeLigne"
    Me.Size = New System.Drawing.Size(605, 443)
    Me.mnbMenu.ResumeLayout(False)
    Me.mnbMenu.PerformLayout()
    Me.SplitContainer.Panel1.ResumeLayout(False)
    Me.SplitContainer.Panel2.ResumeLayout(False)
    Me.SplitContainer.Panel2.PerformLayout()
    CType(Me.SplitContainer, System.ComponentModel.ISupportInitialize).EndInit()
    Me.SplitContainer.ResumeLayout(False)
    Me.Panel1.ResumeLayout(False)
    CType(Me.grdCreation, System.ComponentModel.ISupportInitialize).EndInit()
    Me.ResumeLayout(False)
    Me.PerformLayout()
End Sub

2 个答案:

答案 0 :(得分：5)

从InitializeComponent中取出任何委托或事件处理程序注册。虽然对象是正确创建的，并且它们都可以编译并且工作正常，但似乎搞砸了VS2005中的表单设计器。

我已经放入了一个RegisterHandlers方法，我在所有自定义表单上手动调用。这不是理想的但它有效

答案 1 :(得分：0)

在VS 2017中遇到了同样的错误。原因是我使用了VB关键字Handles obj.event，其中obj是一个WPF对象，包含在WinForms表单中。 用一对Handles / AddHandler替换RemoveHandler解决了这个问题。

相关问题
最新问题