473,326 Members | 2,813 Online
Bytes | Software Development & Data Engineering Community
Post Job

Home Posts Topics Members FAQ

Join Bytes to post your question to a community of 473,326 software developers and data experts.

For each Question

How do I write an interface to a class that represents a group of objects
like I would the controls object?

i.e.

I want to do this....

Dim simpleObject as new MyObjectGroup
Dim anObject as AnObjectInTheGroup

For each anObject in simpleObject
' Blah
Next

I remember in VB 6 (pauses for cringes), you implemented a COM interface.
How do you do this in .NET?

Thanks

Scott
Nov 20 '05 #1
8 4137
here's a simple example: (since everything is an object in .net, you don't
have to use variant enumeration but can strong type it instead)

'=============================================

sub main()
dim p as new parent
dim c as child
for each c in p.children
console.writeline("Index: " & c.index)
next
end sub

class parent

private myKids() as child

sub new()
redim myKids(2)
dim i as integer
for i = 0 to 2
myKids(i) = new child(i)
next
end sub

readonly property children() as child()
get
return myKids()
end get
end property

end class

class child

private myIndex as integer

sub new(byval index as integer)
myIndex = index
end sub

readonly property index() as integer
get
myIndex
end get
end property

end class

'=============================================

hth,

steve
"Scott Meddows" <sc******************@tsged.com> wrote in message
news:O8**************@TK2MSFTNGP12.phx.gbl...
How do I write an interface to a class that represents a group of objects
like I would the controls object?

i.e.

I want to do this....

Dim simpleObject as new MyObjectGroup
Dim anObject as AnObjectInTheGroup

For each anObject in simpleObject
' Blah
Next

I remember in VB 6 (pauses for cringes), you implemented a COM interface.
How do you do this in .NET?

Thanks

Scott

Nov 20 '05 #2
Will this work on an arraylist also?

"steve" <as*@abc.com> wrote in message
news:vn************@corp.supernews.com...
here's a simple example: (since everything is an object in .net, you don't
have to use variant enumeration but can strong type it instead)

'=============================================

sub main()
dim p as new parent
dim c as child
for each c in p.children
console.writeline("Index: " & c.index)
next
end sub

class parent

private myKids() as child

sub new()
redim myKids(2)
dim i as integer
for i = 0 to 2
myKids(i) = new child(i)
next
end sub

readonly property children() as child()
get
return myKids()
end get
end property

end class

class child

private myIndex as integer

sub new(byval index as integer)
myIndex = index
end sub

readonly property index() as integer
get
myIndex
end get
end property

end class

'=============================================

hth,

steve
"Scott Meddows" <sc******************@tsged.com> wrote in message
news:O8**************@TK2MSFTNGP12.phx.gbl...
How do I write an interface to a class that represents a group of objects like I would the controls object?

i.e.

I want to do this....

Dim simpleObject as new MyObjectGroup
Dim anObject as AnObjectInTheGroup

For each anObject in simpleObject
' Blah
Next

I remember in VB 6 (pauses for cringes), you implemented a COM interface. How do you do this in .NET?

Thanks

Scott


Nov 20 '05 #3
you mean just a list of text or whatever?

yes, you can make a property that returns a simple one dimensional array of
*any* object type and enumerate it to death.
"Scott Meddows" <sc******************@tsged.com> wrote in message
news:uO**************@TK2MSFTNGP09.phx.gbl...
Will this work on an arraylist also?

"steve" <as*@abc.com> wrote in message
news:vn************@corp.supernews.com...
here's a simple example: (since everything is an object in .net, you don't
have to use variant enumeration but can strong type it instead)

'=============================================

sub main()
dim p as new parent
dim c as child
for each c in p.children
console.writeline("Index: " & c.index)
next
end sub

class parent

private myKids() as child

sub new()
redim myKids(2)
dim i as integer
for i = 0 to 2
myKids(i) = new child(i)
next
end sub

readonly property children() as child()
get
return myKids()
end get
end property

end class

class child

private myIndex as integer

sub new(byval index as integer)
myIndex = index
end sub

readonly property index() as integer
get
myIndex
end get
end property

end class

'=============================================

hth,

steve
"Scott Meddows" <sc******************@tsged.com> wrote in message
news:O8**************@TK2MSFTNGP12.phx.gbl...
How do I write an interface to a class that represents a group of

objects like I would the controls object?

i.e.

I want to do this....

Dim simpleObject as new MyObjectGroup
Dim anObject as AnObjectInTheGroup

For each anObject in simpleObject
' Blah
Next

I remember in VB 6 (pauses for cringes), you implemented a COM interface. How do you do this in .NET?

Thanks

Scott



Nov 20 '05 #4
"Scott Meddows" <sc******************@tsged.com> scripsit:
How do I write an interface to a class that represents a group of objects
like I would the controls object?


Just implement the interface 'IEnumerable':

<http://msdn.microsoft.com/library/en-us/cpref/html/frlrfsystemcollectionsienumerableclasstopic.asp>

You will find a little sample here:

<http://makeashorterlink.com/?B34552FC4>

--
Herfried K. Wagner
MVP · VB Classic, VB.NET
<http://www.mvps.org/dotnet>
Nov 20 '05 #5
Thanks, Herfried.

But I have option strict on and I'm having a hard time implementing the
class.. This is what I have.

Class POs

Private m_pos as ArrayList ' this object holds a list of PO objects

... Code here
End Class

Class PO

... Code here
End Class

Where do I need to implement the interfaces in here? This is what I'm liek
to do.

Dim allPOs as new POs
Dim CurrentPO as PO
For each CurrentPO in allPO
'Blah
next

"Herfried K. Wagner [MVP]" <hi***************@gmx.at> wrote in message
news:OC*************@TK2MSFTNGP12.phx.gbl...
"Scott Meddows" <sc******************@tsged.com> scripsit:
How do I write an interface to a class that represents a group of objects like I would the controls object?
Just implement the interface 'IEnumerable':

<http://msdn.microsoft.com/library/en...mcollectionsie
numerableclasstopic.asp>
You will find a little sample here:

<http://makeashorterlink.com/?B34552FC4>

--
Herfried K. Wagner
MVP · VB Classic, VB.NET
<http://www.mvps.org/dotnet>

Nov 20 '05 #6
"Scott Meddows" <sc******************@tsged.com> schrieb
Thanks, Herfried.

But I have option strict on and I'm having a hard time implementing
the class.. This is what I have.

Class POs

Private m_pos as ArrayList ' this object holds a list of PO
objects

... Code here
End Class

Class PO

... Code here
End Class

Where do I need to implement the interfaces in here?
Class POs
Implements IEnumerable

Private m_pos as ArrayList ' this object holds a list of PO objects

... Code here
Public Function GetEnumerator() As System.Collections.IEnumerator _
Implements System.Collections.IEnumerable.GetEnumerator

return m_pos.getenumerator
End Function
End Class
This is what
I'm liek to do.
Dim allPOs as new POs
Dim CurrentPO as PO
For each CurrentPO in allPO
'Blah
next

--
Armin

Nov 20 '05 #7
Nevermind, thanks, though.

I don't quite understand the code, but with some "code dancing" I was able
to implement it.

Thanks a lot.

"Herfried K. Wagner [MVP]" <hi***************@gmx.at> wrote in message
news:OC*************@TK2MSFTNGP12.phx.gbl...
"Scott Meddows" <sc******************@tsged.com> scripsit:
How do I write an interface to a class that represents a group of objects like I would the controls object?
Just implement the interface 'IEnumerable':

<http://msdn.microsoft.com/library/en...mcollectionsie
numerableclasstopic.asp>
You will find a little sample here:

<http://makeashorterlink.com/?B34552FC4>

--
Herfried K. Wagner
MVP · VB Classic, VB.NET
<http://www.mvps.org/dotnet>

Nov 20 '05 #8
PERFECT SOLUTION!

Thanks, Armin.

"Armin Zingler" <az*******@freenet.de> wrote in message
news:O5**************@TK2MSFTNGP12.phx.gbl...
"Scott Meddows" <sc******************@tsged.com> schrieb
Thanks, Herfried.

But I have option strict on and I'm having a hard time implementing
the class.. This is what I have.

Class POs

Private m_pos as ArrayList ' this object holds a list of PO
objects

... Code here
End Class

Class PO

... Code here
End Class

Where do I need to implement the interfaces in here?


Class POs
Implements IEnumerable

Private m_pos as ArrayList ' this object holds a list of PO objects

... Code here
Public Function GetEnumerator() As System.Collections.IEnumerator _
Implements System.Collections.IEnumerable.GetEnumerator

return m_pos.getenumerator
End Function
End Class
This is what
I'm liek to do.


Dim allPOs as new POs
Dim CurrentPO as PO
For each CurrentPO in allPO
'Blah
next

--
Armin

Nov 20 '05 #9

This thread has been closed and replies have been disabled. Please start a new discussion.

Similar topics

1
by: Mohammed Mazid | last post by:
Can anyone please help me on how to move to the next and previous question? Here is a snippet of my code: Private Sub cmdNext_Click() End Sub Private Sub cmdPrevious_Click() showrecord
3
by: Stevey | last post by:
I have the following XML file... <?xml version="1.0"?> <animals> <animal> <name>Tiger</name> <questions> <question index="0">true</question> <question index="1">true</question> </questions>
7
by: nospam | last post by:
Ok, 3rd or is it the 4th time I have asked this question on Partial Types, so, since it seems to me that Partial Types is still in the design or development stages at Microsoft, I am going to ask...
3
by: Ekqvist Marko | last post by:
Hi, I have one Access database table including questions and answers. Now I need to give answer id automatically to questionID column. But I don't know how it is best (fastest) to do? table...
10
by: glenn | last post by:
I am use to programming in php and the way session and post vars are past from fields on one page through to the post page automatically where I can get to their values easily to write to a...
10
by: Rider | last post by:
Hi, simple(?) question about asp.net configuration.. I've installed ASP.NET 2.0 QuickStart Sample successfully. But, When I'm first start application the follow message shown. ========= Server...
53
by: Jeff | last post by:
In the function below, can size ever be 0 (zero)? char *clc_strdup(const char * CLC_RESTRICT s) { size_t size; char *p; clc_assert_not_null(clc_strdup, s); size = strlen(s) + 1;
56
by: spibou | last post by:
In the statement "a *= expression" is expression assumed to be parenthesized ? For example if I write "a *= b+c" is this the same as "a = a * (b+c)" or "a = a * b+c" ?
2
by: Allan Ebdrup | last post by:
Hi, I'm trying to render a Matrix question in my ASP.Net 2.0 page, A matrix question is a question where you have several options that can all be rated according to several possible ratings (from...
3
by: Zhang Weiwu | last post by:
Hello! I wrote this: ..required-question p:after { content: "*"; } Corresponding HTML: <div class="required-question"><p>Question Text</p><input /></div> <div...
0
by: DolphinDB | last post by:
Tired of spending countless mintues downsampling your data? Look no further! In this article, you’ll learn how to efficiently downsample 6.48 billion high-frequency records to 61 million...
0
isladogs
by: isladogs | last post by:
The next Access Europe meeting will be on Wednesday 6 Mar 2024 starting at 18:00 UK time (6PM UTC) and finishing at about 19:15 (7.15PM). In this month's session, we are pleased to welcome back...
1
isladogs
by: isladogs | last post by:
The next Access Europe meeting will be on Wednesday 6 Mar 2024 starting at 18:00 UK time (6PM UTC) and finishing at about 19:15 (7.15PM). In this month's session, we are pleased to welcome back...
0
by: Vimpel783 | last post by:
Hello! Guys, I found this code on the Internet, but I need to modify it a little. It works well, the problem is this: Data is sent from only one cell, in this case B5, but it is necessary that data...
0
by: jfyes | last post by:
As a hardware engineer, after seeing that CEIWEI recently released a new tool for Modbus RTU Over TCP/UDP filtering and monitoring, I actively went to its official website to take a look. It turned...
1
by: CloudSolutions | last post by:
Introduction: For many beginners and individual users, requiring a credit card and email registration may pose a barrier when starting to use cloud servers. However, some cloud server providers now...
1
by: Shællîpôpï 09 | last post by:
If u are using a keypad phone, how do u turn on JavaScript, to access features like WhatsApp, Facebook, Instagram....
0
by: af34tf | last post by:
Hi Guys, I have a domain whose name is BytesLimited.com, and I want to sell it. Does anyone know about platforms that allow me to list my domain in auction for free. Thank you
0
by: Faith0G | last post by:
I am starting a new it consulting business and it's been a while since I setup a new website. Is wordpress still the best web based software for hosting a 5 page website? The webpages will be...

By using Bytes.com and it's services, you agree to our Privacy Policy and Terms of Use.

To disable or enable advertisements and analytics tracking please visit the manage ads & tracking page.