ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/AnywhereTS-MSSQL/trunk/VBDLL/My Project/Settings.Designer.vb
Revision: 4
Committed: Wed Jul 11 14:19:13 2012 UTC (11 years, 4 months ago) by william
File size: 3749 byte(s)
Log Message:
imported from https://anywherets.svn.sourceforge.net/svnroot/anywherets/trunk/
Revision: 1
Author: beartown
Date: 3:10:40 AM, Monday, June 21, 2010
Message:
First upload. Still todo in order to get a fully working product: Replace Thinstation images with vanilla Thinstation, modify ImageDesigntimeConfig.cs, ImageRuntimeConfig.cs in order to support the Thinstation image

File Contents

# Content
1 '------------------------------------------------------------------------------
2 ' <auto-generated>
3 ' This code was generated by a tool.
4 ' Runtime Version:2.0.50727.3607
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", "9.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.ApplicationScopedSettingAttribute(), _
58 Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
59 Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.ConnectionString), _
60 Global.System.Configuration.DefaultSettingValueAttribute("Data Source=.\SQLEXPRESS;AttachDbFilename=""C:\Documents and Settings\ab\My Docume"& _
61 "nts\AnywhereTS\TS-CONIFG\SOURCE\TSAdminTool\ats.mdf"";Integrated Security=True;Us"& _
62 "er Instance=True")> _
63 Public ReadOnly Property atsConnectionString() As String
64 Get
65 Return CType(Me("atsConnectionString"),String)
66 End Get
67 End Property
68 End Class
69 End Namespace
70
71 Namespace My
72
73 <Global.Microsoft.VisualBasic.HideModuleNameAttribute(), _
74 Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
75 Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()> _
76 Friend Module MySettingsProperty
77
78 <Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")> _
79 Friend ReadOnly Property Settings() As Global.AnywhereTS.My.MySettings
80 Get
81 Return Global.AnywhereTS.My.MySettings.Default
82 End Get
83 End Property
84 End Module
85 End Namespace