home *** CD-ROM | disk | FTP | other *** search
/ PC World 2007 April / PCWorld_2007-04_cd.bin / multimedia / ria / Setup.exe / SetupViewer.msi / _6509F8B8DCD3455CA766F9D5E8D0D7BA < prev    next >
Text File  |  2006-12-27  |  3KB  |  74 lines
  1. '------------------------------------------------------------------------------
  2. ' <auto-generated>
  3. '     This code was generated by a tool.
  4. '     Runtime Version:2.0.50727.42
  5. '
  6. '     Changes to this file may cause incorrect behavior and will be lost if
  7. '     the code is regenerated.
  8. ' </auto-generated>
  9. '------------------------------------------------------------------------------
  10.  
  11. Option Strict On
  12. Option Explicit On
  13.  
  14.  
  15. Namespace My
  16.  
  17.     <Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(),  _
  18.      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "8.0.0.0"),  _
  19.      Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _
  20.     Partial Friend NotInheritable Class MySettings
  21.         Inherits Global.System.Configuration.ApplicationSettingsBase
  22.         
  23.         Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings), MySettings)
  24.         
  25. #Region "My.Settings Auto-Save Functionality"
  26. #If _MyType = "WindowsForms" Then
  27.         Private Shared addedHandler As Boolean
  28.  
  29.         Private Shared addedHandlerLockObject As New Object
  30.  
  31.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
  32.         Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs)
  33.             If My.Application.SaveMySettingsOnExit Then
  34.                 My.Settings.Save()
  35.             End If
  36.         End Sub
  37. #End If
  38. #End Region
  39.         
  40.         Public Shared ReadOnly Property [Default]() As MySettings
  41.             Get
  42.                 
  43. #If _MyType = "WindowsForms" Then
  44.                    If Not addedHandler Then
  45.                         SyncLock addedHandlerLockObject
  46.                             If Not addedHandler Then
  47.                                 AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
  48.                                 addedHandler = True
  49.                             End If
  50.                         End SyncLock
  51.                     End If
  52. #End If
  53.                 Return defaultInstance
  54.             End Get
  55.         End Property
  56.     End Class
  57. End Namespace
  58.  
  59. Namespace My
  60.     
  61.     <Global.Microsoft.VisualBasic.HideModuleNameAttribute(),  _
  62.      Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
  63.      Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()>  _
  64.     Friend Module MySettingsProperty
  65.         
  66.         <Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")>  _
  67.         Friend ReadOnly Property Settings() As Global.Demo.My.MySettings
  68.             Get
  69.                 Return Global.Demo.My.MySettings.Default
  70.             End Get
  71.         End Property
  72.     End Module
  73. End Namespace
  74.