62,046
社区成员
发帖
与我相关
我的任务
分享
Private Sub RetainScrollPosition() Dim saveScrollPosition As New StringBuilder
Dim setScrollPosition As New StringBuilder RegisterHiddenField("__SCROLLPOS", "0")
saveScrollPosition.Append("< script language='javascript'>")
saveScrollPosition.Append("function saveScrollPosition() {")
saveScrollPosition.Append(" document.forms[0].__SCROLLPOS.value = thebody.scrollTop;")
saveScrollPosition.Append("}")
saveScrollPosition.Append("thebody.onscroll=saveScrollPosition;")
saveScrollPosition.Append("< /script>") RegisterStartupScript("saveScroll", saveScrollPosition.ToString()) If (Page.IsPostBack = True) Then setScrollPosition.Append("< script language='javascript'>")
setScrollPosition.Append("function setScrollPosition() {")
setScrollPosition.Append(" thebody.scrollTop = " & Request("__SCROLLPOS") & ";")
setScrollPosition.Append("}")
setScrollPosition.Append("thebody.onload=setScrollPosition;")
setScrollPosition.Append("< /script>")
RegisterStartupScript("setScroll", setScrollPosition.ToString()) End If End Sub Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
RetainScrollPosition()
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” … />
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:datagrid id=“MyGrid” runat=“server”/>
< /div>
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