Code
Public IsRefreshPH As Boolean = False '是否刷新 PlaceHolder
Protected Sub LinkButton1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles LinkButton1.Click
ViewState("IsShow") = 1
IsRefreshPH = True
End Sub
Protected Sub LinkButton2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles LinkButton2.Click
ViewState("IsShow") = 0
IsRefreshPH = True
End Sub
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If ViewState("IsShow") = 1 Then
LoadCtrl()
End If
End Sub
Protected Sub Page_PreRender(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.PreRender
If IsRefreshPH Then
LoadCtrl()
End If
End Sub
'装载用户控件过程
Sub LoadCtrl()
PlaceHolder1.Controls.Clear()
If ViewState("IsShow") = 1 Then
Dim c As UserControl = LoadControl("~/tstZHT.ascx")
c.ID = "ZHT"
PlaceHolder1.Controls.Add(c)
End If
End Sub
Public IsRefreshPH As Boolean = False '是否刷新 PlaceHolder
Protected Sub LinkButton1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles LinkButton1.Click
ViewState("IsShow") = 1
IsRefreshPH = True
End Sub
Protected Sub LinkButton2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles LinkButton2.Click
ViewState("IsShow") = 0
IsRefreshPH = True
End Sub
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If ViewState("IsShow") = 1 Then
LoadCtrl()
End If
End Sub
Protected Sub Page_PreRender(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.PreRender
If IsRefreshPH Then
LoadCtrl()
End If
End Sub
'装载用户控件过程
Sub LoadCtrl()
PlaceHolder1.Controls.Clear()
If ViewState("IsShow") = 1 Then
Dim c As UserControl = LoadControl("~/tstZHT.ascx")
c.ID = "ZHT"
PlaceHolder1.Controls.Add(c)
End If
End Sub