Açıklama Yok
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 3.9KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293
  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.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.12.127;Initial Catalog=MAO-ORANGE-ERP-SYS;Persist Security In"& _
  50. "fo=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. Public ReadOnly Property 設定1() As String
  60. Get
  61. Return CType(Me("設定1"),String)
  62. End Get
  63. End Property
  64. End Class
  65. End Namespace
  66. Namespace My
  67. <Global.Microsoft.VisualBasic.HideModuleNameAttribute(), _
  68. Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  69. Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()> _
  70. Friend Module MySettingsProperty
  71. <Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")> _
  72. Friend ReadOnly Property Settings() As Global.MaoOrange_Hongji.My.MySettings
  73. Get
  74. Return Global.MaoOrange_Hongji.My.MySettings.Default
  75. End Get
  76. End Property
  77. End Module
  78. End Namespace