[VB] ConfigurationManager

    Public Shared Function open(ByVal sname As String) As mysection
        Dim instance
        Dim config As Configuration = ConfigurationManager.OpenExeConfiguration(ConfigurationUserLevel.None)
        If config.Sections(sname) Is Nothing Then
            instance = New mysection()
            config.Sections.Add(sname, instance)
            MsgBox("Added section: " & sname)
            config.Save(ConfigurationSaveMode.Modified)
        Else
            instance = config.Sections(sname)
        End If
        Return instance
    End Function

korenje3 je 14. feb 2013 ob 16:38 izjavil:

forex trgovanje...