Advertisement
enos

setting

Apr 22nd, 2014
96
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
VB.NET 3.97 KB | None | 0 0
  1. '------------------------------------------------------------------------------
  2. ' <auto-generated>
  3. '     This code was generated by a tool.
  4. '     Runtime Version:4.0.30319.1
  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", "10.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.        
  57.         <Global.System.Configuration.UserScopedSettingAttribute(), _
  58.          Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  59.          Global.System.Configuration.DefaultSettingValueAttribute("data source=IK-PC; Initial Catalog=fisherface_login; integrated security=t" & _
  60.             "rue")> _
  61.         Public Property koneksiString() As String
  62.             Get
  63.                 Return CType(Me("koneksiString"), String)
  64.             End Get
  65.             Set(ByVal value As String)
  66.                 Me("koneksiString") = value
  67.             End Set
  68.         End Property
  69.        
  70.         <Global.System.Configuration.UserScopedSettingAttribute(),  _
  71.          Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
  72.          Global.System.Configuration.DefaultSettingValueAttribute("0")>  _
  73.         Public Property Jumlahcapture() As Integer
  74.             Get
  75.                 Return CType(Me("Jumlahcapture"),Integer)
  76.             End Get
  77.             Set
  78.                 Me("Jumlahcapture") = value
  79.             End Set
  80.         End Property
  81.     End Class
  82. End Namespace
  83.  
  84. Namespace My
  85.    
  86.     <Global.Microsoft.VisualBasic.HideModuleNameAttribute(),  _
  87.      Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
  88.      Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()>  _
  89.     Friend Module MySettingsProperty
  90.        
  91.         <Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")>  _
  92.         Friend ReadOnly Property Settings() As Global.Fisher_Face_Emgu.My.MySettings
  93.             Get
  94.                 Return Global.Fisher_Face_Emgu.My.MySettings.Default
  95.             End Get
  96.         End Property
  97.     End Module
  98. End Namespace
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement