2008年1月4日随笔档案 - jeff377

2008年1月4日

使用 ASP.NET AJAX 開發人員，一定不會錯過 UpdatePanel 這個超級控制項，它可以讓輕易的讓原有設計的頁面很輕易的具有 AJAX 的效果。可是在設計階段使用 UpdatePanel 去排版常造成我們的困擾，放置在 UpdatePanel 中的控制項無法正確呈現實際的排版狀況。

例如我們在 UpdatePanel 中只簡單放置 TextBox 及 Button 二個控制項

<asp:UpdatePanel ID="UpdatePanel1" runat="server">
2

<ContentTemplate>
3

<asp:TextBox ID="TextBox2" runat="server"></asp:TextBox>
4

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

</ContentTemplate>
6

</asp:UpdatePanel>

理論上 TextBox 及 Button 應該在同一列上，可是在設計頁面上查看結果，TextBox 後竟換行才呈現 Button，如下圖所示。可是執行結果欲又就正常了，這樣的顯示結果在設計複雜的頁面常會造成相當大的困擾。

有人的作法是在 UpdatePanel 中放置一個 Panel ，設定 Panel 的 width 為固定寬度(如 800px)，來解決 UpdatePanel 設計階段排版的異常狀況。

其實會造成 UpdatePanel 在設計階段這種結果，主要是 UpdatePanel 在設計階段輸出的 HTML 碼沒有設定寬度的關係，所以我們繼承 UpdatePanel 下來改寫一個新的 TBUpdatePanel，並改寫它的 Designer 重新調整輸出設計階段的 HTML 碼來解決此問題。

我們先來看一下 TBUpdatePanel 的結果，後面再來詳述修改方式。同樣的，在 TBUpdatePanel 中只簡單放置 TextBox 及 Button 二個控制項。

<bee:TBUpdatePanel ID="TBUpdatePanel1" runat="server">
2

<ContentTemplate>
3

<asp:TextBox ID="TextBox1" runat="server"></asp:TextBox>
4

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

</ContentTemplate>
6

</bee:TBUpdatePanel>

在設計頁面上的結果如下圖所示，是不是正常了。

其實修改的方式一定比你想像中的簡單很多，首先撰寫 TBUpdatePanel 繼承 UpdatePanel，只修改它的 Designer 為 TBUpdatePanelDesigner。

< _
2

Designer(GetType(TBUpdatePanelDesigner)), _
3

ToolboxData("<{0}:TBUpdatePanel runat=server></{0}:TBUpdatePanel>") _
4

> _
5

Public Class TBUpdatePanel
6

Inherits System.Web.UI.UpdatePanel
7

End Class

再來就是如何撰寫 TBUpdatePanelDesigner，TBUpdatePanelDesigner 繼承 UpdatePanel 原有的 UpdatePanelDesigner，覆寫 GetDesignTimeHtml 方法來重新調整輸出的 HTML 碼。UpdatePanelDesigner 原本的輸出的 HTML 碼如下圖所示。

很明顯地，它最外層的 table 並未指定 witdh 才會導致設計階段的異常情形，所以我們只要將 table 的 width 設為 100% 就可以解決此問題。TBUpdatePanelDesigner 的完整程式碼如下，如此簡單的修改就可以永遠擺脫 UpdatePanel 的排版而困擾了。

''' <summary>
2

''' 擴充 TBUpdatePanel 控制項的設計模式行為。
3

''' </summary>
4

Public Class TBUpdatePanelDesigner
5

Inherits System.Web.UI.Design.UpdatePanelDesigner
6

Public Overrides Function GetDesignTimeHtml(ByVal regions As DesignerRegionCollection) As String
8

Dim sHTML As String
9

sHTML = MyBase.GetDesignTimeHtml(regions)
11

sHTML = Left(sHTML, 7) & " width=""100%"" " & Mid(sHTML, 8)
12

Return sHTML
13

End Function
14

End Class
15

程式碼下載: TBUpdatePanel.rar

posted @ 2008-01-04 10:35 jeff377 阅读(2397) 评论(11) 编辑