Dim theme As String
theme = DropDownList1SelectedValue
DataList1ItemTemplate = PageLoadTemplate(theme & "ascx") ---Cool
DataList1DataSource = DS
DataList1DataBind()
4、设置服务器端控件的焦点
以下为引用的内容:
Private Sub SetFocus(ByVal controlToFocus As Control)
Dim scriptFunction As New StringBuilder
Dim scriptClientId As String @
scriptClientId = controlToFocusClientID
scriptFunctionAppend("<script language='javascript'>")
scriptFunctionAppend("documentgetElementById('" & scriptClientId & "')focus();")
scriptFunctionAppend("</script>")
RegisterStartupScript("focus", scriptFunctionToString())
End Sub
Private Sub Page_Load(ByVal sender As SystemObject, ByVal e As SystemEventArgs) Handles MyBaseLoad
If (PageIsPostBack = False) Then
SetFocus(TextBox1)
End If
End Sub
以下为引用的内容:
Sub Page_Load()
Dim i as Integer
For i=0 to 4
Dim myUserControl as Control
myUserControl = PageLoadControl(“fooascx”)
PlaceHolder1ControlsAdd(myUserControl)
PlaceHolder1ControlsAdd(New LiteralControl(“<br>”))
Next i
End Sub
以下为引用的内容:
Private Sub Page_Load(ByVal sender As SystemObject, ByVal e As SystemEventArgs) Handles MyBaseLoad
RegisterOnSubmitStatement("foo", "return confirm('Are you sure you want to submit the order?');")
End Sub