Application.Run(form1)

[thomasp]

Using VB2005 Beta 2

If I use Application.Run(New Form1) in the below code.
Then code like TAM.Form1.rtbAllAcq.Text = aryStatistics(0) that
is used to update a richtextbox on Form1 does not work. There
is now error but the contents never change. If I use Application.Run(Form1)
then all works fine. I assume that this is because New creates a new form
that TAM.Form1 does
not reference. Is this correct? Will the following code cause me problems
later because I do not use
New?

Thanks,

Thomas

Public Class clsMain
Public Shared Sub Main()

Try
Application.Run(Form1)
Catch ex As Exception
Response = MessageBox.Show("Error.")
End Try

End Sub
End Class

--
Posted via NewsDemon.com - Premium Uncensored Newsgroup Service
------->>>>>>http://www.NewsDemon.com<<<<<<------
Unlimited Access, Anonymous Accounts, Uncensored Broadband Access

[alantolan]

Form1 (presumably) is a class name (a type) and thus will not work with
Application.Run(). As noted you need to use Application.Run(new Form1).

Not too sure what TAM is - namespace? project name?

I cannot get something of the form

<Type>.<ControlName>.<Property>

to even compile unless I go in and manually change the generated code
to make it Shared.

This is bad/wrong is so many ways.
What are you trying to do with

TAM.Form1.rtbAllAcq.Text = aryStatistics(0)

what you need to address it this way?
Also, I would recommend turning on both Option Explicit and Option
Strict ON.

{For
Response = MessageBox.Show("Error.")
to compile, Option Explicit must be off which means Option Strict is
probably off too)
Yes, they will make you life harder up front but they are good
defensive programming and will help you long term.

Alan.

[thomasp]

Alan,

Application.Run(Form1).
This works perfect, but I don't know that it is correct.

Not too sure what TAM is - namespace? project name?
TAM is the project name

What are you trying to do with

TAM.Form1.rtbAllAcq.Text = aryStatistics(0)

This updates the richtextbox rtbAllAcq with the text in the string variable
aryStatistics(0), if this is not correct how do I assign a value to a
control in one form when the code is located in another form or a module?
Thanks,

Thomas

--
Posted via NewsDemon.com - Premium Uncensored Newsgroup Service
------->>>>>>http://www.NewsDemon.com<<<<<<------
Unlimited Access, Anonymous Accounts, Uncensored Broadband Access

[alantolan]

Something strange here.

I have a form class

Public Class frmBitwise

I have a code snippet

...
dim mainForm as new frmBitwise
Application.Run(mainForm)
...

This works fine and I would expect it too - Application.Run() takes a
form as a parameter

If I change it to

Application.Run(frmBitwise)

then it does not compile, I get a

' frmBitwise is a type and cannot be used as an expression'

error.

- If Form1 is a type then I don't see how you are not getting this
error.
- if Form1 is a variable, then where is it declared/initialized?

As for communicating between forms there are LOTS of threads in the NG
about this.

There are a few general solutions but which one to use depends upon the
particular situation
Is it a sub-form/pop-up trying to interact with it's parent?
Does one have multiple siblings that need to update or reflect
changes in each other?
Does one have multiple children to be updated by the parent? Or the
parent updated by the children?
Personal opinion, I would avoid using global variables (say, stored in
a module ) to store the references to each form. As a solution, it
works within a certain size/complexity range but eventually (if one
keeps adding functionality) it fails. Too many pieces know about and
can interact with each other, and do.
Structure the system so that sub-systems only know about and can
interact with those pieces with which they need to.
For simple child/parent situations one can use the owner property

Parent
dim child as new ChildForm
child.owner = me
child.show()
Child
DirectCast(me.owner,Parent).DoSomething()

Have a look through the NG for other threads on this topic

hth

Alan.

[Phill. W]

<th*****@msala.net> wrote in message
news:43**********************@news.newsdemon.com.. .

If I use Application.Run(New Form1) in the below code.
New Form1 creates a new *object* of /Type/ Form1.
This object is passed to the Application.Run method.
Then code like TAM.Form1.rtbAllAcq.Text = aryStatistics(0)

There is no "Global" reference to Form1 any more (that ended with
VB6). You must use a variable to hold a reference to the Form1
*object*, so you can use it elsewhere in the project or, better
still, pass the Form object (or Control) between methods.

' Reinventing Global Form1 - inadvisable, but will work.
Global frmOne as Form1

Sub Main()
frmOne = New Form1
Application.Run( frmOne )
End Sub

' Passing things around ...

Public Class Form1
. . .
Public Property AllAcqText() as String
Get
Return rtbAllAcq.Text
End Get
Set( Value as String )
rtbAllAcq.Text = Value
End Set
End Property
. . .
End Class

[Module1.vb]
Module OtherCode

Public Sub LoadFromArray( _
ByVal oaForm as Form1 _
, ByVal oaData as SomeSortOfArray _
)
oaForm.AllAcqText = oaData( 0 )
End Sub

End Module

Then

LoadFromArray( frmOne, aryStatistics )

HTH,
Phill W.