Change label's Name when Text assigned at design time programmatically?

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

mnadig - 24 May 2006 22:36 GMT

I have my own control that inherits from Label. When I drop it on a
form, it defaults the object Name to MyLabel1 and the Text to MyLabel1.
I'd like the control to automatically rename itself if it detects, at
design time, the Text property changes; e.g.

private sub MyLabel_TextChanged.... handles Me.TextChanged
if me.Name.StartsWith( "MyLabel") then
me.Name = Me.Text (minus spaces)
end if
end sub

Is this possible?

Reply to this Message

mnadig - 25 May 2006 00:13 GMT

I found the answer:
Import system.componentmodel

in text changed event:
If Me.DesignMode Then
Dim nameProp As PropertyDescriptor =
TypeDescriptor.GetProperties(Me)("Name")
nameProp.SetValue(Me, "lbl" + FixTextForName(Me.Text))
end if

(where fixTextForName strips out invalid chars for name prop)

Reply to this Message

Rate this thread:

Free Magazines

Get these publications absolutely FREE for up to 12 months. There are no hidden fees and no obligation. Simply choose a title, complete the application form and submit it. Read more ...