Sharing forms between 2 menuitems and changing name property based on each selection using VB.Net 2003

Posted on 2006-11-28
Last Modified: 2010-04-23
I have a windows application (VS 2003) with a 2 menu item

Menu1 has the following submenus

Menu2 has the following submenus

Only one copy each of form1, form2 and form3 exist.
I want to be able to use the threee forms between the two submenus
so that when a user clicks on Menu1- form1 he gets this
and when a user clicks on Menu2 - form1 he still gets form1.
The name property should show where the form is been called.

I will be reading sqlconnection strings from the app.config file
and they each vary for Menu1 and Menu2(totally different)

How can I code this so that when the user clicks on Menu1 - form1,
the connectionstring from app.config is retrieved and when
user clicks on Menu2 - form1, another connection string from app.config is used.


Question by:Sirdots
  • 4
  • 3
  • 2
LVL 16

Expert Comment

ID: 18032291
Hi Sirdots,

in your menu item click event, set the name property of the form:

form1.Name = "Form1 - from menu1"

and from the other:

form1.Name = "Form1 - from menu2


Author Comment

ID: 18032327
Thanks Hillwaaa, Maybe I should explain better. I want to be able to determine where (i.e from which menuItem) the forms are been called. This is because

Menu1 - form1 has a different connection string

Menu2 - form2 has a differenct connection string.

I hope this helps.

LVL 16

Accepted Solution

Hillwaaa earned 500 total points
ID: 18032371
maybe something like

In form1

'declare variable
Dim calledFrom as String

'add sub
    Public Sub setCalledFrom(ByRef from As String)
        calledFrom = from
    End Sub

'in the onload:
if calledFrom = "Menu1" then
    'called from Menu1
    'called from Menu2
end if


and in the MenuItem click event, use:

form1.setCalledFrom("Menu1") or form1.setCalledFrom("Menu2") as appropriate.
Announcing the Most Valuable Experts of 2016

MVEs are more concerned with the satisfaction of those they help than with the considerable points they can earn. They are the types of people you feel privileged to call colleagues. Join us in honoring this amazing group of Experts.


Author Comment

ID: 18032484
Thanks Hilwaaaa. Now what does the ByRef "from"  stand for?
Am I going to pass the name of Menu1?
LVL 16

Expert Comment

ID: 18032512
No worries-  the "from" is just a string.

So when you click on Menu1 - form1, you would call the "setCalledFrom" function in form1 passing in this string, which can be whatever you want it to be, but the idea is that it indicates that the form was opened using Menu1.  This string then gets set to the "calledFrom" string - which should be a variable declared in form1.

Then when you are building your connection string, you can just use the IF statement to see if "calledFrom" indicates if the form was opened using menu1 or menu2.

Does that help?

Author Comment

ID: 18032669
Thanks. Now I am very close. What is happening is that I do not have access to the setCalledFrom("Menu1") if I do a  form1.setcalledFrom("Menu1")
from my menuclick event. I thought once I hit the dot it should give me the setCalledFrom in the intellisence but it is not doing that.

LVL 16

Expert Comment

ID: 18032967
Did you set the "setCalledFrom" sub as "private"? - this will prevent access from your menuclick.  If so, change it to "public" or "friend".

Expert Comment

by:Mohamed Zedan
ID: 18036781
May I suggest a different approach ?

in Form1 create a sub new(ConnectionString as string)
and that should be it !

Like so

public class Form1
'these are the new lines to add
              Private ConnString as string = string.empty
              Public sub New(ConnectionString as string) 'New In the form code
                     me.ConnString = ConnectionString
                     me.ConnectionVariable = new Connection(ConnString)

                     'where ConnectionVariable is  the name of the connection variable you have in the form
                     'new Connection --- should be new SqlConnection or whatever connection type you have in the form
              end sub

end class

in your menuItem Click event where you create the form do this

private sub Menu1Form1_click(sender as object, e as eventargs) handles
        dim frm as new form1("Menu1 Connection String should go here")
end sub

private sub Menu2Form1_click(sender as object, e as eventargs) handles
        dim frm as new form1("Menu2 Connection String should go here")
end sub

this should do it for you :)

Expert Comment

by:Mohamed Zedan
ID: 18036796
note that you need to reinitialize your database objects after setting the new connection string

Featured Post

Free Tool: Postgres Monitoring System

A PHP and Perl based system to collect and display usage statistics from PostgreSQL databases.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Title # Comments Views Activity
Crystal reports 2 54
Sql server insert 13 38
VB.NET 2008 Publish Error 2 34
VB.NET String Settings and Temp Folder Question 3 57
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…
It was really hard time for me to get the understanding of Delegates in C#. I went through many websites and articles but I found them very clumsy. After going through those sites, I noted down the points in a easy way so here I am sharing that unde…
Nobody understands Phishing better than an anti-spam company. That’s why we are providing Phishing Awareness Training to our customers. According to a report by Verizon, only 3% of targeted users report malicious emails to management. With compan…

821 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