Solved

setting property on a form from a class

Posted on 2004-04-29
9
315 Views
Last Modified: 2010-04-24
I've searched the archive here, but stil am a little confused. I uderstand the concept of OO to some degree, but isn't "text" a property of a label? I have a form that is currently open and active. I drop into a class to do some work, but want to update the status of the work in a label on the form. Shouldn't I just be able to set the property of label.text on the form to what I want without all that other code? It looks like a lot of work to simply set a property.

In short, my question is how to set the text property of a label on an active form with a value, from within another class, without 25 lines of code. For the purists of you out there, I realize the old method may not have been true OO, but darn if it wasn't simple.
0
Comment
Question by:thefunnydad
9 Comments
 
LVL 21

Expert Comment

by:tovvenki
ID: 10947744
Hi,
if you have an instance of the form in the class then you can just set the text property like

forminstance.Label1.Text = "some value"

hope that this helps you.

Regards,
Venki
0
 

Author Comment

by:thefunnydad
ID: 10947785
Well, that seems to be where I am in new territory; how to set the instance properly. I have tried the ways I am familiar with, but I always have to end up declaring it as "new" and I don't need a new instance, I need to reference the one already created. Could you throw me the bone on that then; how to set an instance to a form/class already active?

Thanks.
0
 
LVL 25

Expert Comment

by:RonaldBiemans
ID: 10947788
0
 
LVL 21

Expert Comment

by:tovvenki
ID: 10947910
Hi,

try this
in class say Class1

Public Class Class1
    Dim parent As Form1
    Public Sub New(ByRef frm As Form1)
        parent = frm
        MyMethod()
    End Sub

    Public Sub MyMethod()
        parent.Label1.Text = "MyText"
    End Sub


End Class

in form1 (say in a button click event) use

        Dim cls As Class1
        cls = New Class1(Me)

I Hope that this helps you.

Regards,
Venki
0
IT, Stop Being Called Into Every Meeting

Highfive is so simple that setting up every meeting room takes just minutes and every employee will be able to start or join a call from any room with ease. Never be called into a meeting just to get it started again. This is how video conferencing should work!

 

Author Comment

by:thefunnydad
ID: 10948226
Color me stupid; based upon the link here is what I did:

I added the following the the start-up form load event:

MainForm = Me


Then in the top of the class, I Added:

Public MainForm as {start-up form}

In the procedure, I added:

MainForm = New {start-up form}

finally, I tried:

MainForm.Label.text = "abc"

Doesn't show on the form.

Can I make something so easy hard or what?
0
 
LVL 21

Accepted Solution

by:
tovvenki earned 500 total points
ID: 10948530
Hi,
 I assume that the procedure that you are mentioning here
"In the procedure, I added:

MainForm = New {start-up form}"

is in the class if yes change it to
Public Sub MyMethod(ByRef frm As Form1)
        MainForm = frm
    End Sub

now you can try from any method in the class and set the label text like

MainForm.Label.text = "abc"

when you say
"In the procedure, I added:

MainForm = New {start-up form} "
this will create a new instance of the start-up form and not the one that you are using i.e the Active form. If you want to use the active form then you need to pass a reference of the active form to the class assign that instance to a variable in the class and then you can manipulate the active form from within your class.

Hope that this helps you.
Regards,
Venki




0
 

Author Comment

by:thefunnydad
ID: 10948692
OK, I was able to get it to work, but blending what you gave me with what I had. What I ended up doing was this

I was calling a function in the class from within the form, so I added ByRef frm As Form1 to the list of incoming params expected in the function, then when I made the call, passed me. This did it wthout having to set any other references in the class.


Form1
Public Sub Button1_click
class1.RunReport(param,param,me)
end sub

Class1

Public Function RunReport (Byval param as string, ByVal param as string, byRef MainForm as Form1) as boolean

MainForm1.label.text = "abc"

RunReport = True

end function
0
 
LVL 11

Expert Comment

by:rdrunner
ID: 10948732
The difference between VB and VB.NET is that VB was implicitly creating a form object for you...

You really had a "form1" Object which was an instance of the "Form1" Class... Thats what allowed you to use

Form1.lable1.caption = "Hello World"
(this was basically cheating)

Now in VB.NET you have a "scope" for every variable... This includes your forms, your classes and everything.

So basically your "class" only knows whats below it or which objects are explicitly made known.

In your example try

MainForm.Label.text = "abc"
MainForm.show

This should most likely pop up a 2nd Form which is another instance of your Startup form. In reality you made a new form which is (still) invisible and needs to be shown
0
 

Author Comment

by:thefunnydad
ID: 10948754
And to make it ALL moot; the function I wss calling from within the class was work to be done as a result of a click on the main form. SO, set the text property for the label on the form to "abc" BEFORE calling the class, then reset it to "whatever" when you return and the work is complete. {sigh} sometimes the freakin trees get in the way.


Thanks all
0

Featured Post

Highfive + Dolby Voice = No More Audio Complaints!

Poor audio quality is one of the top reasons people don’t use video conferencing. Get the crispest, clearest audio powered by Dolby Voice in every meeting. Highfive and Dolby Voice deliver the best video conferencing and audio experience for every meeting and every room.

Join & Write a Comment

Article by: jpaulino
XML Literals are a great way to handle XML files and the community doesn’t use it as much as it should.  An XML Literal is like a String (http://msdn.microsoft.com/en-us/library/system.string.aspx) Literal, only instead of starting and ending with w…
Article by: Kraeven
Introduction Remote Share is a simple remote sharing tool, enabling you to see, add and remove remote or local shares. The application is written in VB.NET targeting the .NET framework 2.0. The source code and the compiled programs have been in…
This demo shows you how to set up the containerized NetScaler CPX with NetScaler Management and Analytics System in a non-routable Mesos/Marathon environment for use with Micro-Services applications.
This video explains how to create simple products associated to Magento configurable product and offers fast way of their generation with Store Manager for Magento tool.

760 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

Need Help in Real-Time?

Connect with top rated Experts

19 Experts available now in Live!

Get 1:1 Help Now