代码触发事件
1 指定控件ID
<Buttons>
<ext:Button ID="btnLogin" runat="server" Text="Login" Icon="Accept">
</ext:Button>
2 指定后台可以访问的控件
Protected WithEvents btnLogin As Global.Ext.Net.Button
3 在后台定义事件具体代码
Private Sub btnLogin_DirectClick(sender As Object, e As Ext.Net.DirectEventArgs) Handles btnLogin.DirectClick
Dim strUserCode As String
Dim strPWD As String
Dim objUser As prjECWSDB.MODEL.clstblUser
strUserCode = txtUsername.Text.Trim
strPWD = txtPassword.Text.Trim
objUser = CheckLogin(strUserCode, strPWD)
If Not objUser Is Nothing Then
Session("ectblUser") = objUser
Session.Timeout = 6000
Response.Redirect("frmECDesktop.aspx")
Else
Ext.Net.X.Ms