Ingen beskrivning
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.2KB

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", "16.2.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.10.5;Initial Catalog=METO-MES-SYS;Persist Security Info=True;"& _
  50. "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("Data Source=192.168.0.80;Initial Catalog=METO-MES-SYS;Persist Security Info=True;"& _
  60. "User ID=b70340;Password=0911274990")> _
  61. Public ReadOnly Property 連線字串2() As String
  62. Get
  63. Return CType(Me("連線字串2"),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.WINPROFIT_ERP_SYS.My.MySettings
  75. Get
  76. Return Global.WINPROFIT_ERP_SYS.My.MySettings.Default
  77. End Get
  78. End Property
  79. End Module
  80. End Namespace