Solved

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

Posted on 2010-08-31
3
1,364 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
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 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 DevOps Pipeline Leaking?

Is your CI/CD pipeline a hodge-podge of randomly connected tools? You’ve likely got a tool to fix one problem & then a different tool to fix another, resulting in a cluster of tools with overlapping functionality. Learn how to optimize your pipeline with Gartner's recommendations

Question has a verified solution.

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

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 …
I was working on a PowerPoint add-in the other day and a client asked me "can you implement a feature which processes a chart when it's pasted into a slide from another deck?". It got me wondering how to hook into built-in ribbon events in Office.
This theoretical tutorial explains exceptions, reasons for exceptions, different categories of exception and exception hierarchy.
This tutorial explains how to use the VisualVM tool for the Java platform application. This video goes into detail on the Threads, Sampler, and Profiler tabs.

724 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