Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If Not IsPostBack Then Calendar1.Visible = False End If End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Calendar1.Visible = True End Sub Private Sub Calendar1_SelectionChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Calendar1.SelectionChanged TextBox1.Text = Calendar1.VisibleDate.ToString Calendar1.Visible = False End Sub best regards!
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If Not IsPostBack Then Calendar1.Visible = False End If End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Calendar1.Visible = True End Sub Private Sub Calendar1_SelectionChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Calendar1.SelectionChanged TextBox1.Text = Calendar1.SelectedDate.ToString Calendar1.Visible = False End Sub best regards!
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If Not IsPostBack Then Calendar1.Visible = False End If End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Calendar1.Visible = True End Sub Private Sub Calendar1_SelectionChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Calendar1.SelectionChanged TextBox1.Text = Calendar1.SelectedDate.ToString Calendar1.Visible = False End Sub best regards!
用C#怎么改。 我希望做为程序员要先测试以下是否通过才能真实的告诉别人 做到 实事求实的态度,没有测试的,就得说出来 Calendar1.Attributes.Item("SelectedField") 在C#里根本就没有这样的写法。 Public Sub Calendar1_SelectionChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Calendar1.SelectionChanged '************************************************************************ 'Purpose: Write the selected date to the appropriate text field. '************************************************************************ Dim txtDate As TextBox 'get the textbox that the date should be written to txtDate = Page.FindControl(Calendar1.Attributes.Item("SelectedField")) 'Write value to appropriate textbox txtDate.Text = Calendar1.SelectedDate 'Hide the calendar hideCalendar()End Sub 请是否有人能把它改写一遍,可能不少人都在想解决这个问题。我正在改写之中
System.Web.UI.ImageClickEventArgs) Handles btnStartDate.Click '************************************************************************ 'Purpose: Check for a valid date in the appropriate text field and call 'procedure to display calendar. '************************************************************************ Dim dSelDate As Date If IsDate(txtStartDate.Text) Then dSelDate = txtStartDate.Text End If myCalendar.displayCalendar("Select a start date", dSelDate, _ "txtStartDate", 59, 220) End Sub 能否给我改写这里呀! vb里有IsDate()可以判断是否为日期,但是C#怎么判断呀!!! IsDate(txtStartDate.Text)
在打开的窗口中,可以用window.opener.TextBox1.value = 'aaa'的形式对原窗口控件赋值。
基本思路就是,在b.aspx的Calendar_SelectedChange事件中,加入:
Response.Write("<script language=JavaScript>window.opener.TextBox1.value='" + d.ToString() + "';window.close();</script>");不过我没有测试过。
我在csdn里看了很多答复打开一个窗口,
语法是window.showModalDialog('url')
可否问一下具体的用法是怎么呢|?
http://www.dotnetjunkies.com/howto/default.aspx?id=24
If Not IsPostBack Then
Calendar1.Visible = False
End If End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Calendar1.Visible = True
End Sub Private Sub Calendar1_SelectionChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Calendar1.SelectionChanged
TextBox1.Text = Calendar1.VisibleDate.ToString
Calendar1.Visible = False
End Sub best regards!
If Not IsPostBack Then
Calendar1.Visible = False
End If End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Calendar1.Visible = True
End Sub Private Sub Calendar1_SelectionChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Calendar1.SelectionChanged
TextBox1.Text = Calendar1.SelectedDate.ToString
Calendar1.Visible = False
End Sub best regards!
If Not IsPostBack Then
Calendar1.Visible = False
End If End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Calendar1.Visible = True
End Sub Private Sub Calendar1_SelectionChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Calendar1.SelectionChanged
TextBox1.Text = Calendar1.SelectedDate.ToString
Calendar1.Visible = False
End Sub best regards!
我希望做为程序员要先测试以下是否通过才能真实的告诉别人
做到 实事求实的态度,没有测试的,就得说出来
Calendar1.Attributes.Item("SelectedField")
在C#里根本就没有这样的写法。
Public Sub Calendar1_SelectionChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Calendar1.SelectionChanged
'************************************************************************
'Purpose: Write the selected date to the appropriate text field.
'************************************************************************
Dim txtDate As TextBox 'get the textbox that the date should be written to
txtDate = Page.FindControl(Calendar1.Attributes.Item("SelectedField")) 'Write value to appropriate textbox
txtDate.Text = Calendar1.SelectedDate 'Hide the calendar
hideCalendar()End Sub
请是否有人能把它改写一遍,可能不少人都在想解决这个问题。我正在改写之中
{
TextBox txtDate;
txtDate = (TextBox)Page.FindControl(Calendar1.Attributes["SelectedField"]);
txtDate.Text = Calendar1.SelectedDate.ToString("yyyyMMdd");
hideCalendar();
}
我帮你改了,很简单的。对这个例子,我想如果能改成年份也可以选择的话就很好的,可惜我水平有限,没能成功。那位高手试试吧。
{
TextBox txtDate;
txtDate = (TextBox)Page.FindControl(Calendar1.Attributes["SelectedField"]);
txtDate.Text = Calendar1.SelectedDate.ToString("yyyyMMdd");
hideCalendar();
}
我帮你改了。但是这个控件不好用,就是选择年份时必须一个月一个月地加减。很烦。
'************************************************************************
'Purpose: Check for a valid date in the appropriate text field and call
'procedure to display calendar.
'************************************************************************
Dim dSelDate As Date If IsDate(txtStartDate.Text) Then
dSelDate = txtStartDate.Text
End If
myCalendar.displayCalendar("Select a start date", dSelDate, _
"txtStartDate", 59, 220) End Sub
能否给我改写这里呀!
vb里有IsDate()可以判断是否为日期,但是C#怎么判断呀!!!
IsDate(txtStartDate.Text)