سؤال حول ال user control

Dim myControl as NEW myDate
label1.Text= myDate.strDate.ToString


in myDate.ascx 

Public strDate As Date

بصراحة أنا جربت أضيف كلمة New مثل ما قلت لي.. وهذه المره myControl لا تكون Nothing

ولكني مازلت لا أستطيع جلب قيمة المتغير strDate

وبالتالي فضلت إرفاق ملفاتي لتوضيح المشكله أكثر..

أولاً: هذا هو ال user control

يحتوي على ثلاثة dropdown lists .. للسنه.. والشهور .. والأيام

وهذا هو ال code behind the page للـ user control .. حيث إني وضعت قيم السنين والشهور والأيام بواسطة loop ..

ثم قمت بجمع نتائج الـ drop down lists ووضعتها في متغير strDate

Public strDate As String
    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Put user code to initialize the page here
        If Not Page.IsPostBack Then
            bindDates()
            Page.DataBind()
            strDate = drpyears.SelectedItem.Text.ToString & "/" & drpmonths.SelectedItem.Text.ToString & "/" & drpdays.SelectedItem.Text.ToString
        End If
    End Sub

    Sub bindDates()
        Dim arrday As New Hashtable(31)
        Dim i As Integer = 0
        While (i < 31)
            i = i + 1
            arrday.Add(i, i)
        End While

        Dim arrmonth As New Hashtable(12)
        Dim m As Integer = 0
        While (m < 12)
            m = m + 1
            arrmonth.Add(m, m)
        End While

        Dim arryear As New Hashtable(30)
        Dim y As Integer = 1969
        While (y < 2010)
            y = y + 1
            arryear.Add(y, y)
        End While

        drpdays.DataSource = arrday
        drpdays.DataValueField = "key"
        drpdays.DataTextField = "value"

        drpmonths.DataSource = arrmonth
        drpmonths.DataValueField = "key"
        drpmonths.DataTextField = "value"

        drpyears.DataSource = arryear
        drpyears.DataValueField = "key"
        drpyears.DataTextField = "value"


    End Sub

ثانياً: هذه هي صفحة الويب فورم .. التي وضعت بها الـ user control

وهي تحتوي على button .. عندما أضغط عليه يجب أن تظهر قيمة ال strDate في الـ label الموجود في الصفحة

وهذا هو الـ code behind the page لهذه الصفحة

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Put user code to initialize the page here
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim myControl As New myDate
        Label1.Text = myControl.strDate.ToString
    End Sub

أخي أنت تريد إستقبال القيمة بدون عمل Post؟؟

يجب أن تحدد خاصية ال AutoPostBack لكل DropDownList لتصبح True وفي الحدث الخاص بال SelectedIndexChanged قم بإستقبال القيمة .. و هكذا ..

بالفعل لا أدري كيف لم أفكر في ذلك ..........

وشكرا لمتابعتك