Yea Right,
Sorry, I havn't checked back on this in a while as I resolved it. My mistake that
first time was that I copied/pasted extender code from a control and forgot to change
the ProvideProperty .
I had a bit of figuring to do in order for the extended class to handle both
components and controls. After a bit of experimenting, I finally figured out that an
extender can handle both controls and components by simply using GetType(Compone nts)
in the ProvideProperty attribute. I'm guessing this is because controls are
inherited from components.
On another note, I was trying to figure out how to get a components project name
during design time. I just ran across this snippet in a CodeProject example:
private static Object getProject()
{
return
Connect.Applica tion.ActiveDocu ment.ProjectIte m.ContainingPro ject.FileName;
}
It looks like all I need a simple Connect class and I'm in business<grin>. Its
sometimes amazing how I learn something new about the Framework on a daily basis.
Thanks - JackRazz
"yEaH rIgHt" <no******@haha. com> wrote in message
news:10******** *****@corp.supe rnews.com...
| JackRazz, to prove that this is possible, I've extended the Timer
| component to include an automatic shutoff after a certain number of
| times called. Take a look to see how I did it.
|
|
| Option Explicit On
| Option Strict On
|
| Imports System.Componen tModel
| Imports System.Windows. Forms
| Imports System.Timers
|
| <ProvidePropert y("AutoShutOff" , GetType(Timers. Timer)), _
| ProvideProperty ("ShutOffValue" , GetType(Timers. Timer))> _
| Public Class TimerExtender
| Inherits System.Componen tModel.Componen t
| Implements IExtenderProvid er
|
| Friend ht As New Hashtable()
| Dim value As Integer
| #Region " Component Designer generated code "
|
| Public Sub New(ByVal Container As System.Componen tModel.IContain er)
| MyClass.New()
|
| 'Required for Windows.Forms Class Composition Designer support
| Container.Add(M e)
| End Sub
|
| Public Sub New()
| MyBase.New()
|
| 'This call is required by the Component Designer.
| InitializeCompo nent()
|
| 'Add any initialization after the InitializeCompo nent() call
|
| End Sub
|
| 'Component overrides dispose to clean up the component list.
| Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
| If disposing Then
| If Not (components Is Nothing) Then
| components.Disp ose()
| End If
| End If
| MyBase.Dispose( disposing)
| End Sub
|
| 'Required by the Component Designer
| Private components As System.Componen tModel.IContain er
|
| '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.
| <System.Diagnos tics.DebuggerSt epThrough()> Private Sub
| InitializeCompo nent()
| components = New System.Componen tModel.Containe r()
| End Sub
|
| #End Region
|
|
| Public Function CanExtend(ByVal extendee As Object) As Boolean
| Implements System.Componen tModel.IExtende rProvider.CanEx tend
|
| If TypeOf extendee Is Timers.Timer Then
| AddPropertyValu e(DirectCast(ex tendee, Timers.Timer))
| Return True
| Else
| Return False
| End If
|
| End Function
|
|
|
|
| Private Function AddPropertyValu e(ByVal ctrl As Timers.Timer) As
| TimerExtendedPr operties
|
| If ht.Contains(ctr l) Then
| Return CType(ht(ctrl), TimerExtendedPr operties)
| Else
| Dim tbProperties As New TimerExtendedPr operties()
|
| ht.Add(ctrl, tbProperties)
|
| AddHandler ctrl.Elapsed, AddressOf TimerElapsed
|
| Return tbProperties
|
| End If
|
| End Function
|
|
| Private Sub TimerElapsed(By Val sender As System.Object, ByVal e As
| System.Timers.E lapsedEventArgs )
|
| Dim ctrl As Timers.Timer = CType(sender, Timers.Timer)
|
| value += 1
|
| If value >= GetShutOffValue (ctrl) Then
| ctrl.Enabled = False
| value = 0
| End If
|
| End Sub
|
|
|
| <Description("E nable automatic shutoff?"), _
| DefaultValue(Fa lse)> _
| Public Function GetAutoShutOff( ByVal ctrl As Timers.Timer) As Boolean
|
| If ht.Contains(ctr l) Then
| Return CType(ht(ctrl), TimerExtendedPr operties).enabl ed
| Else
| Return False
| End If
|
|
| End Function
|
| Public Sub SetAutoShutOff( ByVal ctrl As Timers.Timer, ByVal value
| As Boolean)
| AddPropertyValu e(ctrl).enabled = value
| End Sub
|
| <Description("V alue of when to shutoff timer."), _
| DefaultValue(1) > _
| Public Function GetShutOffValue (ByVal ctrl As Timers.Timer)As Integer
|
| If ht.Contains(ctr l) Then
| Return CType(ht(ctrl), TimerExtendedPr operties).count
| Else
| Return 0
| End If
|
|
| End Function
|
| Public Sub SetShutOffValue (ByVal ctrl As Timers.Timer, ByVal value
| As Integer)
| AddPropertyValu e(ctrl).count = value
| End Sub
|
|
|
| End Class
|
|
| Public Class TimerExtendedPr operties
| Public enabled As Boolean = False
| Public count As Integer = 1
| End Class
