本文整理匯總了VB.NET中System.Web.UI.WebControls.WebParts.WebPartZoneBase類的典型用法代碼示例。如果您正苦於以下問題:VB.NET WebPartZoneBase類的具體用法?VB.NET WebPartZoneBase怎麽用?VB.NET WebPartZoneBase使用的例子?那麽, 這裏精選的類代碼示例或許可以為您提供幫助。
在下文中一共展示了WebPartZoneBase類的1個代碼示例,這些例子默認根據受歡迎程度排序。您可以為喜歡或者感覺有用的代碼點讚,您的評價將有助於係統推薦出更棒的VB.NET代碼示例。
示例1: StringBuilder
' 導入命名空間
Imports System.Text
Imports System.Web
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Web.UI.WebControls.WebParts
Partial Public Class WebPartZoneBase_overview
Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As [Object], ByVal e As EventArgs)
Label1.Text = DateTime.Now.ToLongDateString()
Label2.Text = String.Empty
End Sub
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs)
If WebPartZone2.VerbButtonType = ButtonType.Button Then
WebPartZone2.VerbButtonType = ButtonType.Link
Else
WebPartZone2.VerbButtonType = ButtonType.Button
End If
End Sub
Protected Sub Button2_Click(ByVal sender As Object, ByVal e As EventArgs)
If WebPartZone1.LayoutOrientation = Orientation.Vertical Then
WebPartZone1.LayoutOrientation = Orientation.Horizontal
Else
WebPartZone1.LayoutOrientation = Orientation.Vertical
End If
Page_Load(sender, e)
End Sub
Protected Sub Button3_Click(ByVal sender As Object, ByVal e As EventArgs)
Dim builder As New StringBuilder()
builder.AppendLine("<strong>WebPartZone2 WebPart IDs</strong><br />")
Dim part As WebPart
For Each part In WebPartZone1.WebParts
builder.AppendLine("ID: " + part.ID + "; Type: " _
+ part.GetType().ToString() _
+ "<br />")
Next part
Label2.Text = builder.ToString()
Label2.Visible = True
End Sub
Protected Sub Button4_Click(ByVal sender As Object, ByVal e As EventArgs)
Dim builder As New StringBuilder()
builder.AppendLine("<strong>WebPartZone1 DisplayTitle Property</strong><br />")
builder.AppendLine(WebPartZone1.DisplayTitle + "<br />")
Label2.Text = builder.ToString()
Label2.Visible = True
End Sub
End Class