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

 

控件在引起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 Default4 Class 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 Helper Class 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