Class initiation problem - really simple to solve I would imagine

Posted on 2006-11-22
Medium Priority
Last Modified: 2010-04-23
Hi All,

I am new to VB.NET 2005 programming and tried to create a class and then call if from the click event of a button. I think I have defined it correctly, but VS will not let me compile it saying there is an error. Please could somebody point out what I need to do to fix it.

Here is the class:
Public Class clsGameSequence

    Private m_objSequence() As String

    Public Property objSequence() As Array
            Return m_objSequence
        End Get
        Set(ByVal objTempArray As Array)
            m_objSequence = objRandSequence(objTempArray)
        End Set
    End Property

    Private Function objRandSequence(ByVal objSourceArray() As String) As String()
        Dim objReturnArray(objSourceArray.GetUpperBound(0)) As String
        Array.Copy(objSourceArray, objReturnArray, objSourceArray.Length)

        Dim ranR As New Random
        Dim intIndex As Integer
        Dim strTemp As String
        For i As Integer = 0 To objReturnArray.Length - 1
            intIndex = ranR.Next(0, objReturnArray.Length)
            strTemp = objReturnArray(i)
            objReturnArray(i) = objReturnArray(intIndex)
            objReturnArray(intIndex) = strTemp

        Return objReturnArray
    End Function

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim origArray() As String = {"Ann", "Bob", "Cole", "Doug", "Eric", "Fran", "Greg", "Hope"}
        Dim randArray() As String = objSequence(origArray)

        Debug.Print(String.Join(", ", origArray))
        Debug.Print(String.Join(", ", randArray))
    End Sub
End Class

**** and this is how I call it on the click event in the form
    Private Sub RandomSequenceToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RandomSequenceToolStripMenuItem.Click
        Dim origArray() As String = {"Ann", "Bob", "Cole", "Doug", "Eric", "Fran", "Greg", "Hope"}

        Dim newRand As clsGameSequence
        newRand = New clsGameSequence()

        Dim randArray() As String = objSequence(origArray)

        Debug.Print(String.Join(", ", origArray))
        Debug.Print(String.Join(", ", randArray))

    End Sub

It's not too clear here but I am sure if you copied it into your fav IDE it would color it all nice.

Thanks in advance!
Question by:eadam-uk
  • 3
  • 2
LVL 13

Accepted Solution

newyuppie earned 2000 total points
ID: 17998251
well for starters, i could point out that in this line of the RandomSequenceToolStripMenuItem_Click call,


you may be meaning to do this instead:

newRand.objSequence = origArray

Author Comment

ID: 17998339
Ok, so there is no "Set" method as such it just depends on which side of the '=' sign you put the call. Above it sets it and if I were do do origArray = newRand.objSequence would be the get method.
LVL 13

Expert Comment

ID: 17998360
exactly. but, are you asking something or just acknowledging? does it work with that change?

Author Comment

ID: 17998444
Just clarifying that bit. Using my new found knowledge, I changed this statement too:

Dim randArray() As String = objSequence(origArray)
Dim randArray() As String = newRand.objSequence

(incase anyone wants to know)

Thanks newyuppie for your help, full points to you!
LVL 13

Expert Comment

ID: 17998458
thanks! glad it worked out

Featured Post

Hire Technology Freelancers with Gigs

Work with freelancers specializing in everything from database administration to programming, who have proven themselves as experts in their field. Hire the best, collaborate easily, pay securely, and get projects done right.

Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

Well, all of us have seen the multiple EXCEL.EXE's in task manager that won't die even if you call the .close, .dispose methods. Try this method to kill any excels in memory. You can copy the kill function to create a check function and replace the …
I think the Typed DataTable and Typed DataSet are very good options when working with data, but I don't like auto-generated code. First, I create an Abstract Class for my DataTables Common Code.  This class Inherits from DataTable. Also, it can …
The video will let you know the exact process to import OST/PST files to the cloud based Office 365 mailboxes. Using Kernel Import PST to Office 365 tool, one can quickly import numerous OST/PST files to Office 365. Besides this, the tool also comes…
In the video, one can understand the process of resizing images in single or bulk. Kernel Bulk Image Resizer is an easy to use tool for resizing large number of images. One can add and resize multiple images with this tool in single go. The video sh…

607 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question