Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If (Not Page.IsPostBack) Then
' เอา code การเชื่อมต่อกะ database ไว้ที่นี่ค่ะ
' ทีนี้ PostBack จะไม่มีการ init อะไรใหม่ละ
End If
End Sub
Public Class myBasePage : Inherits System.Web.UI.Page
Public Event OnPostBack (Byval Object Sender ,Byval e As System.EventArgs)
Public Event OnPageLoadAtOnce (Byval Object Sender ,Byval e As System.EventArgs)
'จะทำงานที่ event ไหนก็ Overide Event นั้นมาเลย สำคัญว่า อย่าลืมเอา Event chain >> MyBase.XXX เก็บเอาไว้ด้วยค่ะ
'เพราะจะเป็นส่วน ส่งต่อการ execute ไปยัง object ที่ inherit ต่อไปด้วยอะค่ะ
Protected Overrides Sub OnLoad(ByVal e As System.EventArgs)
RaiseEvent OnPostback (Me ,e)
if (Not Page.IsPostBack) Then
RaiseEvent OnPageLoadAtOnce (Me ,e)
End
MyBase.OnLoad(e) ' << Child Page and Parent class drived event here
End Sub
Protected Overrides Sub OnInit(ByVal e As System.EventArgs)
if Not (Session("CURRENT_THEME") is Nothing) Then
Page.Theme = Session("CURRENT_THEME").ToString()
End if
MyBase.OnInit(e)
Sub
End Class
Code (VB.NET)
'ทีนี้ ใน Page ของเราเช่น DEFAULT.ASPX นะคะ ส่วน Code behide จะเป็นยังงี้
Partial Class _Default : Inherits myBasePage
Protected Sub Page_OnPostBack (ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.OnPostback
'..... code
End Sub
Protected Sub Page_OnLoadAtOnce (Byval Object Sender ,Byval e As System.EventArgs) Handles Me.OnPageLoadAtOnce
'..... code
End Sub
End Class
Date :
2010-07-09 16:33:18
By :
blurEyes
No. 6
Guest
Protected Sub Page_OnLoadAtOnce (Byval Object Sender ,Byval e As System.EventArgs) Handles Me.OnPageLoadAtOnce