Solved

Not a member of System.Windows.Forms.Form ?

Posted on 2010-08-31
3
1,314 Views
Last Modified: 2013-11-26
Hello All:
Please let me know what I am doing wrong.  I'm trying to work my add comment form to work for all forms where a comment is required.  So, when I call it from the different forms I set the tag property to the form's name and use it  to initialize my shared form variable and call the function to fill the richtextbox in the calling form which it needs to use the same name in the calling form.  The part that is not working is: frm.txtComments.text  It says that txtComments is not a member of System.Windows.Forms.Form.  This is the code:
Public Class frmAddComment

    Shared frm As Form

    Private Sub cmdAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdAdd.Click

        Call AddCommentToTextBox(frm)

        Me.Close()



    End Sub





    Private Sub AddCommentToTextBox(ByVal frm As Form)

        frm.txtComments.text = frm.txtComments.text & vbCrLf & Now() & ".." & Me.txtNewComment.Text

    End Sub



    Private Sub cmdCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdCancel.Click

        Me.txtNewComment.Text = ""

        Me.Close()



    End Sub



    Public Sub New()

        InitializeComponent()

        If Me.Tag = "frmDetail" Then

            frm = frmDetail

        ElseIf Me.Tag = "frmNewProspect" Then

            frm = frmNewProspect

        End If

    End Sub

End Class

Open in new window

0
Comment
Question by:gloriagalvez
  • 2
3 Comments
 
LVL 17

Expert Comment

by:Zhaolai
ID: 33571472
Try this:

    Private Sub AddCommentToTextBox(ByVal frm As Form)

        If frm.Tag = "frmDetail" Then

            frm = frmDetail

        ElseIf frm.Tag = "frmNewProspect" Then

            frm = frmNewProspect

        End If

        frm.txtComments.text = frm.txtComments.text & vbCrLf & Now() & ".." & Me.txtNewComment.Text

    End Sub

Open in new window

0
 
LVL 17

Accepted Solution

by:
Zhaolai earned 500 total points
ID: 33571539
Ooops, the first post does not work either. Try this:

    Private Sub AddCommentToTextBox(ByVal frm As Form)

        If frm.Tag = "frmDetail" Then

            frmDetail.txtComments.text = frmDetail.txtComments.text & vbCrLf & Now() & ".." & Me.txtNewComment.Text

        ElseIf frm.Tag = "frmNewProspect" Then

            frmNewProspect.txtComments.text = frmNewProspect.txtComments.text & vbCrLf & Now() & ".." & Me.txtNewComment.Text

        End If

    End Sub

Open in new window

0
 

Author Closing Comment

by:gloriagalvez
ID: 33571614
Thank you so much.
0

Featured Post

Threat Intelligence Starter Resources

Integrating threat intelligence can be challenging, and not all companies are ready. These resources can help you build awareness and prepare for defense.

Join & Write a Comment

Suggested Solutions

How to remove superseded packages in windows w60 or w61 installation media (.wim) or online system to prevent unnecessary space. w60 means Windows Vista or Windows Server 2008. w61 means Windows 7 or Windows Server 2008 R2. There are various …
If you need to start windows update installation remotely or as a scheduled task you will find this very helpful.
The viewer will learn how to clear a vector as well as how to detect empty vectors in C++.
The viewer will be introduced to the member functions push_back and pop_back of the vector class. The video will teach the difference between the two as well as how to use each one along with its functionality.

757 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