?? calendar.aspx.vb
字號:
Public Class Calendar
Inherits System.Web.UI.Page
#Region " Web 窗體設計器生成的代碼 "
'該調用是 Web 窗體設計器所必需的。
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
End Sub
Protected WithEvents _Calendar As System.Web.UI.WebControls.Calendar
'注意: 以下占位符聲明是 Web 窗體設計器所必需的。
'不要刪除或移動它。
Private designerPlaceholderDeclaration As System.Object
Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
'CODEGEN: 此方法調用是 Web 窗體設計器所必需的
'不要使用代碼編輯器修改它。
InitializeComponent()
End Sub
#End Region
Private _ID As String
Private _Date As String
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
_ID = Request.QueryString("ID").ToString()
_Date = Request.QueryString("Date").ToString()
_Calendar.SelectedDate = Convert.ToDateTime(_Date)
End Sub
Private Sub _Calendar_SelectionChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles _Calendar.SelectionChanged
Dim strTemp As String = "<script language=""javascript"">" + "\n"
strTemp = strTemp + " window.parent.document.all(""_Calendar_IFrame"").style.display = ""none"";" + "\n"
strTemp = strTemp + " window.parent.document.all(""" + _ID + """).value = """ + _Calendar.SelectedDate.ToString("yyyy-MM-dd") + """;" + "\n"
strTemp = strTemp + "</script>" + "\n"
Response.Write(strTemp)
End Sub
End Class
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -