How make this code more generic?

[Woody Splawn]

From a Winform I am calling the sub routine that follows in a module

Public Sub PopulateWithSta tes(ByVal myform As Contracts, ByVal FieldName As
String)
Select Case FieldName
Case "txtST"
myform.txtST.It ems.Clear()
myform.txtST.It ems.Add("CA")
myform.txtST.It ems.Add("WA")
End Select
End Sub

This works but what I would really like to do is not have to write a case
statement with all the states for each field that has a different name. I
did it this way only because I knew it would work but I would really like to
pass the name of the field involved by value in the Sub routine definition
but I don't know how. Something like

Public Sub PopulateWithSta tes(ByVal myform As Contracts, ByVal FieldName As
FieldObject)

MyForm.FieldObj ect.Items.clear ()
myForm.FieldObj ect.Add("CA") etc.....

Could someone advise me on how to do this?

[e]

You've got it just about right I think, you just need a for each that cycles
through all your fields? Go with your second version of PopulateWithSta tes
you've got down there, and call it with something like this...?

Dim aFieldObject as FieldObject

For Each aFieldObject in <myForm.SomeObj ect.FieldsColle ction>
PopulateWithSta tes(aFieldObjec t)
Next

....

Sub PopulateWithSta tes(byVal theFiledObject as FieldObject)

theFiledObject. Add("CA") etc.....

End Sub

"Woody Splawn" <wo***@splawns. com> wrote in message
news:eM******** ******@TK2MSFTN GP12.phx.gbl...

From a Winform I am calling the sub routine that follows in a module

Public Sub PopulateWithSta tes(ByVal myform As Contracts, ByVal FieldName As String)
Select Case FieldName
Case "txtST"
myform.txtST.It ems.Clear()
myform.txtST.It ems.Add("CA")
myform.txtST.It ems.Add("WA")
End Select
End Sub

This works but what I would really like to do is not have to write a case
statement with all the states for each field that has a different name. I
did it this way only because I knew it would work but I would really like to pass the name of the field involved by value in the Sub routine definition
but I don't know how. Something like

Public Sub PopulateWithSta tes(ByVal myform As Contracts, ByVal FieldName As FieldObject)

MyForm.FieldObj ect.Items.clear ()
myForm.FieldObj ect.Add("CA") etc.....

Could someone advise me on how to do this?

[Jay B. Harlow [MVP - Outlook]]

Woody,
One question, do all fields get all states, or do different fields get
different sets of states. Assuming that all fields get all states:

Public Sub PopulateWithSta tes(ByVal myform As Contracts, ByVal FieldName As FieldObject) You're close.

How about passing in the list box or combo box itself (independent of the
form), this of course requires overloading (read duplication of code). Public Sub PopulateWithSta tes(ByVal list As ComboBox)
Public Sub PopulateWithSta tes(ByVal list As ListBox)
Then you just pass in this listbox or combobox on the form.

PopulateWithSta tes(MyForm.lstS tates)
PopulateWithSta tes(MyForm.cboS tates)

Alternatively you could pass in the collection that the Items property
represents:
Public Sub PopulateWithSta tes(ByVal list As IList)
PopulateWithSta tes(MyForm.lstS tates.Items)
PopulateWithSta tes(MyForm.cboS tates.Items)

I like this last one as long as the control you are populating supports an
Items property that implements IList you can fill it with values.

Of course another even easier method is to have PopulateWithSta tes return a
"new" list of states, that you simply assign to the control's DataSource
property.

MyForm.lstState s.DataSource = PopulateWithSta tes()
MyForm.cboState s.DataSource = PopulateWithSta tes()

The reason I say it needs to be a "new" list (a new Array or new ArrayList
for example). A shared list will not work, as the binding process will
notice they are the same and keep both lists in sync. Cloning a shared array
would be good.

I prefer the last one, setting the DataSource property to the list I want
displayed.

Hope this helps
Jay
"Woody Splawn" <wo***@splawns. com> wrote in message
news:eM******** ******@TK2MSFTN GP12.phx.gbl... From a Winform I am calling the sub routine that follows in a module

Public Sub PopulateWithSta tes(ByVal myform As Contracts, ByVal FieldName As String)
Select Case FieldName
Case "txtST"
myform.txtST.It ems.Clear()
myform.txtST.It ems.Add("CA")
myform.txtST.It ems.Add("WA")
End Select
End Sub

This works but what I would really like to do is not have to write a case
statement with all the states for each field that has a different name. I
did it this way only because I knew it would work but I would really like to pass the name of the field involved by value in the Sub routine definition
but I don't know how. Something like

Public Sub PopulateWithSta tes(ByVal myform As Contracts, ByVal FieldName As FieldObject)

MyForm.FieldObj ect.Items.clear ()
myForm.FieldObj ect.Add("CA") etc.....

Could someone advise me on how to do this?

[Fergus Cooney]

Hiya Woody,

Public Sub PopulateWithSta tes _
(ByVal myform As Form1, ByVal sListBox As String)
Dim oControl As ListBox
Dim oListBox As ListBox
For Each oControl In myform.Controls
If oControl.Name = sListBox Then
oListBox = DirectCast (oControl, ListBox)
Exit For
End If
Next
If oListBox Is Nothing Then _
Return

oListBox.Items. Clear
oListBox.Items. AddRange (New String() _
{"CA", "WA", "FL"})
End Sub

Regards,
Fergus

[Woody Splawn]

Thank your for responding.

I think we are mis-communicating. I call this function with a statment
inside my form like this:

Module1.Populat eWithStates(Me, "txtST")

I am passing the name of the field that I want to populate to the
subroutine.

I'm hoping to write something like the following in the actual subroutine:

Public Sub PopulateWithSta tesB(ByVal myform As Contracts, ByVal FieldName As
Object)
myform.FieldNam e.Items.Clear()
myform.FieldNam e.Items.Add("-")
myform.txtST.It ems.Add("CA")
myform.txtST.It ems.Add("WA")
myform.txtST.It ems.Add("AZ")
... other 52 states
End Sub

I would like, if possible, for the subroutine to understand that when I say
FieldName I mean the text field on myForm called txtST. The reason I am
doing things this way is because I have several different fields on the form
that need to be populated with states but I would like to write the code for
adding states only once. When I use the code above I get a squiqqly under
MyForm.FieldNam e stating that FieldName is not a member of the form called
(in this case) contracts.

Am I making since?



"e" <[e-mail]> wrote in message news:8p******** ************@sp eakeasy.net...

You've got it just about right I think, you just need a for each that cycles through all your fields? Go with your second version of PopulateWithSta tes you've got down there, and call it with something like this...?

Dim aFieldObject as FieldObject

For Each aFieldObject in <myForm.SomeObj ect.FieldsColle ction>
PopulateWithSta tes(aFieldObjec t)
Next

...

Sub PopulateWithSta tes(byVal theFiledObject as FieldObject)

theFiledObject. Add("CA") etc.....

End Sub

"Woody Splawn" <wo***@splawns. com> wrote in message
news:eM******** ******@TK2MSFTN GP12.phx.gbl...

From a Winform I am calling the sub routine that follows in a module

Public Sub PopulateWithSta tes(ByVal myform As Contracts, ByVal FieldName As

String)
Select Case FieldName
Case "txtST"
myform.txtST.It ems.Clear()
myform.txtST.It ems.Add("CA")
myform.txtST.It ems.Add("WA")
End Select
End Sub

This works but what I would really like to do is not have to write a case statement with all the states for each field that has a different name. I did it this way only because I knew it would work but I would really like to

pass the name of the field involved by value in the Sub routine

definition but I don't know how. Something like

Public Sub PopulateWithSta tes(ByVal myform As Contracts, ByVal FieldName

As

FieldObject)

MyForm.FieldObj ect.Items.clear ()
myForm.FieldObj ect.Add("CA") etc.....

Could someone advise me on how to do this?

[Jay B. Harlow [MVP - Outlook]]

Woody,

I am passing the name of the field that I want to populate to the
subroutine. As my other post suggested, why pass the name of the field, when you can
pass the control itself?
Am I making since? Yes, you are making sense.

Hope this helps
Jay

"Woody Splawn" <wo***@splawns. com> wrote in message
news:%2******** ********@TK2MSF TNGP12.phx.gbl. .. Thank your for responding.

I think we are mis-communicating. I call this function with a statment
inside my form like this:

Module1.Populat eWithStates(Me, "txtST")

I am passing the name of the field that I want to populate to the
subroutine.

I'm hoping to write something like the following in the actual subroutine:

Public Sub PopulateWithSta tesB(ByVal myform As Contracts, ByVal FieldName As Object)
myform.FieldNam e.Items.Clear()
myform.FieldNam e.Items.Add("-")
myform.txtST.It ems.Add("CA")
myform.txtST.It ems.Add("WA")
myform.txtST.It ems.Add("AZ")
... other 52 states
End Sub

I would like, if possible, for the subroutine to understand that when I say FieldName I mean the text field on myForm called txtST. The reason I am
doing things this way is because I have several different fields on the form that need to be populated with states but I would like to write the code for adding states only once. When I use the code above I get a squiqqly under
MyForm.FieldNam e stating that FieldName is not a member of the form called
(in this case) contracts.

Am I making since?



"e" <[e-mail]> wrote in message news:8p******** ************@sp eakeasy.net...

You've got it just about right I think, you just need a for each that

cycles

through all your fields? Go with your second version of

PopulateWithSta tes

you've got down there, and call it with something like this...?

Dim aFieldObject as FieldObject

For Each aFieldObject in <myForm.SomeObj ect.FieldsColle ction>
PopulateWithSta tes(aFieldObjec t)
Next

...

Sub PopulateWithSta tes(byVal theFiledObject as FieldObject)

theFiledObject. Add("CA") etc.....

End Sub

"Woody Splawn" <wo***@splawns. com> wrote in message
news:eM******** ******@TK2MSFTN GP12.phx.gbl...

From a Winform I am calling the sub routine that follows in a module

Public Sub PopulateWithSta tes(ByVal myform As Contracts, ByVal

FieldName

As

String)
Select Case FieldName
Case "txtST"
myform.txtST.It ems.Clear()
myform.txtST.It ems.Add("CA")
myform.txtST.It ems.Add("WA")
End Select
End Sub

This works but what I would really like to do is not have to write a case statement with all the states for each field that has a different

name. I did it this way only because I knew it would work but I would really like

to

pass the name of the field involved by value in the Sub routine

definition but I don't know how. Something like

Public Sub PopulateWithSta tes(ByVal myform As Contracts, ByVal

FieldName As

FieldObject)

MyForm.FieldObj ect.Items.clear ()
myForm.FieldObj ect.Add("CA") etc.....

Could someone advise me on how to do this?

[e]

I'm a little foggy on what type of control we're talking about here, but the
premise should be the same no matter what the control type is, so I guess it
doesn't matter - is there a specific reason you have to pass the object name
as a literal string? If you just pass the control object itself, you should
be good to go. You don't have to use a for-each; if it's just for a few
specific ones, you can just send them by hand:

Module1.Populat eAnObjectWithSt ates(txtSt)
Module1.Populat eAnObjectWithSt ates(txtSomethi ngElse)
..... other ones you want to populate with states just like that

....

Public Sub PopulateAnObjec tWithStates(ByV al obj As System.Object)
obj.Items.Clear ()
obj.Items.Add("-")
obj.Items.Add(" CA")
obj.Items.Add(" WA")
obj.Items.Add(" AZ")
... other 52 states
End Sub
I don't think passing the form would be necessary, it will change the object
directly.
"Woody Splawn" <wo***@splawns. com> wrote in message
news:%2******** ********@TK2MSF TNGP12.phx.gbl. ..

Thank your for responding.

I think we are mis-communicating. I call this function with a statment
inside my form like this:

Module1.Populat eWithStates(Me, "txtST")

I am passing the name of the field that I want to populate to the
subroutine.

I'm hoping to write something like the following in the actual subroutine:

Public Sub PopulateWithSta tesB(ByVal myform As Contracts, ByVal FieldName As Object)
myform.FieldNam e.Items.Clear()
myform.FieldNam e.Items.Add("-")
myform.txtST.It ems.Add("CA")
myform.txtST.It ems.Add("WA")
myform.txtST.It ems.Add("AZ")
... other 52 states
End Sub

I would like, if possible, for the subroutine to understand that when I say FieldName I mean the text field on myForm called txtST. The reason I am
doing things this way is because I have several different fields on the form that need to be populated with states but I would like to write the code for adding states only once. When I use the code above I get a squiqqly under
MyForm.FieldNam e stating that FieldName is not a member of the form called
(in this case) contracts.

Am I making since?



"e" <[e-mail]> wrote in message news:8p******** ************@sp eakeasy.net...

You've got it just about right I think, you just need a for each that

cycles

through all your fields? Go with your second version of

PopulateWithSta tes

you've got down there, and call it with something like this...?

Dim aFieldObject as FieldObject

For Each aFieldObject in <myForm.SomeObj ect.FieldsColle ction>
PopulateWithSta tes(aFieldObjec t)
Next

...

Sub PopulateWithSta tes(byVal theFiledObject as FieldObject)

theFiledObject. Add("CA") etc.....

End Sub

"Woody Splawn" <wo***@splawns. com> wrote in message
news:eM******** ******@TK2MSFTN GP12.phx.gbl...

From a Winform I am calling the sub routine that follows in a module

Public Sub PopulateWithSta tes(ByVal myform As Contracts, ByVal

FieldName

As

String)
Select Case FieldName
Case "txtST"
myform.txtST.It ems.Clear()
myform.txtST.It ems.Add("CA")
myform.txtST.It ems.Add("WA")
End Select
End Sub

This works but what I would really like to do is not have to write a case statement with all the states for each field that has a different

name. I did it this way only because I knew it would work but I would really like

to

pass the name of the field involved by value in the Sub routine

definition but I don't know how. Something like

Public Sub PopulateWithSta tes(ByVal myform As Contracts, ByVal

FieldName As

FieldObject)

MyForm.FieldObj ect.Items.clear ()
myForm.FieldObj ect.Add("CA") etc.....

Could someone advise me on how to do this?

[Cor]

Hi Fergus,

I see always examples form you telling how to use a collection class.
And now we have to my idea the standard example for it and you come with
this, I am perplex.

This is the basic example I thougth from that collection class.
properties
"CA", "Calfornia" , "Timezone" or whatever
"WA", "Wasington" , ............... .
"FL", "Florida", ............... .......

Or am I wrong

That you can just bind to the controls or whatever way you want to use it.

This was your answer
\\\
oListBox.Items. AddRange (New String() _
{"CA", "WA", "FL"})
End Sub
///

I say of course nothing, because two reasons, I get the idea I never
understand Woody and this I called your stuff and I don't want to make you
laughing to much about me.
:-)
Cor

[Peter Huang [MSFT]]

Hi Woody,

It seems you want to addressing WinForm Controls by Name.
You need to maintain a HashTable for the relationship between the index and
the name.
So that you can get the index from its name, and then by using the
form.controls(i ndex) to access the control.

http://groups.google.com/groups?q=Fi...&lr=&ie=UTF-8&
oe=UTF-8&selm=u72StMXi BHA.1552%40tkms ftngp02&rnum=1
Regards,
Peter Huang
Microsoft Online Partner Support
Get Secure! www.microsoft.com/security
This posting is provided "as is" with no warranties and confers no rights.

--------------------

From: "Woody Splawn" <wo***@splawns. com>
References: <eM************ **@TK2MSFTNGP12 .phx.gbl> <8p************ ********@speake asy.net>Subject: Re: How make this code more generic?
Date: Mon, 13 Oct 2003 16:26:36 -0700
Lines: 103
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 6.00.2800.1158
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2800.1165
Message-ID: <#A************ **@TK2MSFTNGP12 .phx.gbl>
Newsgroups: microsoft.publi c.dotnet.langua ges.vb
NNTP-Posting-Host: 168.158-60-66-fuji-dsl.static.sure west.net 66.60.158.168
Path: cpmsftngxa06.ph x.gbl!TK2MSFTNG P08.phx.gbl!TK2 MSFTNGP12.phx.g bl
Xref: cpmsftngxa06.ph x.gbl microsoft.publi c.dotnet.langua ges.vb:146441
X-Tomcat-NG: microsoft.publi c.dotnet.langua ges.vb

Thank your for responding.

I think we are mis-communicating. I call this function with a statment
inside my form like this:

Module1.Popula teWithStates(Me , "txtST")

I am passing the name of the field that I want to populate to the
subroutine.

I'm hoping to write something like the following in the actual subroutine:

Public Sub PopulateWithSta tesB(ByVal myform As Contracts, ByVal FieldName AsObject)
myform.FieldNam e.Items.Clear()
myform.FieldNam e.Items.Add("-")
myform.txtST.It ems.Add("CA")
myform.txtST.It ems.Add("WA")
myform.txtST.It ems.Add("AZ")
... other 52 states
End Sub

I would like, if possible, for the subroutine to understand that when I say
FieldName I mean the text field on myForm called txtST. The reason I am
doing things this way is because I have several different fields on the formthat need to be populated with states but I would like to write the code foradding states only once. When I use the code above I get a squiqqly under
MyForm.FieldNa me stating that FieldName is not a member of the form called
(in this case) contracts.

Am I making since?



"e" <[e-mail]> wrote in message news:8p******** ************@sp eakeasy.net...

You've got it just about right I think, you just need a for each that

cycles

through all your fields? Go with your second version of

PopulateWithSt ates

you've got down there, and call it with something like this...?

Dim aFieldObject as FieldObject

For Each aFieldObject in <myForm.SomeObj ect.FieldsColle ction>
PopulateWithSta tes(aFieldObjec t)
Next

...

Sub PopulateWithSta tes(byVal theFiledObject as FieldObject)

theFiledObject. Add("CA") etc.....

End Sub

"Woody Splawn" <wo***@splawns. com> wrote in message
news:eM******** ******@TK2MSFTN GP12.phx.gbl...

> From a Winform I am calling the sub routine that follows in a module
>
> Public Sub PopulateWithSta tes(ByVal myform As Contracts, ByVal

FieldName

As

> String)
> Select Case FieldName
> Case "txtST"
> myform.txtST.It ems.Clear()
> myform.txtST.It ems.Add("CA")
> myform.txtST.It ems.Add("WA")
> End Select
> End Sub
>
> This works but what I would really like to do is not have to write acase > statement with all the states for each field that has a different name.I > did it this way only because I knew it would work but I would reallylike

to

> pass the name of the field involved by value in the Sub routine

definition > but I don't know how. Something like
>
> Public Sub PopulateWithSta tes(ByVal myform As Contracts, ByVal

FieldName As

> FieldObject)
>
> MyForm.FieldObj ect.Items.clear ()
> myForm.FieldObj ect.Add("CA") etc.....
>
> Could someone advise me on how to do this?
>
>
>
>

[Fergus Cooney]

Hi Cor,

No worries, mate - it's a case of 'horses for courses'. ;-)

In this situation Woody just wants to stick some strings into a ListBox -
so there's no need for anything more than an array of strings. If there <had
been> associated items, then, yes, I would have added objects, as in the other
similar queries.

[Can't understand why Woody hasn't seen the code, though.]

Regards,
Fergus