• 我有显示内容的 webparts。
  • 使用 Webpart 编辑器区域我需要选择显示样式。
  • 通过选择样式,我需要将数据显示在网格、列表或滚动(来自下拉列表)中。
  • 如何在 Webpart 编辑器区域中添加自定义属性。

  • 我是新手。

    我已经谷歌了,但一无所获。

    任何帮助表示赞赏。

    最佳答案

    作为 Mathew Collins writes :



    喜欢

    Imports Microsoft.VisualBasic
    Imports System
    Imports System.Web.UI
    Imports System.Web.UI.WebControls
    Imports System.Web.UI.WebControls.WebParts
    Imports System.Data
    Imports FormsUtilities
    
    Namespace CustomEditorZone
    
        Public Class CustomEditor : Inherits EditorPart
    
            Public Sub New()
                Me.Title = "Change Display Style"
            End Sub 'New
    
            Private PartPropertyValue As DropDownList
    
            Protected Overrides Sub CreateChildControls()
                Controls.Clear()
                PartPropertyValue = New DropDownList()
                PartPropertyValue.AppendDataBoundItems = True
                PartPropertyValue.Items.Add("")
                PopulateControl(PartPropertyValue)
                Me.Controls.Add(PartPropertyValue)
            End Sub 'CreateChildControls
    
            Public Overrides Function ApplyChanges() As Boolean
    
                EnsureChildControls()
                Dim MyWebPart As GenericWebPart = DirectCast(WebPartToEdit, GenericWebPart)
                Dim MyControl As CustomWebPart.WebPartBaseConsumer = DirectCast(MyWebPart.ChildControl, CustomWebPart.WebPartBaseConsumer)
                MyControl.DisplayStyle = PartPropertyValue.SelectedItem.Text
                Return True
    
            End Function 'ApplyChanges
    
            Public Overrides Sub SyncChanges()
                Try
                    EnsureChildControls()
                    Dim MyWebPart As GenericWebPart = DirectCast(WebPartToEdit, GenericWebPart)
                    Dim MyControl As CustomWebPart.WebPartBaseConsumer = DirectCast(MyWebPart.ChildControl, CustomWebPart.WebPartBaseConsumer)
                    Dim CurrentDisplay As String = MyControl.DisplayStyle
    
                    For Each Item As ListItem In PartPropertyValue.Items
                        If Item.Text = CurrentDisplay Then
                            Item.Selected = True
                            Exit For
                        End If
                    Next
                Catch ex As Exception
    
                End Try
    
            End Sub 'SyncChanges
    
            Protected Overrides Sub RenderContents(ByVal writer As HtmlTextWriter)
                Try
                    writer.Write("Display Style :")
                    writer.Write(" ")
                    Me.PartPropertyValue.RenderControl(writer)
                Catch ex As Exception
    
                End Try
    
            End Sub 'RenderContents
    
            Private Sub PopulateControl(ByRef PartPropertyValue As DropDownList)
    
                PartPropertyValue.Items.Add("Grid")
                PartPropertyValue.Items.Add("List")
                PartPropertyValue.Items.Add("Rolling")
            End Sub
    
        End Class 'CustomEditor
    End Namespace
    

    关于asp.net - 在 WebPart 编辑器区域中添加自定义属性,我们在Stack Overflow上找到一个类似的问题:https://stackoverflow.com/questions/22654794/

    10-16 14:37