Extracting needed info from "sender as system.object"

[Alan LeHun]

I want to attach a context menu to multiple textboxes but I don't know
how the extract the name of the textbox that is the subject of the
event.

I can't seem to do anything with "sender as system.object" other than
get its type.

Could someone tell me how to extract this info? I don't like the untidy,
inefficient and anti-OO coding of using a seperate context menu for each
textbox.

--
Alan LeHun

[Chris]

Alan LeHun wrote:

I want to attach a context menu to multiple textboxes but I don't know
how the extract the name of the textbox that is the subject of the
event.

I can't seem to do anything with "sender as system.object" other than
get its type.

Could someone tell me how to extract this info? I don't like the untidy,
inefficient and anti-OO coding of using a seperate context menu for each
textbox.

I think this is what you want to do:

Sub XYZ(sender as object, ....)

Dim txtBox as textbox = directcast(sender, textbox)
messagebox.show(txtBox.Name)

end sub

[Alan LeHun]

In article <ue**************@TK2MSFTNGP11.phx.gbl>, [e-mail] says...

Alan LeHun wrote:

I want to attach a context menu to multiple textboxes but I don't know
how the extract the name of the textbox that is the subject of the
event.

[]
I think this is what you want to do:

Sub XYZ(sender as object, ....)

Dim txtBox as textbox = directcast(sender, textbox)
messagebox.show(txtBox.Name)

end sub

Not quite chris, but thanks for the DirectCast heads-up.

sub XYZ(sender as object, ....)
Dim sendingTxtBox As String = DirectCast(sender,
MenuItem).Parent.GetContextMenu.SourceControl.Name
messagebox.show(sendingTxtBox)
end sub

or
sub XYZ(sender as object, ....)
Dim cMenuItem As MenuItem = DirectCast(sender, MenuItem)
Dim activeMenu As Menu = cMenuItem.Parent
Dim activeCMenu As ContextMenu = activeMenu.GetContextMenu
Dim sendingObject As Control = activeCMenu.SourceControl
Dim m As String = sendingObject.Name
messagebox.show(sendingTxtBox)
end sub

gives me what I want. I think I'm finally beginning to understand this
DirectCast thing. :)

--
Alan LeHun

[Chris]

Alan LeHun wrote:

In article <ue**************@TK2MSFTNGP11.phx.gbl>, [e-mail] says...

Alan LeHun wrote:

I want to attach a context menu to multiple textboxes but I don't know
how the extract the name of the textbox that is the subject of the
event.

[]

I think this is what you want to do:

Sub XYZ(sender as object, ....)

Dim txtBox as textbox = directcast(sender, textbox)
messagebox.show(txtBox.Name)

end sub

Not quite chris, but thanks for the DirectCast heads-up.

sub XYZ(sender as object, ....)
Dim sendingTxtBox As String = DirectCast(sender,
MenuItem).Parent.GetContextMenu.SourceControl.Name
messagebox.show(sendingTxtBox)
end sub

or
sub XYZ(sender as object, ....)
Dim cMenuItem As MenuItem = DirectCast(sender, MenuItem)
Dim activeMenu As Menu = cMenuItem.Parent
Dim activeCMenu As ContextMenu = activeMenu.GetContextMenu
Dim sendingObject As Control = activeCMenu.SourceControl
Dim m As String = sendingObject.Name
messagebox.show(sendingTxtBox)
end sub

gives me what I want. I think I'm finally beginning to understand this
DirectCast thing. :)

"I don't know how the extract the name of the textbox"
You asked how to get the name of the textbox ;)

There is also CType which does the same job as DirectCast, but direct
cast is more efficent in a case that you know the type.

Glad it helped...