mdlfunction.vb

来自「VB开发的股票软件」· VB 代码 · 共 45 行

Module mdlFunction

    'populateConfigfromForm -populates Config from the form fileds...
    Public Sub PopulateConfigFromForm(ByVal config As ConfigInfo)
        'copy the values
        config.MainAlawyRefresh = pMainAlawyRefresh
        config.MainOpacity = pMainOpacity
        config.IsTop = pIsTop
        config.MainRefreshTime = pMainRefreshTime
        config.NotifyAlawyRefresh = pNotifyAlawyRefresh
        config.NotifyRefreshTime = pNotifyRefreshTime
        config.WebSite = pWebSite
        config.ICO = pIco
        config.CurrentStockCode = pCurrentStockCode
    End Sub



    'PopulateFormFromConfig  -populates the form from an Config object...
    Public Sub PopulateFormFromConfig(ByVal config As ConfigInfo)
        'copy the values...
        pMainAlawyRefresh = config.MainAlawyRefresh
        pIsTop = config.IsTop
        pMainOpacity = config.MainOpacity
        pMainRefreshTime = config.MainRefreshTime
        pNotifyRefreshTime = config.NotifyRefreshTime
        pNotifyAlawyRefresh = config.NotifyAlawyRefresh
        pWebSite = config.WebSite
        pIco = config.ICO
        pCurrentStockCode = config.CurrentStockCode
    End Sub

    'DataFilename -where should we store our data?
    Public ReadOnly Property DataFilename() As String
        Get
            'get our working folder...
            Dim folder As String
            folder = Environment.CurrentDirectory
            'return the folder with the name "Config.xml"..
            Return folder & "\Data\Config.xml"
        End Get
    End Property

End Module