settingarticle.ascx.vb

来自「如果不使用IIS,请先运行 XSP.exe,待提示已侦听 8080端口后」· VB 代码 · 共 23 行

Imports DNNLite.Entites.Modules
Imports System.Collections.Generic
Partial Class DesktopModules_Article_SettingArticle
    Inherits PortalModuleSettingsBase


    Public Overrides Function GetToSaveSettings() As System.Collections.Generic.IDictionary(Of String, String)
        Dim s As New Dictionary(Of String, String)()

        s.Add("Templet", selfile1.FileName)

        Return s
    End Function

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not IsPostBack Then
            If Settings.ContainsKey("Templet") Then
                selfile1.FileName = Settings("Templet")
            End If
        End If
    End Sub
End Class