Paul Easter
__
Andy Smith
"Paul Easter" <pea...@leadsonline.us> wrote in message
news:uUnVddM5...@TK2MSFTNGP09.phx.gbl...
Paul
"Andy Smith" <ACSmith.T...@mactec.com> wrote in message
news:uya51CP5...@TK2MSFTNGP12.phx.gbl...
I'll look into it a bit.
__
Andy Smith
"Paul Easter" <pea...@leadsonline.us> wrote in message
news:e6mCgl15...@TK2MSFTNGP12.phx.gbl...
'Tell the designer that the component has changed
' Make sure we are in design mode
If Not Me.Site Is Nothing AndAlso Me.Site.DesignMode Then
Try
' Set up variables we need
Dim host As System.ComponentModel.Design.IDesignerHost
Dim changer As
System.ComponentModel.Design.IComponentChangeService
' Get the host from the site object
host =
CType(Me.Site.GetService(GetType(System.ComponentModel.Design.IDesignerHost)
), System.ComponentModel.Design.IDesignerHost)
' Get the change service from the host
changer =
CType(host.GetService(GetType(System.ComponentModel.Design.IComponentChangeS
ervice)), System.ComponentModel.Design.IComponentChangeService)
' raise the OnComponentChanged to tell the designer that
it our component has changed. "Me" in this case is the component that has
changed.
changer.OnComponentChanged(Me, Nothing, Nothing,
Nothing)
Catch ex As System.Exception
' hopefully we will never see this error
System.Windows.Forms.MessageBox.Show("Error: " &
ex.Message)
End Try
End If
I hope this helps someone.
Paul Easter
"Andy Smith" <ACSmith.T...@mactec.com> wrote in message
news:uOWiH715...@TK2MSFTNGP12.phx.gbl...
__
Andy Smith
"Paul Easter" <pea...@leadsonline.us> wrote in message
news:uLPVSK25...@TK2MSFTNGP12.phx.gbl...
Paul Easter
"Andy Smith" <ACSmith.T...@mactec.com> wrote in message
news:OaBtpq$5CHA...@TK2MSFTNGP11.phx.gbl...