controls and custom property

[everett]

I am dynamically creating labels. I would like to be
able to attach custom properties(?) to the labels so that
I can query the property for the data in it later. Is
this possible, and how do I start?

thnx
Ev

[Cor]

Hi Everet
Here an example I did made once with buttons I thought I did it because I
did need a propertie that was not on a label.

I am dynamically creating labels. I would like to be
able to attach custom properties(?) to the labels so that
I can query the property for the data in it later. Is
this possible, and how do I start?

\\\
Private mybutton(31) As Button
Private Sub Form1_Load(ByVal sender As Object, _
ByVal e As System.EventArgs) Handles MyBase.Load
Dim start As Integer = 4
Dim top As Integer = 25
Dim i As Integer
For i = 0 To System.DateTime.DaysInMonth(2003, 10) - 1
mybutton(i) = New Button
mybutton(i).TextAlign = ContentAlignment.MiddleCenter
mybutton(i).Width = 40
mybutton(i).Height = 20
mybutton(i).FlatStyle = FlatStyle.Flat
mybutton(i).BackColor = Drawing.Color.AntiqueWhite
mybutton(i).Location = New System.Drawing.Point(start, top)
mybutton(i).Text = (i + 1).ToString
mybutton(i).Cursor = Cursors.Hand
Me.Controls.Add(mybutton(i))
AddHandler mybutton(i).Click, AddressOf mybutton_Click
start = start + 40
If (i + 1) Mod 5 = 0 Then
top = top + 20
start = 4
End If
Next
End Sub
Private Sub mybutton_Click _
(ByVal sender As Object, ByVal e As System.EventArgs)
Dim month As Button = DirectCast(sender, Button)
MessageBox.Show("The day is: " & month.Text)
End Sub
End Class
///

I hope this is it a little bit?

Cor

[Jay B. Harlow [MVP - Outlook]]

Everett,
You could use the Tag property of the Label (major ick! ;-))

Or you create a custom Label class, by inheriting from Label with the custom
properties that you need.

Public Class EverettLabel
Inherits Label

Private m_prop1 As Integer
Private m_prop2 As Integer
Private m_prop3 As String

Public Sub New(text As String, prop1 As Integer, _
prop2 As Integer, prop3 As Integer)
me.Text = text
m_prop1 = prop1
m_prop2 = prop2
m_prop3 = prop3
End Class

Public Property Prop1 As Integer
Public Property Prop2 As Integer
Public Property Prop3 As String

End Class

Then when you create the label you create a EverettLabel instead and set the
properties. If you noticed I added a constructor to simplify create
EverettLabel labels.

I prefer the custom label approach as you can give it type safe properties,
and optionally embed the behavior in the class itself (so you do not need to
handle its events in multiple forms).

Hope this helps
Jay
"everett" <ev*****@creativedigitalgroup.com> wrote in message
news:06****************************@phx.gbl...

I am dynamically creating labels. I would like to be
able to attach custom properties(?) to the labels so that
I can query the property for the data in it later. Is
this possible, and how do I start?

thnx
Ev

[EricJ]

in addition (tag is an object wats icky about that??)

you can also create your own tag class (normall class that you can place in
the tag property of everything) you can put as many properties in there that
you need
label(2).tag.prop1

"everett" <ev*****@creativedigitalgroup.com> wrote in message
news:06****************************@phx.gbl...

I am dynamically creating labels. I would like to be
able to attach custom properties(?) to the labels so that
I can query the property for the data in it later. Is
this possible, and how do I start?

thnx
Ev

[Jay B. Harlow [MVP - Outlook]]

Eric,
As I stated at the bottom of my post: "I prefer the custom label approach
as you can give it type safe properties, and optionally embed the behavior
in the class itself (so you do not need to
handle its events in multiple forms)."

Tag is not type safe, it is a property of type Object, you can stash
anything you want in there, other developers could in inadvertently change
what is stored in there causing hard to find runtime errors.

Also because Tag is of type Object, you have to cast it to the object type
when using Option Strict On, you are using Option Strict on aren't you?
Option Strict On helps avoid hard to find runtime errors.

Your example:

label(2).tag.prop1
With option strict on becomes:
DirectCast(label(2).Tag, MyTagClass).Prop1

Hope this helps
Jay

"EricJ" <ericRéMo**@ThiSomnipack.be> wrote in message
news:3f***********************@reader3.news.skynet .be... in addition (tag is an object wats icky about that??)

you can also create your own tag class (normall class that you can place in the tag property of everything) you can put as many properties in there that you need
label(2).tag.prop1

"everett" <ev*****@creativedigitalgroup.com> wrote in message
news:06****************************@phx.gbl...

I am dynamically creating labels. I would like to be
able to attach custom properties(?) to the labels so that
I can query the property for the data in it later. Is
this possible, and how do I start?

thnx
Ev

[EricJ]

> Also because Tag is of type Object, you have to cast it to the object type

when using Option Strict On, you are using Option Strict on aren't you?
Option Strict On helps avoid hard to find runtime errors.

/me looking at the plant behind my shoulder, slightly blushing ;p

I agrea that it is better, but Option Strict wil have to wait till my next
project (i"m not going over +17k lines of code to change it)

eric

[Cor]

"EricJ"

Hi Eric, there was a time, that Armin did answer all questions, with

"Did you enable option Strict"

You understand it, big discussions between Armin on one side and Nick(Nak),
Fergus and Cor on the other side Herfried was somewhere in the middle. (This
was used to build the longest thread ever Fergus and Nick said).

Nick and Cor are using consequently "option strict on" now and I thought
Fergus when it is real.

I would use it if I was you every time I started a new class on a seperate
page.

It real helps and your code becomes faster (although sometimes you have to
write something more and to think a lot when it is a Com object).

Just an advice

Cor

[EricJ]

i know its better (but lazy habbits die hard) and i din't give it much
thought before. i will try to implement it as i go along.
I'll give you a bit background info
I finished school this year and admitted i learned a lot there but theres to
mutch (in real world applications) that they never mentionned, I know this
and I still have a lot to learn. (i guess we'll all be learning new things
and methots for the rest of our lives)

I'm always open to remarks on my code and better ways to do things. I find
this newsgroup one of the best places to learn and get better, trying to
help others in the progress. :)

eric

ps cor are you from belgium, the netherlands? (i thought i remeberd you
saying once your dutch)

[Cor]

Original Amsterdam (Jordaan)

Which Belgium part are you from Dutch or French?

ps cor are you from belgium, the netherlands? (i thought i remeberd you
saying once your dutch)

[EricJ]

the dutch part :)

"Cor" <no*@non.com> wrote in message
news:%2***************@TK2MSFTNGP09.phx.gbl...

Original Amsterdam (Jordaan)

Which Belgium part are you from Dutch or French?

ps cor are you from belgium, the netherlands? (i thought i remeberd you
saying once your dutch)

[Everett]

Thanks for your help -
i ended up making a custom control using the add custom
control, inherting the label, and adding the properties I
needed.
---Original Message-----

in addition (tag is an object wats icky about that??)

you can also create your own tag class (normall class that you can place inthe tag property of everything) you can put as many properties in there thatyou need
label(2).tag.prop1

"everett" <ev*****@creativedigitalgroup.com> wrote in messagenews:06****************************@phx.gbl...

I am dynamically creating labels. I would like to be
able to attach custom properties(?) to the labels so that I can query the property for the data in it later. Is
this possible, and how do I start?

thnx
Ev

.