暫無描述
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

Settings.Designer.vb 4.1KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192939495
  1. '------------------------------------------------------------------------------
  2. ' <auto-generated>
  3. ' 這段程式碼是由工具產生的。
  4. ' 執行階段版本:4.0.30319.42000
  5. '
  6. ' 對這個檔案所做的變更可能會造成錯誤的行為,而且如果重新產生程式碼,
  7. ' 變更將會遺失。
  8. ' </auto-generated>
  9. '------------------------------------------------------------------------------
  10. Option Strict On
  11. Option Explicit On
  12. Namespace My
  13. <Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(),
  14. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "17.5.0.0"),
  15. Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>
  16. Partial Friend NotInheritable Class MySettings
  17. Inherits Global.System.Configuration.ApplicationSettingsBase
  18. Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()), MySettings)
  19. #Region "My.Settings 自動儲存功能"
  20. #If _MyType = "WindowsForms" Then
  21. Private Shared addedHandler As Boolean
  22. Private Shared addedHandlerLockObject As New Object
  23. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>
  24. Private Shared Sub AutoSaveSettings(sender As Global.System.Object, e As Global.System.EventArgs)
  25. If My.Application.SaveMySettingsOnExit Then
  26. My.Settings.Save()
  27. End If
  28. End Sub
  29. #End If
  30. #End Region
  31. Public Shared ReadOnly Property [Default]() As MySettings
  32. Get
  33. #If _MyType = "WindowsForms" Then
  34. If Not addedHandler Then
  35. SyncLock addedHandlerLockObject
  36. If Not addedHandler Then
  37. AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
  38. addedHandler = True
  39. End If
  40. End SyncLock
  41. End If
  42. #End If
  43. Return defaultInstance
  44. End Get
  45. End Property
  46. <Global.System.Configuration.ApplicationScopedSettingAttribute(),
  47. Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),
  48. Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.ConnectionString),
  49. Global.System.Configuration.DefaultSettingValueAttribute("Data Source=192.168.1.63,2433;Initial Catalog=HX-GPS-ERP-SYS;Persist Security Info" &
  50. "=True;User ID=B70340;Password=0911274990")>
  51. Public ReadOnly Property 連線字串() As String
  52. Get
  53. Return CType(Me("連線字串"), String)
  54. End Get
  55. End Property
  56. <Global.System.Configuration.ApplicationScopedSettingAttribute(), _
  57. Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  58. Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.ConnectionString), _
  59. Global.System.Configuration.DefaultSettingValueAttribute("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\bin\Debug\HabitData."& _
  60. "mdb;Persist Security Info=True")> _
  61. Public ReadOnly Property 設定() As String
  62. Get
  63. Return CType(Me("設定"),String)
  64. End Get
  65. End Property
  66. End Class
  67. End Namespace
  68. Namespace My
  69. <Global.Microsoft.VisualBasic.HideModuleNameAttribute(), _
  70. Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  71. Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()> _
  72. Friend Module MySettingsProperty
  73. <Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")> _
  74. Friend ReadOnly Property Settings() As Global.HX_PGS_ERP_SYS.My.MySettings
  75. Get
  76. Return Global.HX_PGS_ERP_SYS.My.MySettings.Default
  77. End Get
  78. End Property
  79. End Module
  80. End Namespace