"Herfried K. Wagner [MVP]" wrote:

> "Stanley Mok" <Stanley Mok@discussions.microsoft.com> schrieb:
> > In VB6, I can do something like:
> >
> > Private Sub (c as object) ' c can be a listbox or a combo box
> > c.additem "aaa"
> > End Sub
> >
> > In vb.net, this code won't even compile. How can I do it?
>
> \\\
> Private Sub Bla(ByVal c As ListControl)
> c.Items.Add(...)
> End Sub
> ///
>
> --
> M S Herfried K. Wagner
> M V P <URL:http://dotnet.mvps.org/>
> V B <URL:http://classicvb.org/petition/>
>

> In VB6, I can do something like:
>
> Private Sub (c as object) ' c can be a listbox or a combo box
> c.additem "aaa"
> End Sub
>
> In vb.net, this code won't even compile. How can I do it?

> Interesting, both Items and AddItem are not a member of ListControl, what
> can I do now?

"Herfried K. Wagner [MVP]" wrote:
> \\\
> Private Sub Bla(ByVal c As ListControl)
> If TypeOf c Is ListBox Then
> DirectCast(c, ListBox).Items.Add(...)
> ElseIf TypeOf c Is ComboBox Then
> DirectCast(c, ComboBox).Items.Add(...)
> Else
> Throw New ArgumentException(...)
> End If
> End Sub
> ///
>
> --
> M S Herfried K. Wagner
> M V P <URL:http://dotnet.mvps.org/>
> V B <URL:http://classicvb.org/petition/>
>
>

"Herfried K. Wagner [MVP]" wrote:

> "Stanley Mok" <StanleyMok@discussions.microsoft.com> schrieb:
> > This is exactly what I try to avoid since the code for both the TypeOf
> > test
> > are the same, it would be better to maintenance one section of code than
> > two
> > similar sections of code. Is there any other way?
>
> There are other ways (late binding, 'CallByName', reflection), but I doubt
> they are better.
>
> --
> M S Herfried K. Wagner
> M V P <URL:http://dotnet.mvps.org/>
> V B <URL:http://classicvb.org/petition/>
>
>

> This is exactly what I try to avoid since the code for both the TypeOf
> test
> are the same, it would be better to maintenance one section of code than
> two
> similar sections of code. Is there any other way?