扫一扫
分享文章到微信
扫一扫
关注官方公众号
至顶头条
作者:王凯明 来源:天极网 2007年11月7日
关键字: Windows
Dim theme As String theme = DropDownList1.SelectedValue DataList1.ItemTemplate = Page.LoadTemplate(theme & ".ascx") ---Cool DataList1.DataSource = DS DataList1.DataBind() |
Private Sub SetFocus(ByVal controlToFocus As Control) Dim scriptFunction As New StringBuilder Dim scriptClientId As String scriptClientId = controlToFocus.ClientID scriptFunction.Append("<script language='javascript'>") scriptFunction.Append("document.getElementById('" & scriptClientId & "').focus();") scriptFunction.Append("</script>") RegisterStartupScript("focus", scriptFunction.ToString()) End Sub Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load If (Page.IsPostBack = False) Then SetFocus(TextBox1) End If End Sub |
<div style=“height:400px;width:200px;overflow:auto”> <asp:datagrid id=“MyGrid” runat=“server”/> </div> |
Sub Page_Load() Dim i as Integer For i=0 to 4 Dim myUserControl as Control myUserControl = Page.LoadControl(“foo.ascx”) PlaceHolder1.Controls.Add(myUserControl) PlaceHolder1.Controls.Add(New LiteralControl(“<br>”)) Next i End Sub |
asp:ImageButton id=“foo” ImageUrl=“start.jpg” onMouseOver=“rollover(this);” onMouseOut=“rollout(this)” rolloversrc=“myrollover.jpg” rolloutsrc=“myrollout.jpg” runat=“server”/> <input type=Button onClick=“return clientHandler()” onServerClick=“Button1_Click” … /> |
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load RegisterOnSubmitStatement("foo", "return confirm('Are you sure you want to submit the order?');") End Sub |
如果您非常迫切的想了解IT领域最新产品与技术信息,那么订阅至顶网技术邮件将是您的最佳途径之一。