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?

[Chris Dunaway]

"Fergus Cooney" <fi******@tesco .net> wrote in news:#Sjs1$dkDH A.2328
@TK2MSFTNGP10.p hx.gbl:

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

Shouldn't the second line be:

Dim oControl As Control '????

The For Each will puke on any control that's not a ListBox

Chris

[Fergus Cooney]

Hi Chris,

ROFL, uurgh puke all over my For Each loop.

Doh! Yes, of course, it should be Control.

I tested it on a Form containing nothing but listboxes. No puke there -
but only because I was feeding it vanilla icecream rather than 10 pints of
lager and five straight whiskies followed by chicken vindaloo and a double
kebab.

Regards,
Fergus

[Woody Splawn]

Thank you. This worked for me.

Public Sub PopulateWithSta tes(ByVal FieldName As System.Object)
FieldName.items .Clear()
FieldName.Items .Add("CA") etc....
This was simple and straight forward and something I understand. Some of
the other solutions were frankly over my head but thank you to those that
responded.

Woody

[Peter Huang [MSFT]]

Hi Woody,

Did my suggestion works for you?
If you have any related question, please feel free to let me know.

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.
--------------------

X-Tomcat-ID: 218518442
References: <eM************ **@TK2MSFTNGP12 .phx.gbl> <8p************ ********@speake asy.net>
<#A************ **@TK2MSFTNGP12 .phx.gbl>MIME-Version: 1.0
Content-Type: text/plain
Content-Transfer-Encoding: 7bit
From: v-******@online.m icrosoft.com (Peter Huang [MSFT])
Organization : Microsoft
Date: Tue, 14 Oct 2003 08:57:29 GMT
Subject: Re: How make this code more generic?
X-Tomcat-NG: microsoft.publi c.dotnet.langua ges.vb
Message-ID: <kY************ **@cpmsftngxa06 .phx.gbl>
Newsgroups: microsoft.publi c.dotnet.langua ges.vb
Lines: 114
Path: cpmsftngxa06.ph x.gbl
Xref: cpmsftngxa06.ph x.gbl microsoft.publi c.dotnet.langua ges.vb:146484
NNTP-Posting-Host: TOMCATIMPORT1 10.201.218.122

Hi Woody,

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

http://groups.google.com/groups?q=Fi...N&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.

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