• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 1404
  • Last Modified:

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

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
gloriagalvez
Asked:
gloriagalvez
  • 2
1 Solution
 
ZhaolaiCommented:
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
 
ZhaolaiCommented:
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
 
gloriagalvezAuthor Commented:
Thank you so much.
0

Featured Post

Concerto's Cloud Advisory Services

Want to avoid the missteps to gaining all the benefits of the cloud? Learn more about the different assessment options from our Cloud Advisory team.

  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now