Solved

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

Posted on 2010-08-31
3
1,323 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

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

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

Suggested Solutions

Title # Comments Views Activity
Needing an event fired when a row is added on a datagridview 4 35
Tool Box 2 32
Angular JS Route 3 44
Vb. Net application freezes 9 27
You can of course define an array to hold data that is of a particular type like an array of Strings to hold customer names or an array of Doubles to hold customer sales, but what do you do if you want to coordinate that data? This article describes…
Whether you’re a college noob or a soon-to-be pro, these tips are sure to help you in your journey to becoming a programming ninja and stand out from the crowd.
The viewer will learn how to use the return statement in functions in C++. The video will also teach the user how to pass data to a function and have the function return data back for further processing.
The viewer will learn additional member functions of the vector class. Specifically, the capacity and swap member functions will be introduced.

937 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

8 Experts available now in Live!

Get 1:1 Help Now