singleton class help needed (repost from vsnet.general posted the

[Mike]

Please help this is driving me nuts. I have 2 forms, 1 user class and I am
trying to implement a singleton class. Form 1 should create a user object
and populate some properties in user. Form2 should then have access to those
user properties. I am not getting the property value from user that was set
in form1.

Sorry for posting so much code but I need help bad. How do i make this work?

Thanks
Mike
'Form1.vb
'--------------------
Public Class Form1
Inherits System.Windows. Forms.Form
Dim m_User As New User
Public Property MyUser() As User
Get
Return m_User
End Get
Set(ByVal value As User)
m_User = value
End Set
End Property

#Region " Windows Form Designer generated code "

Public Sub New()
MyBase.New()

'This call is required by the Windows Form Designer.
InitializeCompo nent()

'Add any initialization after the InitializeCompo nent() call

End Sub

'Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Disp ose()
End If
End If
MyBase.Dispose( disposing)
End Sub

'Required by the Windows Form Designer
Private components As System.Componen tModel.IContain er

'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
Friend WithEvents Button1 As System.Windows. Forms.Button
Friend WithEvents TextBox1 As System.Windows. Forms.TextBox
<System.Diagnos tics.DebuggerSt epThrough()> Private Sub
InitializeCompo nent()
Me.Button1 = New System.Windows. Forms.Button
Me.TextBox1 = New System.Windows. Forms.TextBox
Me.SuspendLayou t()
'
'Button1
'
Me.Button1.Loca tion = New System.Drawing. Point(88, 136)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing. Size(120, 32)
Me.Button1.TabI ndex = 0
Me.Button1.Text = "Button1"
'
'TextBox1
'
Me.TextBox1.Loc ation = New System.Drawing. Point(64, 56)
Me.TextBox1.Nam e = "TextBox1"
Me.TextBox1.Siz e = New System.Drawing. Size(168, 20)
Me.TextBox1.Tab Index = 1
Me.TextBox1.Tex t = "TextBox1"
'
'Form1
'
Me.AutoScaleBas eSize = New System.Drawing. Size(5, 13)
Me.ClientSize = New System.Drawing. Size(292, 273)
Me.Controls.Add (Me.TextBox1)
Me.Controls.Add (Me.Button1)
Me.Name = "Form1"
Me.Text = "Form1"
Me.ResumeLayout (False)

End Sub

#End Region

Private Sub Form1_Load(ByVa l sender As System.Object, ByVal e As
System.EventArg s) Handles MyBase.Load

End Sub

Private Sub Button1_Click(B yVal sender As System.Object, ByVal e As
System.EventArg s) Handles Button1.Click

MyUser.login = Me.TextBox1.Tex t.ToString

Dim Form2 As New Form2
Form2.ShowDialo g()
End Sub
End Class

'Form2.vb
'------------------------

Public Class Form2
Inherits System.Windows. Forms.Form
#Region " Windows Form Designer generated code "

Public Sub New()
MyBase.New()

'This call is required by the Windows Form Designer.
InitializeCompo nent()

'Add any initialization after the InitializeCompo nent() call

End Sub

'Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Disp ose()
End If
End If
MyBase.Dispose( disposing)
End Sub

'Required by the Windows Form Designer
Private components As System.Componen tModel.IContain er

'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
Friend WithEvents frm2textbox As System.Windows. Forms.TextBox
Friend WithEvents Button1 As System.Windows. Forms.Button
<System.Diagnos tics.DebuggerSt epThrough()> Private Sub
InitializeCompo nent()
Me.frm2textbox = New System.Windows. Forms.TextBox
Me.Button1 = New System.Windows. Forms.Button
Me.SuspendLayou t()
'
'frm2textbox
'
Me.frm2textbox. Location = New System.Drawing. Point(64, 80)
Me.frm2textbox. Name = "frm2textbo x"
Me.frm2textbox. Size = New System.Drawing. Size(168, 20)
Me.frm2textbox. TabIndex = 0
Me.frm2textbox. Text = "TextBox1"
'
'Button1
'
Me.Button1.Loca tion = New System.Drawing. Point(88, 152)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing. Size(112, 32)
Me.Button1.TabI ndex = 1
Me.Button1.Text = "Button1"
'
'Form2
'
Me.AutoScaleBas eSize = New System.Drawing. Size(5, 13)
Me.ClientSize = New System.Drawing. Size(292, 273)
Me.Controls.Add (Me.Button1)
Me.Controls.Add (Me.frm2textbox )
Me.Name = "Form2"
Me.Text = "Form2"
Me.ResumeLayout (False)

End Sub

#End Region


Private Sub Form2_Load(ByVa l sender As System.Object, ByVal e As
System.EventArg s) Handles MyBase.Load


End Sub

Private Sub Button1_Click(B yVal sender As System.Object, ByVal e As
System.EventArg s) Handles Button1.Click
Dim ThisUser As User = MySingletonClas s.MyForm1.MyUse r
MessageBox.Show (ThisUser.login )
End Sub
End Class

'user.vb
'----------------------------
Public Class User
'private fields exposed as properties
Private _login As String

Public Property login() As String
Get
Return _login
End Get
Set(ByVal Value As String)
_login = Value
End Set
End Property
End Class

'MySingleton.vb
'------------------------

Public Class MySingletonClas s
Private Shared m_Form1 As Form1
Public Shared Function MyForm1()
If IsNothing(m_For m1) Then
m_Form1 = New Form1
Return m_Form1
Else
Return m_Form1
End If
End Function
End Class
Was this post helpful to

[shiv_koirala]

Hi
Looks like you are getting messy somewhere.In form1 you are creating
object of User class which is not shared. In form2 you are trying to
access MySingletonClas s which is definetly shared but the user objects
are different.

I think just make the user class property shared everything will be
fine. If you want solve it by this way then

Private Sub Button1_Click(B yVal sender As System.Object, ByVal e As
System.EventArg s) Handles Button1.Click
MyUser1.login = Me.TextBox1.Tex t.ToString
// Add this
MySingletonClas s.MyForm1.MyUse *r = Myuser1

Dim Form2 As New Form2
Form2.ShowDialo g()
End Sub
End Class

Shivprasad Koirala
C# , VB.NET , SQL SERVER , ASP.NET Interview Questions
http://www.geocities.com/dotnetinterviews/

[Nick Malik [Microsoft]]

The singleton is supposed to contain the object that you want to share.
Your singleton contains Form1. Is Form1 the object you want to share? I
thought that User was the object you wanted to share.

So, to fix the singleton, have it manage the creation of User objects. You
will need to remove any uses of "new User" from any other class (including
Form1, where it occurs about four lines in).

On the other hand, if you just want to pass a value to Form2, a singleton is
a nutty idea.

Private Sub Button1_Click(B yVal sender As System.Object, ByVal e As
System.EventArg s) Handles Button1.Click

MyUser.login = Me.TextBox1.Tex t.ToString

Dim Form2 As New Form2 Form2.SetMyLogi n(Me.TextBox1.T ext) ' <-- add this line...
and add a method to Form2 to get this value. Form2.ShowDialo g() ' <-- now,
in Form_Load for Form2, put the value into the display
End Sub

HTH,
--
--- Nick Malik [Microsoft]
MCSD, CFPS, Certified Scrummaster
http://blogs.msdn.com/nickmalik

Disclaimer: Opinions expressed in this forum are my own, and not
representative of my employer.
I do not answer questions on behalf of my employer. I'm just a
programmer helping programmers.
--
"Mike" <Mi**@discussio ns.microsoft.co m> wrote in message
news:B3******** *************** ***********@mic rosoft.com... Please help this is driving me nuts. I have 2 forms, 1 user class and I
am
trying to implement a singleton class. Form 1 should create a user object
and populate some properties in user. Form2 should then have access to
those
user properties. I am not getting the property value from user that was
set
in form1.

Sorry for posting so much code but I need help bad. How do i make this
work?

Thanks
Mike
'Form1.vb
'--------------------
Public Class Form1
Inherits System.Windows. Forms.Form
Dim m_User As New User
Public Property MyUser() As User
Get
Return m_User
End Get
Set(ByVal value As User)
m_User = value
End Set
End Property

#Region " Windows Form Designer generated code "

Public Sub New()
MyBase.New()

'This call is required by the Windows Form Designer.
InitializeCompo nent()

'Add any initialization after the InitializeCompo nent() call

End Sub

'Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Disp ose()
End If
End If
MyBase.Dispose( disposing)
End Sub

'Required by the Windows Form Designer
Private components As System.Componen tModel.IContain er

'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
Friend WithEvents Button1 As System.Windows. Forms.Button
Friend WithEvents TextBox1 As System.Windows. Forms.TextBox
<System.Diagnos tics.DebuggerSt epThrough()> Private Sub
InitializeCompo nent()
Me.Button1 = New System.Windows. Forms.Button
Me.TextBox1 = New System.Windows. Forms.TextBox
Me.SuspendLayou t()
'
'Button1
'
Me.Button1.Loca tion = New System.Drawing. Point(88, 136)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing. Size(120, 32)
Me.Button1.TabI ndex = 0
Me.Button1.Text = "Button1"
'
'TextBox1
'
Me.TextBox1.Loc ation = New System.Drawing. Point(64, 56)
Me.TextBox1.Nam e = "TextBox1"
Me.TextBox1.Siz e = New System.Drawing. Size(168, 20)
Me.TextBox1.Tab Index = 1
Me.TextBox1.Tex t = "TextBox1"
'
'Form1
'
Me.AutoScaleBas eSize = New System.Drawing. Size(5, 13)
Me.ClientSize = New System.Drawing. Size(292, 273)
Me.Controls.Add (Me.TextBox1)
Me.Controls.Add (Me.Button1)
Me.Name = "Form1"
Me.Text = "Form1"
Me.ResumeLayout (False)

End Sub

#End Region

Private Sub Form1_Load(ByVa l sender As System.Object, ByVal e As
System.EventArg s) Handles MyBase.Load

End Sub

Private Sub Button1_Click(B yVal sender As System.Object, ByVal e As
System.EventArg s) Handles Button1.Click

MyUser.login = Me.TextBox1.Tex t.ToString

Dim Form2 As New Form2
Form2.ShowDialo g()
End Sub
End Class

'Form2.vb
'------------------------

Public Class Form2
Inherits System.Windows. Forms.Form
#Region " Windows Form Designer generated code "

Public Sub New()
MyBase.New()

'This call is required by the Windows Form Designer.
InitializeCompo nent()

'Add any initialization after the InitializeCompo nent() call

End Sub

'Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Disp ose()
End If
End If
MyBase.Dispose( disposing)
End Sub

'Required by the Windows Form Designer
Private components As System.Componen tModel.IContain er

'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
Friend WithEvents frm2textbox As System.Windows. Forms.TextBox
Friend WithEvents Button1 As System.Windows. Forms.Button
<System.Diagnos tics.DebuggerSt epThrough()> Private Sub
InitializeCompo nent()
Me.frm2textbox = New System.Windows. Forms.TextBox
Me.Button1 = New System.Windows. Forms.Button
Me.SuspendLayou t()
'
'frm2textbox
'
Me.frm2textbox. Location = New System.Drawing. Point(64, 80)
Me.frm2textbox. Name = "frm2textbo x"
Me.frm2textbox. Size = New System.Drawing. Size(168, 20)
Me.frm2textbox. TabIndex = 0
Me.frm2textbox. Text = "TextBox1"
'
'Button1
'
Me.Button1.Loca tion = New System.Drawing. Point(88, 152)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing. Size(112, 32)
Me.Button1.TabI ndex = 1
Me.Button1.Text = "Button1"
'
'Form2
'
Me.AutoScaleBas eSize = New System.Drawing. Size(5, 13)
Me.ClientSize = New System.Drawing. Size(292, 273)
Me.Controls.Add (Me.Button1)
Me.Controls.Add (Me.frm2textbox )
Me.Name = "Form2"
Me.Text = "Form2"
Me.ResumeLayout (False)

End Sub

#End Region


Private Sub Form2_Load(ByVa l sender As System.Object, ByVal e As
System.EventArg s) Handles MyBase.Load


End Sub

Private Sub Button1_Click(B yVal sender As System.Object, ByVal e As
System.EventArg s) Handles Button1.Click
Dim ThisUser As User = MySingletonClas s.MyForm1.MyUse r
MessageBox.Show (ThisUser.login )
End Sub
End Class

'user.vb
'----------------------------
Public Class User
'private fields exposed as properties
Private _login As String

Public Property login() As String
Get
Return _login
End Get
Set(ByVal Value As String)
_login = Value
End Set
End Property
End Class

'MySingleton.vb
'------------------------

Public Class MySingletonClas s
Private Shared m_Form1 As Form1
Public Shared Function MyForm1()
If IsNothing(m_For m1) Then
m_Form1 = New Form1
Return m_Form1
Else
Return m_Form1
End If
End Function
End Class
Was this post helpful to

[billr]

Singleton pattern (in C#):

public class MySingleton
{
private static MySingleton m_Singleton = null;
static MySingleton() { m_Singleton = new MySingleton(); }
private MySingleton() { /* initialisation code */ }
public static MySingleton Singleton
{
get
{
if(m_Singleton == null) { m_Singleton = new MySingleton(); }
return(m_Single ton);
}
}
}

Use this from code :

MySingleton ms = MySingleton.Sin gleton;

--
--

Of all words of tongue and pen, the saddest are: "It might have been"

[Jon Skeet [C# MVP]]

billr <bi***@discussi ons.microsoft.c om> wrote:

Singleton pattern (in C#):

public class MySingleton
{
private static MySingleton m_Singleton = null;
static MySingleton() { m_Singleton = new MySingleton(); }
private MySingleton() { /* initialisation code */ }
public static MySingleton Singleton
{
get
{
if(m_Singleton == null) { m_Singleton = new MySingleton(); }
return(m_Single ton);
}
}
}

Use this from code :

MySingleton ms = MySingleton.Sin gleton;

That's a rather long-winded way of doing it - why bother with the
nullity check in the property when you've got a static constructor?

You might also consider moving the contents of the static constructor
to the declaration (depending on how lazy you want the initialization
to be) and perhaps even making it a public static readonly field.

--
Jon Skeet - <sk***@pobox.co m>
http://www.pobox.com/~skeet
If replying to the group, please do not mail me too