Register  |  
Tag Cloud
  
About the author
Baldwin's Status
 Contact Me		 Baldwin Sun
Senior Developer for dnn solution & founder of SunBlog module...
  
随笔分类
  
随笔档案
  
Blog搜索
  
相册库
更多照片请查看相册库
  
最新评论
  
Rss Feed
feedsky
抓虾
pageflakes
newsgator
哪吒
  
我们的服务
  • DotNetNuke 咨询
  • Web设计及其模块开发
  • 免费建站
  • 电子商务
  • 开拓市场
我们致力于开发定制的web 2.0 ,所服务的客户主要包括小中型企业,社区俱乐部及其非盈利机构组织。我们将利用开源的DNN作为我们核心的系统机制,更多相关信息...
  

一些DNN须知的技巧

Posted in [DNN模块开发] By baldwin

在此列举一些比较常用的技巧
1)有时我们开发模块时可能会有这样的需求,就是根据模块的相关设置来决定是否显示用户是否可以有权限编辑，即设置模块选项可能优先于编辑内容等等。这时下列的方法可能就是我们需要的：
设置模块选项
Public ReadOnly Property ModuleActions() As ModuleActionCollection Implements IActionable.ModuleActions
            Get
                ' 先检查是否已设置模块某选项
                Dim someSetting As String = Settings("someSetting")
                Dim Actions As New ModuleActionCollection
                If Not someSetting Is Nothing Then
                    Actions.Add(Me.GetNextActionID(), Localization.GetString("EditContent", LocalResourceFile), ModuleActionType.AddContent, "", "", Me.EditUrl(), False, SecurityAccessLevel.Edit, True, False)
                End If
                ' 该操作总是赋予具有Host权限的用户
                Actions.Add(Me.GetNextActionID(), Localization.GetString("ModuleOptions", LocalResourceFile), ModuleActionType.ContentOptions, "", "", Me.EditUrl("Module_Options"), False, SecurityAccessLevel.Admin, True, False)
 
                Return Actions
            End Get
 End Property
2)有时我们需要在dll程序集中嵌入资源文件，比如CSS文件，那我们可以在Assembly.cs(或Assembly.vb)添加CSS文件并设置该文件属性为嵌入资源，然后你在模块控件加载时初始化如下，这样编译的程序集包含该资源文件,部署时只要dll即可:
添加嵌入资源
Private Sub Page_Init(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Init
            Dim CSSLinkID As String = "Editor"
            Dim CSSLink As String = Page.ClientScript.GetWebResourceUrl(Me.GetType(), "Editor.css")
            If Not String.IsNullOrEmpty(CSSLink) Then
                Dim phCSS As Control = Page.FindControl("CSS")
                If Not phCSS Is Nothing Then
                    If Page.Header.FindControl(CSSLinkID) Is Nothing Then
                        Dim styleLink As New HtmlControls.HtmlLink
                        With styleLink
                            .ID = CSSLinkID
                            .Attributes("rel") = "stylesheet"
                            .Attributes("type") = "text/css"
                            .Href = CSSLink
                        End With
                        phCSS.Controls.AddAt(0, styleLink)
                    End If
                End If
            End If
End Sub
3)有时需要获取所有页面Tab(排除隐藏及其删除的页面Tab)，然后从中选取你需要的模块进行整合等等相关操作，那么如下方法可能就是你需要的:
获取Tab页面
Private Function LoadPortalTabs() As ArrayList
      Dim arrTabs As New ArrayList
      Dim objTab As TabInfo
      Dim arrPortalTabs As ArrayList = GetPortalTabs(PortalSettings.DesktopTabs, False, False)
      For Each objTab In arrPortalTabs
        If PortalSecurity.IsInRoles(objTab.AuthorizedRoles) Then
              arrTabs.Add(objTab)
        End If
     Next
    Return arrTabs
End Function
我们会不断在网站中添加在模块开发过程经常会用到的方法或相关技巧...Enjoy DNN Developing!
Rss FeedReturn TopAdd BookmarkTrackbackPrintPermalink  
Popular tags: Utility
Previous Entry: DNN Object Hydrator -- CBO解析
Next Entry: DNN今日之影响力

Comments

Was it good for you, too?Join the discussion » ,but you need to login first before you make comments.