Vs2003为例 建web自定义控件项目在init里注册js文件(可以把js文件内容放到资源文件里,或者作为文本读取到程序里),然后registerstarterscipt注册到页面 之后只要createchildcontrol组合控件界面就行了 Protected Overrides Sub CreateDataControl() If _BindType = EBindType.VIEW Then Me.Controls.Add(New LiteralControl(_Date)) Else _TextBox.ID = Me.ID '文本宽度属性 _TextBox.Style.Add("width", _BoxWidth & "px") If Not (_IsWritable) Then _TextBox.Attributes.Add("readonly", "true") End If Me.Controls.Add(_TextBox) _Button.Value = "选择日期" _Button.Attributes.Add("onClick", "OpenCalendar('" & _TextBox.ClientID & "',false)") Me.Controls.Add(_Button) End If Dim ScriptString As StringBuilder = New StringBuilder ScriptString.Append("<script language=""javascript"" src=""/individuation/js/script.js"" type=""text/javascript""></script>") Page.RegisterStartupScript("Calendar", ScriptString.ToString) 'End If End Sub
建web自定义控件项目在init里注册js文件(可以把js文件内容放到资源文件里,或者作为文本读取到程序里),然后registerstarterscipt注册到页面
之后只要createchildcontrol组合控件界面就行了 Protected Overrides Sub CreateDataControl()
If _BindType = EBindType.VIEW Then
Me.Controls.Add(New LiteralControl(_Date))
Else
_TextBox.ID = Me.ID
'文本宽度属性
_TextBox.Style.Add("width", _BoxWidth & "px") If Not (_IsWritable) Then
_TextBox.Attributes.Add("readonly", "true")
End If
Me.Controls.Add(_TextBox)
_Button.Value = "选择日期"
_Button.Attributes.Add("onClick", "OpenCalendar('" & _TextBox.ClientID & "',false)")
Me.Controls.Add(_Button)
End If
Dim ScriptString As StringBuilder = New StringBuilder
ScriptString.Append("<script language=""javascript"" src=""/individuation/js/script.js"" type=""text/javascript""></script>")
Page.RegisterStartupScript("Calendar", ScriptString.ToString)
'End If
End Sub