Postback后将焦点放在postback的源头上

转载于 2005-07-15 18:09:00 发布 · 78 阅读

·

0

·

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/meluckeve/archive/2005/07/15/193628.html

文章标签：

控件在引起postback后，在__EVENTTARGET中有控件的信息(button除外).所以根据这个可以在

Postback后将焦点放在postback的源头上。

我写了一个基类，要实现这种效果的继承这个类就行了。

<%

@ Page Language="VB" AutoEventWireup="false" CodeFile="Default4.aspx.vb" Inherits="Default4" %>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN" "http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd">

<html xmlns="http://www.w3.org/1999/xhtml" >

<head runat="server">

<title>Untitled Page</title>

</head>

<body>

<form id="form1" runat="server">

<div>

<asp:Button ID="Button1" runat="server" Text="Button1" /><BR>

<asp:Button ID="Button2" runat="server" Text="Button2" /><BR>

<asp:Button ID="Button3" runat="server" Text="Button3" /><BR>

<asp:LinkButton ID="LinkButton1" runat="server">LinkButton</asp:LinkButton> <BR>

<asp:DropDownList ID="DropDownList1" runat="server" AutoPostBack=true>

</asp:DropDownList>

</div>

</form>

</body>

</html>

Partial Class Default4Class Default4

Inherits Helper

Protected Sub Page_Load()Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

If Not IsPostBack Then

Dim values As ArrayList = New ArrayList()

values.Add("IN")

values.Add("KS")

values.Add("MD")

values.Add("MI")

values.Add("OR")

values.Add("TN")

DropDownList1.DataSource = values

DropDownList1.DataBind()

End If

End Sub

End Class

Imports Microsoft.VisualBasic

Public Class HelperClass Helper

Inherits System.Web.UI.Page

Private Sub GetPostbackControl()Sub GetPostbackControl(ByVal targPage As Page)

Dim ctl As Control = New Control

Dim ctl_tmp As Control = New Control

If (targPage.IsPostBack) Then

Dim ctlName As String = targPage.Request.Form("__EVENTTARGET")

If ((ctlName <> Nothing) And (ctlName <> String.Empty)) Then

ctl = targPage.FindControl(ctlName)

Else

For Each ctrl As String In targPage.Request.Form

If ctrl.EndsWith(".x") Or ctrl.EndsWith(".y") Then

ctlName = ctrl.Substring(0, ctrl.Length - 2)

ctl_tmp = targPage.FindControl(ctlName)

Else

ctl_tmp = targPage.FindControl(ctrl)

End If

If Not IsNothing(ctl_tmp) Then

If ctl_tmp.ToString = "System.Web.UI.WebControls.Button" Or _

ctl_tmp.ToString = "System.Web.UI.WebControls.LinkButton Then" Then

ctl = ctl_tmp

Exit For

End If

End If

Next

End If

ctl.Focus()

End If

End Sub

Private Sub Page_Load()Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

GetPostbackControl(CType(sender, Page))

End Sub

End Class

转载于:https://www.cnblogs.com/meluckeve/archive/2005/07/15/193628.html

评论

被折叠的条评论为什么被折叠?

到【灌水乐园】发言

查看更多评论

添加红包

成就一亿技术人!

hope_wisdom

发出的红包

实付元

使用余额支付

点击重新获取

扫码支付

钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。