How do I make this work?

[Ron]

I have a couple of questions about this class.....:
Public Class WordPair
Private word1 As String
Private word2 As String
Public Sub New()
word1 = ""
word2 = ""
End Sub
Public Sub New(ByVal w1 As String, ByVal w2 As String)
word1 = w1
word2 = w2
End Sub
Public Property first() As String
Get
Return word1
End Get
Set(ByVal w1 As String)
word1 = w1
End Set
End Property
Public Property second() As String
Get
Return word2
End Get
Set(ByVal w2 As String)
word2 = w2
End Set
End Property
Public Function isFull() As Boolean
'Determines if a WordPair object contains both words
End Function

I then have a form that has a button, display, a testbox and a
label. I want to give the class an object called ones and then
twoes

I then want to fill ones word1 with smoke and word2 with alarm
After the pressing the button the label would display word1 and word2,
but they would actually have the values smoke and alarm in them/?

How do I do something like this?

[Cor Ligthert [MVP]]

Homework?

"Ron" <pt*****@yahoo.comschreef in bericht
news:11**********************@p10g2000cwp.googlegr oups.com...

>I have a couple of questions about this class.....:
Public Class WordPair
Private word1 As String
Private word2 As String
Public Sub New()
word1 = ""
word2 = ""
End Sub
Public Sub New(ByVal w1 As String, ByVal w2 As String)
word1 = w1
word2 = w2
End Sub
Public Property first() As String
Get
Return word1
End Get
Set(ByVal w1 As String)
word1 = w1
End Set
End Property
Public Property second() As String
Get
Return word2
End Get
Set(ByVal w2 As String)
word2 = w2
End Set
End Property
Public Function isFull() As Boolean
'Determines if a WordPair object contains both words
End Function

I then have a form that has a button, display, a testbox and a
label. I want to give the class an object called ones and then
twoes

I then want to fill ones word1 with smoke and word2 with alarm
After the pressing the button the label would display word1 and word2,
but they would actually have the values smoke and alarm in them/?

How do I do something like this?

[Ron]

Yes sort of although not for a grade just to learn classes, i just
dont know where to start with this.
On Feb 15, 3:51 pm, "Cor Ligthert [MVP]" <[e-mail]>
wrote:

Homework?

"Ron" <[e-mail] in berichtnews:11**********************@p10g2000cwp.g ooglegroups.com...

I have a couple of questions about this class.....:
Public Class WordPair
Private word1 As String
Private word2 As String
Public Sub New()
word1 = ""
word2 = ""
End Sub
Public Sub New(ByVal w1 As String, ByVal w2 As String)
word1 = w1
word2 = w2
End Sub
Public Property first() As String
Get
Return word1
End Get
Set(ByVal w1 As String)
word1 = w1
End Set
End Property
Public Property second() As String
Get
Return word2
End Get
Set(ByVal w2 As String)
word2 = w2
End Set
End Property
Public Function isFull() As Boolean
'Determines if a WordPair object contains both words
End Function

I then have a form that has a button, display, a testbox and a
label. I want to give the class an object called ones and then
twoes

I then want to fill ones word1 with smoke and word2 with alarm
After the pressing the button the label would display word1 and word2,
but they would actually have the values smoke and alarm in them/?

How do I do something like this?- Hide quoted text -

- Show quoted text -

[RobinS]

You need to instantiate your new class, and you can use your constructor
that takes both arguments; then you can access the properties [first] and
[second] for that object.

ones = new WordPair("smoke", "alarm")
debug.print(ones.first) --smoke
debug.print(ones.second) --alarm

Robin S.
-------------------------------
"Ron" <pt*****@yahoo.comwrote in message
news:11*********************@s48g2000cws.googlegro ups.com...

Yes sort of although not for a grade just to learn classes, i just
dont know where to start with this.
On Feb 15, 3:51 pm, "Cor Ligthert [MVP]" <[e-mail]>
wrote:

>Homework?

"Ron" <[e-mail] in
berichtnews:11**********************@p10g2000cwp. googlegroups.com...

>I have a couple of questions about this class.....:
Public Class WordPair
Private word1 As String
Private word2 As String
Public Sub New()
word1 = ""
word2 = ""
End Sub
Public Sub New(ByVal w1 As String, ByVal w2 As String)
word1 = w1
word2 = w2
End Sub
Public Property first() As String
Get
Return word1
End Get
Set(ByVal w1 As String)
word1 = w1
End Set
End Property
Public Property second() As String
Get
Return word2
End Get
Set(ByVal w2 As String)
word2 = w2
End Set
End Property
Public Function isFull() As Boolean
'Determines if a WordPair object contains both words
End Function

I then have a form that has a button, display, a testbox and a
label. I want to give the class an object called ones and then
twoes

I then want to fill ones word1 with smoke and word2 with alarm
After the pressing the button the label would display word1 and word2,
but they would actually have the values smoke and alarm in them/?

How do I do something like this?- Hide quoted text -

- Show quoted text -

[Ron]

Here is what I did, I created a new module and did this:
Module word
Dim ones As New WordPair
Dim twos As New WordPair
wordpair.ones = ("","")
wordpair.twos=("smoke","alarm")

End Module

What it is doing now is underlining in blue WORDPAIR and says
decleration expected ?
On Feb 15, 7:00 pm, "RobinS" <[e-mail]:

You need to instantiate your new class, and you can use your constructor
that takes both arguments; then you can access the properties [first] and
[second] for that object.

ones = new WordPair("smoke", "alarm")
debug.print(ones.first) --smoke
debug.print(ones.second) --alarm

Robin S.
-------------------------------"Ron" <[e-mail] in message

news:11*********************@s48g2000cws.googlegro ups.com...

Yes sort of although not for a grade just to learn classes, i just
dont know where to start with this.

On Feb 15, 3:51 pm, "Cor Ligthert [MVP]" <[e-mail]>
wrote:

Homework?

"Ron" <[e-mail] in
berichtnews:11**********************@p10g2000cwp.g ooglegroups.com...

I have a couple of questions about this class.....:
Public Class WordPair
Private word1 As String
Private word2 As String
Public Sub New()
word1 = ""
word2 = ""
End Sub
Public Sub New(ByVal w1 As String, ByVal w2 As String)
word1 = w1
word2 = w2
End Sub
Public Property first() As String
Get
Return word1
End Get
Set(ByVal w1 As String)
word1 = w1
End Set
End Property
Public Property second() As String
Get
Return word2
End Get
Set(ByVal w2 As String)
word2 = w2
End Set
End Property
Public Function isFull() As Boolean
'Determines if a WordPair object contains both words
End Function

I then have a form that has a button, display, a testbox and a
label. I want to give the class an object called ones and then
twoes

I then want to fill ones word1 with smoke and word2 with alarm
After the pressing the button the label would display word1 and word2,
but they would actually have the values smoke and alarm in them/?

How do I do something like this?- Hide quoted text -

- Show quoted text -- Hide quoted text -

- Show quoted text -

[RobinS]

You have to tell it what you're defining them as before "new-ing" them.

Dim ones as WordPair = New WordPair()
Dim twos as WordPair = New WordPair()

Robin S.
--------------------------

"Ron" <pt*****@yahoo.comwrote in message
news:11********************@a75g2000cwd.googlegrou ps.com...

Here is what I did, I created a new module and did this:
Module word
Dim ones As New WordPair
Dim twos As New WordPair
wordpair.ones = ("","")
wordpair.twos=("smoke","alarm")

End Module

What it is doing now is underlining in blue WORDPAIR and says
decleration expected ?
On Feb 15, 7:00 pm, "RobinS" <[e-mail]:

>You need to instantiate your new class, and you can use your constructor
that takes both arguments; then you can access the properties [first]
and
[second] for that object.

ones = new WordPair("smoke", "alarm")
debug.print(ones.first) --smoke
debug.print(ones.second) --alarm

Robin S.
-------------------------------"Ron" <[e-mail] in
message

news:11*********************@s48g2000cws.googlegr oups.com...

Yes sort of although not for a grade just to learn classes, i just
dont know where to start with this.

On Feb 15, 3:51 pm, "Cor Ligthert [MVP]" <[e-mail]>
wrote:
Homework?

>"Ron" <[e-mail] in
berichtnews:11**********************@p10g2000cwp. googlegroups.com...

>I have a couple of questions about this class.....:
Public Class WordPair
Private word1 As String
Private word2 As String
Public Sub New()
word1 = ""
word2 = ""
End Sub
Public Sub New(ByVal w1 As String, ByVal w2 As String)
word1 = w1
word2 = w2
End Sub
Public Property first() As String
Get
Return word1
End Get
Set(ByVal w1 As String)
word1 = w1
End Set
End Property
Public Property second() As String
Get
Return word2
End Get
Set(ByVal w2 As String)
word2 = w2
End Set
End Property
Public Function isFull() As Boolean
'Determines if a WordPair object contains both words
End Function

I then have a form that has a button, display, a testbox and a
label. I want to give the class an object called ones and then
twoes

I then want to fill ones word1 with smoke and word2 with alarm
After the pressing the button the label would display word1 and
word2,
but they would actually have the values smoke and alarm in them/?

How do I do something like this?- Hide quoted text -

>- Show quoted text -- Hide quoted text -

- Show quoted text -

[Ron]

OK thanks that makes sense.
So what if I want to display Smoke and Alarm, those values in a label
do I just:
labelword.text = "1st word =" & word1 & "2nd word =" & word2 ?
On Feb 15, 10:35 pm, "RobinS" <[e-mail]:

You have to tell it what you're defining them as before "new-ing" them.

Dim ones as WordPair = New WordPair()
Dim twos as WordPair = New WordPair()

Robin S.
--------------------------

"Ron" <[e-mail] in message

news:11********************@a75g2000cwd.googlegrou ps.com...

Here is what I did, I created a new module and did this:
Module word
Dim ones As New WordPair
Dim twos As New WordPair
wordpair.ones = ("","")
wordpair.twos=("smoke","alarm")

End Module

What it is doing now is underlining in blue WORDPAIR and says
decleration expected ?

On Feb 15, 7:00 pm, "RobinS" <[e-mail]:

You need to instantiate your new class, and you can use your constructor
that takes both arguments; then you can access the properties [first]
and
[second] for that object.

ones = new WordPair("smoke", "alarm")
debug.print(ones.first) --smoke
debug.print(ones.second) --alarm

Robin S.
-------------------------------"Ron" <[e-mail] in
message

>news:11*********************@s48g2000cws.googlegr oups.com...

Yes sort of although not for a grade just to learn classes, i just
dont know where to start with this.

On Feb 15, 3:51 pm, "Cor Ligthert [MVP]" <[e-mail]>
wrote:
Homework?

"Ron" <[e-mail] in
berichtnews:11**********************@p10g2000cwp.g ooglegroups.com...

I have a couple of questions about this class.....:
Public Class WordPair
Private word1 As String
Private word2 As String
Public Sub New()
word1 = ""
word2 = ""
End Sub
Public Sub New(ByVal w1 As String, ByVal w2 As String)
word1 = w1
word2 = w2
End Sub
Public Property first() As String
Get
Return word1
End Get
Set(ByVal w1 As String)
word1 = w1
End Set
End Property
Public Property second() As String
Get
Return word2
End Get
Set(ByVal w2 As String)
word2 = w2
End Set
End Property
Public Function isFull() As Boolean
'Determines if a WordPair object contains both words
End Function

I then have a form that has a button, display, a testbox and a
label. I want to give the class an object called ones and then
twoes

I then want to fill ones word1 with smoke and word2 with alarm
After the pressing the button the label would display word1 and
word2,
but they would actually have the values smoke and alarm in them/?

How do I do something like this?- Hide quoted text -

- Show quoted text -- Hide quoted text -

- Show quoted text -- Hide quoted text -

- Show quoted text -

[RobinS]

No, word1 and word2 are private within the class. Go back down and look at
my example that prints out the results.

Robin S.
-----------------------------------
"Ron" <pt*****@yahoo.comwrote in message
news:11**********************@v45g2000cwv.googlegr oups.com...

OK thanks that makes sense.
So what if I want to display Smoke and Alarm, those values in a label
do I just:
labelword.text = "1st word =" & word1 & "2nd word =" & word2 ?
On Feb 15, 10:35 pm, "RobinS" <[e-mail]:

>You have to tell it what you're defining them as before "new-ing" them.

Dim ones as WordPair = New WordPair()
Dim twos as WordPair = New WordPair()

Robin S.
--------------------------

"Ron" <[e-mail] in message

news:11********************@a75g2000cwd.googlegro ups.com...

Here is what I did, I created a new module and did this:
Module word
Dim ones As New WordPair
Dim twos As New WordPair
wordpair.ones = ("","")
wordpair.twos=("smoke","alarm")

End Module

What it is doing now is underlining in blue WORDPAIR and says
decleration expected ?

On Feb 15, 7:00 pm, "RobinS" <[e-mail]:
You need to instantiate your new class, and you can use your
constructor
that takes both arguments; then you can access the properties [first]
and
[second] for that object.

> ones = new WordPair("smoke", "alarm")
debug.print(ones.first) --smoke
debug.print(ones.second) --alarm

>Robin S.
-------------------------------"Ron" <[e-mail] in
message

>>news:11*********************@s48g2000cws.googleg roups.com...

Yes sort of although not for a grade just to learn classes, i just
dont know where to start with this.

On Feb 15, 3:51 pm, "Cor Ligthert [MVP]" <[e-mail]>
wrote:
Homework?

>"Ron" <[e-mail] in
berichtnews:11**********************@p10g2000cwp. googlegroups.com...

>I have a couple of questions about this class.....:
Public Class WordPair
Private word1 As String
Private word2 As String
Public Sub New()
word1 = ""
word2 = ""
End Sub
Public Sub New(ByVal w1 As String, ByVal w2 As String)
word1 = w1
word2 = w2
End Sub
Public Property first() As String
Get
Return word1
End Get
Set(ByVal w1 As String)
word1 = w1
End Set
End Property
Public Property second() As String
Get
Return word2
End Get
Set(ByVal w2 As String)
word2 = w2
End Set
End Property
Public Function isFull() As Boolean
'Determines if a WordPair object contains both words
End Function

I then have a form that has a button, display, a testbox and a
label. I want to give the class an object called ones and
then
twoes

I then want to fill ones word1 with smoke and word2 with alarm
After the pressing the button the label would display word1 and
word2,
but they would actually have the values smoke and alarm in
them/?

How do I do something like this?- Hide quoted text -

>- Show quoted text -- Hide quoted text -

>- Show quoted text -- Hide quoted text -

- Show quoted text -