Re: possible to create one control array with different controls?



Also the choice of name for your event handler, "OnEnter," is 100% BAD.
That's a sub of the base FORM class which is why I surmise you put
"Overloads" on (I take it the compiler complained and told you to put
"overloads" and you did it without really knowing what it meant). Why not
call your event handler something like
MyControls_Enter(...) Handles txt1.Enter, txt2.Enter ...

--
-C. Moya
www.cmoya.com
"Rich" <Rich@xxxxxxxxxxxxxxxxxxxxxxxxx> wrote in message
news:017A49C3-5E28-434D-95C1-DBAE00FC07F7@xxxxxxxxxxxxxxxx
Thanks very much for your reply. Your suggestion worked perfectly!
(for posterity here is what I did)

Dim arr As Control()

Private Sub Form1_Load(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles
MyBase.Load
arr = New Control() {txt1, txt2, txt3, txt4, cbo1}
End Sub

Private Overloads Sub OnEnter(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles
_
txt1.Enter, txt2.Enter, txt3.Enter,
txt4.Enter, cbo1.Enter
If TypeOf sender Is TextBox Then
MessageBox.Show("Textbox " & CType(sender, TextBox).Name)
ElseIf TypeOf sender Is ComboBox Then
MessageBox.Show("Combobox " & CType(sender, ComboBox).Name)
End If
End Sub


"CMM" wrote:

"Rich" <Rich@xxxxxxxxxxxxxxxxxxxxxxxxx> wrote in message
news:6EBE1741-B817-4039-A04B-598771510A9F@xxxxxxxxxxxxxxxx
Hello,

I have 3 textboxes and 1 combobox on a form. On entering the control I
want
to select all the text. I can make an array of textboxes like this:

Dim arrTxt As TextBox() = {txt1, txt2, txt3}

Then I loop through that array

Private Sub onEntering(ByVal sender As Object, ...) Handles _
txt1.Enter,
txt2.Enter, txt3.Enter
CType(sender, TextBox).SelectAll()
End Sub

Is it possible to create a similar control array that I could stuff the
textboxes and the combobox into? If yes, how is this done? What kind
of
control object could I use to hold different controls?

Dim arr As Control() = {txt1, txt2, txt3}
or
Dim arr As Object() = {txt1, txt2, txt3}


And how do I check if
sender is a
Textbox or combobox?

If CType(sender, TextBox) = True Then...? is this doable?
If CType(sender, ComboBox) = True Then...?

No, you would use:

If TypeOf sender Is TextBox Then
ElseIf TypeOf sender Is ComboBox Then

Also, make sure your event handler handles the lowest common denominator
in
terms of EventArgs. All EventArgs inherit from System.EventArgs... so use
that.

arr_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles ...

NOT

arr_Click(ByVal sender As System.Object, ByVal e As
SomeListViewSpecialEventArgs) Handles ...


--
-C. Moya
www.cmoya.com





.



Relevant Pages

  • Re: WithEvents für Control Array?
    ... Private mTBoxAs TextBox ... ByVal sender As System.Object, _ ... Private Sub CreateControls() ...
    (microsoft.public.de.german.entwickler.dotnet.vb)
  • Re: die auto. ComboBoxroutine unterdrücken
    ... > die Combobox wird automatisch immer vor allem Anderem aufgerufen. ... > Private Sub cmbNachname_SelectedIndexChanged(ByVal sender As... ... Private Sub Form1_Load(ByVal sender As System.Object, ...
    (microsoft.public.de.german.entwickler.dotnet.datenbank)
  • Re: ByVal sender As Object, ByVal e As EventArgs - can I send m
    ... Sub ddl_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs) ... > Function UpdateText(ByVal txt As TextBox, ...
    (microsoft.public.dotnet.framework.aspnet.webcontrols)
  • Re: Form mit ca. 30 Controls speichern
    ... Private Sub Form1_Load(ByVal sender As Object, ... If TypeOf sender Is TextBox Then ... Case sender Is TextBox1 ...
    (microsoft.public.de.german.entwickler.dotnet.vb)
  • Re: Userform Name Search
    ... not in a textbox. ... spinbutton could be designed to work with either. ... Private Sub SpinButton1_Change ... If you set the properties of the combobox not to show the dropdown arrow, ...
    (microsoft.public.excel.programming)