Solved

Accessing form controls (without 'sharing')

Posted on 2007-11-27
5
148 Views
Last Modified: 2013-11-07
Let's say I have frmMain and a label on it that displays the date.
I want to be able to click the date, and have a second form frmDate display, which only contains the calendar control, and update the label on frmMain with the date selected.

Currently, I'm running into "Reference to a non-shared member requires an object reference" while trying to simply use frmMain.Label1.Text=Cal.SelectionStart
I sort of understand why that is, and have read that using the shared keyword may alleviate the problem, however, one twist that I have is that frmMain may not be frmMain 'all the time'.

Ideally, I'd love to be able to pass the Date clicked back to the form's parent (I'm displaying with showdialog), but that property appears to be empty anyway.

Any way to easily accomplish what I'm after here?  Please ask if anything needs clarifying.  Thanx
0
Comment
Question by:sirbounty
  • 3
  • 2
5 Comments
 
LVL 38

Accepted Solution

by:
PaulHews earned 250 total points
ID: 20359399
I would declare an event in frmDate:

Public Event DateSelected(ByVal SelDate As Date)

Raise it where you need it:

RaiseEvent DateSelected(Today)  'or whatever date

In frmMain, declare a handler and use it:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim frm As New frmDate
        AddHandler frm.DateSelected, AddressOf frm_DateSelected
        frm.ShowDialog()


    End Sub

    Private Sub frm_DateSelected(ByVal SelDate As Date)
        Label1.Text = SelDate.ToString("d")
    End Sub
0
 
LVL 67

Author Comment

by:sirbounty
ID: 20359452
Precisely what I needed.
Thanx! :^)
0
 
LVL 38

Expert Comment

by:PaulHews
ID: 20359503
If you can close the date form when you have selected a date, you can also create a property to read the date from:

Public Class frmDate
    Private mSelDate As Date
   

    Public Function SelDate() As Date
        Return mSelDate
       
    End Function

    Private Sub MonthCalendar1_DateSelected(ByVal sender As Object, ByVal e As System.Windows.Forms.DateRangeEventArgs) Handles MonthCalendar1.DateSelected
        mSelDate = e.End
        Me.DialogResult = Windows.Forms.DialogResult.OK
        Me.Close()

    End Sub
End Class

Public Class Form1


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim frm As New frmDate

        If frm.ShowDialog() = Windows.Forms.DialogResult.OK Then
            Label1.Text = frm.SelDate.ToString("d")
        End If


    End Sub

   
End Class
0
 
LVL 67

Author Comment

by:sirbounty
ID: 20360442
Hmm - yes, I will be closing it once the date is selected.
I'll try this out.  Thanx.
0
 
LVL 67

Author Comment

by:sirbounty
ID: 20361050
Works great!  Thanx again!! :^)
0

Featured Post

Master Your Team's Linux and Cloud Stack!

The average business loses $13.5M per year to ineffective training (per 1,000 employees). Keep ahead of the competition and combine in-person quality with online cost and flexibility by training with Linux Academy.

Question has a verified solution.

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

Suggested Solutions

Parsing a CSV file is a task that we are confronted with regularly, and although there are a vast number of means to do this, as a newbie, the field can be confusing and the tools can seem complex. A simple solution to parsing a customized CSV fi…
This article shows how to deploy dynamic backgrounds to computers depending on the aspect ratio of display
Finds all prime numbers in a range requested and places them in a public primes() array. I've demostrated a template size of 30 (2 * 3 * 5) but larger templates can be built such 210  (2 * 3 * 5 * 7) or 2310  (2 * 3 * 5 * 7 * 11). The larger templa…

856 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