PageRenderTime 38ms CodeModel.GetById 11ms RepoModel.GetById 0ms app.codeStats 0ms

/Visual Studio 2008/VBVstoExcelWorkbook/My Project/Settings.Designer.vb

#
Visual Basic | 82 lines | 59 code | 14 blank | 9 comment | 0 complexity | c24c248c8962c195770bce6204c13c53 MD5 | raw file
  1. '------------------------------------------------------------------------------
  2. ' <auto-generated>
  3. ' This code was generated by a tool.
  4. ' Runtime Version:2.0.50727.1873
  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. Option Strict On
  11. Option Explicit On
  12. <Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
  13. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "9.0.0.0"), _
  14. Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
  15. Partial Friend NotInheritable Class MySettings
  16. Inherits Global.System.Configuration.ApplicationSettingsBase
  17. Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings),MySettings)
  18. #Region "My.Settings Auto-Save Functionality"
  19. #If _MyType = "WindowsForms" Then
  20. Private Shared addedHandler As Boolean
  21. Private Shared addedHandlerLockObject As New Object
  22. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
  23. Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs)
  24. If My.Application.SaveMySettingsOnExit Then
  25. My.Settings.Save()
  26. End If
  27. End Sub
  28. #End If
  29. #End Region
  30. Public Shared ReadOnly Property [Default]() As MySettings
  31. Get
  32. #If _MyType = "WindowsForms" Then
  33. If Not addedHandler Then
  34. SyncLock addedHandlerLockObject
  35. If Not addedHandler Then
  36. AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
  37. addedHandler = True
  38. End If
  39. End SyncLock
  40. End If
  41. #End If
  42. Return defaultInstance
  43. End Get
  44. End Property
  45. <Global.System.Configuration.ApplicationScopedSettingAttribute(), _
  46. Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  47. Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.ConnectionString), _
  48. Global.System.Configuration.DefaultSettingValueAttribute("Data Source=localhost;Initial Catalog=SQLServer2005DB;User ID=HelloWorld;Passwo" & _
  49. "rd=111111")> _
  50. Public ReadOnly Property SchoolConnectionString() As String
  51. Get
  52. Return CType(Me("SchoolConnectionString"), String)
  53. End Get
  54. End Property
  55. End Class
  56. Namespace My
  57. <Global.Microsoft.VisualBasic.HideModuleNameAttribute(), _
  58. Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  59. Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()> _
  60. Friend Module MySettingsProperty
  61. <Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")> _
  62. Friend ReadOnly Property Settings() As Global.VBVstoExcelWorkbook.MySettings
  63. Get
  64. Return Global.VBVstoExcelWorkbook.MySettings.Default
  65. End Get
  66. End Property
  67. End Module
  68. End Namespace