From 74c9a3d36fcdbc3a3dd55c9759011399458cfc5c Mon Sep 17 00:00:00 2001 From: Syndamia Date: Fri, 19 Feb 2021 21:13:49 +0200 Subject: Renamed "Visual Basic Projects" folder to "VB.Net Projects" --- VB.Net Projects/Currency/Currency.sln | 20 ++ VB.Net Projects/Currency/Currency/App.config | 6 + VB.Net Projects/Currency/Currency/Currency.vbproj | 127 +++++++++++ .../Currency/Currency/Currency.vbproj.user | 3 + .../Currency/Currency/Form1.Designer.vb | 252 +++++++++++++++++++++ VB.Net Projects/Currency/Currency/Form1.resx | 120 ++++++++++ VB.Net Projects/Currency/Currency/Form1.vb | 41 ++++ .../Currency/My Project/Application.Designer.vb | 38 ++++ .../Currency/Currency/My Project/Application.myapp | 11 + .../Currency/Currency/My Project/AssemblyInfo.vb | 35 +++ .../Currency/My Project/Resources.Designer.vb | 62 +++++ .../Currency/Currency/My Project/Resources.resx | 117 ++++++++++ .../Currency/My Project/Settings.Designer.vb | 73 ++++++ .../Currency/Currency/My Project/Settings.settings | 7 + 14 files changed, 912 insertions(+) create mode 100644 VB.Net Projects/Currency/Currency.sln create mode 100644 VB.Net Projects/Currency/Currency/App.config create mode 100644 VB.Net Projects/Currency/Currency/Currency.vbproj create mode 100644 VB.Net Projects/Currency/Currency/Currency.vbproj.user create mode 100644 VB.Net Projects/Currency/Currency/Form1.Designer.vb create mode 100644 VB.Net Projects/Currency/Currency/Form1.resx create mode 100644 VB.Net Projects/Currency/Currency/Form1.vb create mode 100644 VB.Net Projects/Currency/Currency/My Project/Application.Designer.vb create mode 100644 VB.Net Projects/Currency/Currency/My Project/Application.myapp create mode 100644 VB.Net Projects/Currency/Currency/My Project/AssemblyInfo.vb create mode 100644 VB.Net Projects/Currency/Currency/My Project/Resources.Designer.vb create mode 100644 VB.Net Projects/Currency/Currency/My Project/Resources.resx create mode 100644 VB.Net Projects/Currency/Currency/My Project/Settings.Designer.vb create mode 100644 VB.Net Projects/Currency/Currency/My Project/Settings.settings (limited to 'VB.Net Projects/Currency') diff --git a/VB.Net Projects/Currency/Currency.sln b/VB.Net Projects/Currency/Currency.sln new file mode 100644 index 0000000..50307c3 --- /dev/null +++ b/VB.Net Projects/Currency/Currency.sln @@ -0,0 +1,20 @@ + +Microsoft Visual Studio Solution File, Format Version 12.00 +# Visual Studio 2012 +Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "Currency", "Currency\Currency.vbproj", "{FBC41D97-204A-4A1C-8135-7E225B1E781B}" +EndProject +Global + GlobalSection(SolutionConfigurationPlatforms) = preSolution + Debug|Any CPU = Debug|Any CPU + Release|Any CPU = Release|Any CPU + EndGlobalSection + GlobalSection(ProjectConfigurationPlatforms) = postSolution + {FBC41D97-204A-4A1C-8135-7E225B1E781B}.Debug|Any CPU.ActiveCfg = Debug|Any CPU + {FBC41D97-204A-4A1C-8135-7E225B1E781B}.Debug|Any CPU.Build.0 = Debug|Any CPU + {FBC41D97-204A-4A1C-8135-7E225B1E781B}.Release|Any CPU.ActiveCfg = Release|Any CPU + {FBC41D97-204A-4A1C-8135-7E225B1E781B}.Release|Any CPU.Build.0 = Release|Any CPU + EndGlobalSection + GlobalSection(SolutionProperties) = preSolution + HideSolutionNode = FALSE + EndGlobalSection +EndGlobal diff --git a/VB.Net Projects/Currency/Currency/App.config b/VB.Net Projects/Currency/Currency/App.config new file mode 100644 index 0000000..49c50e0 --- /dev/null +++ b/VB.Net Projects/Currency/Currency/App.config @@ -0,0 +1,6 @@ + + + + + + \ No newline at end of file diff --git a/VB.Net Projects/Currency/Currency/Currency.vbproj b/VB.Net Projects/Currency/Currency/Currency.vbproj new file mode 100644 index 0000000..e88a3ef --- /dev/null +++ b/VB.Net Projects/Currency/Currency/Currency.vbproj @@ -0,0 +1,127 @@ + + + + + Debug + AnyCPU + {FBC41D97-204A-4A1C-8135-7E225B1E781B} + WinExe + Currency.My.MyApplication + Currency + Currency + 512 + WindowsForms + v4.5 + + + AnyCPU + true + full + true + true + bin\Debug\ + Currency.xml + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 + + + AnyCPU + pdbonly + false + true + true + bin\Release\ + Currency.xml + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 + + + On + + + Binary + + + Off + + + On + + + + + + + + + + + + + + + + + + + + + + + + + + + + Form + + + Form1.vb + Form + + + + True + Application.myapp + + + True + True + Resources.resx + + + True + Settings.settings + True + + + + + Form1.vb + + + VbMyResourcesResXFileCodeGenerator + Resources.Designer.vb + My.Resources + Designer + + + + + MyApplicationCodeGenerator + Application.Designer.vb + + + SettingsSingleFileGenerator + My + Settings.Designer.vb + + + + + + \ No newline at end of file diff --git a/VB.Net Projects/Currency/Currency/Currency.vbproj.user b/VB.Net Projects/Currency/Currency/Currency.vbproj.user new file mode 100644 index 0000000..695b5c7 --- /dev/null +++ b/VB.Net Projects/Currency/Currency/Currency.vbproj.user @@ -0,0 +1,3 @@ + + + \ No newline at end of file diff --git a/VB.Net Projects/Currency/Currency/Form1.Designer.vb b/VB.Net Projects/Currency/Currency/Form1.Designer.vb new file mode 100644 index 0000000..b9ec8ef --- /dev/null +++ b/VB.Net Projects/Currency/Currency/Form1.Designer.vb @@ -0,0 +1,252 @@ + _ +Partial Class Form1 + Inherits System.Windows.Forms.Form + + 'Form overrides dispose to clean up the component list. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Required by the Windows Form Designer + Private components As System.ComponentModel.IContainer + + 'NOTE: The following procedure is required by the Windows Form Designer + 'It can be modified using the Windows Form Designer. + 'Do not modify it using the code editor. + _ + Private Sub InitializeComponent() + Me.lbl1 = New System.Windows.Forms.Label() + Me.Label1 = New System.Windows.Forms.Label() + Me.GroupBox1 = New System.Windows.Forms.GroupBox() + Me.TextBox1 = New System.Windows.Forms.TextBox() + Me.TextBox2 = New System.Windows.Forms.TextBox() + Me.TextBox3 = New System.Windows.Forms.TextBox() + Me.TextBox4 = New System.Windows.Forms.TextBox() + Me.TextBox6 = New System.Windows.Forms.TextBox() + Me.TextBox5 = New System.Windows.Forms.TextBox() + Me.RadioButton1 = New System.Windows.Forms.RadioButton() + Me.RadioButton2 = New System.Windows.Forms.RadioButton() + Me.RadioButton3 = New System.Windows.Forms.RadioButton() + Me.RadioButton4 = New System.Windows.Forms.RadioButton() + Me.Button1 = New System.Windows.Forms.Button() + Me.Button2 = New System.Windows.Forms.Button() + Me.Button3 = New System.Windows.Forms.Button() + Me.Label2 = New System.Windows.Forms.Label() + Me.GroupBox1.SuspendLayout() + Me.SuspendLayout() + ' + 'lbl1 + ' + Me.lbl1.AutoSize = True + Me.lbl1.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!) + Me.lbl1.Location = New System.Drawing.Point(74, 9) + Me.lbl1.Name = "lbl1" + Me.lbl1.Size = New System.Drawing.Size(136, 17) + Me.lbl1.TabIndex = 0 + Me.lbl1.Text = "Валутен конвертор" + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Location = New System.Drawing.Point(74, 40) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(33, 13) + Me.Label1.TabIndex = 1 + Me.Label1.Text = "Сума" + ' + 'GroupBox1 + ' + Me.GroupBox1.Controls.Add(Me.RadioButton4) + Me.GroupBox1.Controls.Add(Me.RadioButton3) + Me.GroupBox1.Controls.Add(Me.RadioButton2) + Me.GroupBox1.Controls.Add(Me.RadioButton1) + Me.GroupBox1.Location = New System.Drawing.Point(16, 73) + Me.GroupBox1.Name = "GroupBox1" + Me.GroupBox1.Size = New System.Drawing.Size(152, 107) + Me.GroupBox1.TabIndex = 2 + Me.GroupBox1.TabStop = False + Me.GroupBox1.Text = "Валута" + ' + 'TextBox1 + ' + Me.TextBox1.Location = New System.Drawing.Point(125, 39) + Me.TextBox1.Name = "TextBox1" + Me.TextBox1.Size = New System.Drawing.Size(98, 20) + Me.TextBox1.TabIndex = 3 + ' + 'TextBox2 + ' + Me.TextBox2.Enabled = False + Me.TextBox2.Location = New System.Drawing.Point(174, 89) + Me.TextBox2.Name = "TextBox2" + Me.TextBox2.Size = New System.Drawing.Size(98, 20) + Me.TextBox2.TabIndex = 4 + Me.TextBox2.Text = "2.30572" + ' + 'TextBox3 + ' + Me.TextBox3.Enabled = False + Me.TextBox3.Location = New System.Drawing.Point(174, 110) + Me.TextBox3.Name = "TextBox3" + Me.TextBox3.Size = New System.Drawing.Size(98, 20) + Me.TextBox3.TabIndex = 5 + Me.TextBox3.Text = "1.44651" + ' + 'TextBox4 + ' + Me.TextBox4.Enabled = False + Me.TextBox4.Location = New System.Drawing.Point(174, 131) + Me.TextBox4.Name = "TextBox4" + Me.TextBox4.Size = New System.Drawing.Size(98, 20) + Me.TextBox4.TabIndex = 6 + Me.TextBox4.Text = "1.50298" + ' + 'TextBox6 + ' + Me.TextBox6.Location = New System.Drawing.Point(112, 186) + Me.TextBox6.Name = "TextBox6" + Me.TextBox6.Size = New System.Drawing.Size(98, 20) + Me.TextBox6.TabIndex = 7 + ' + 'TextBox5 + ' + Me.TextBox5.Enabled = False + Me.TextBox5.Location = New System.Drawing.Point(174, 152) + Me.TextBox5.Name = "TextBox5" + Me.TextBox5.Size = New System.Drawing.Size(98, 20) + Me.TextBox5.TabIndex = 8 + Me.TextBox5.Text = "1.95583" + ' + 'RadioButton1 + ' + Me.RadioButton1.AutoSize = True + Me.RadioButton1.Location = New System.Drawing.Point(7, 19) + Me.RadioButton1.Name = "RadioButton1" + Me.RadioButton1.Size = New System.Drawing.Size(106, 17) + Me.RadioButton1.TabIndex = 0 + Me.RadioButton1.TabStop = True + Me.RadioButton1.Text = "Британска лира" + Me.RadioButton1.UseVisualStyleBackColor = True + ' + 'RadioButton2 + ' + Me.RadioButton2.AutoSize = True + Me.RadioButton2.Location = New System.Drawing.Point(7, 40) + Me.RadioButton2.Name = "RadioButton2" + Me.RadioButton2.Size = New System.Drawing.Size(127, 17) + Me.RadioButton2.TabIndex = 1 + Me.RadioButton2.TabStop = True + Me.RadioButton2.Text = "Американски долар" + Me.RadioButton2.UseVisualStyleBackColor = True + ' + 'RadioButton3 + ' + Me.RadioButton3.AutoSize = True + Me.RadioButton3.Location = New System.Drawing.Point(7, 61) + Me.RadioButton3.Name = "RadioButton3" + Me.RadioButton3.Size = New System.Drawing.Size(123, 17) + Me.RadioButton3.TabIndex = 2 + Me.RadioButton3.TabStop = True + Me.RadioButton3.Text = "Швейцарски франк" + Me.RadioButton3.UseVisualStyleBackColor = True + ' + 'RadioButton4 + ' + Me.RadioButton4.AutoSize = True + Me.RadioButton4.Location = New System.Drawing.Point(7, 82) + Me.RadioButton4.Name = "RadioButton4" + Me.RadioButton4.Size = New System.Drawing.Size(50, 17) + Me.RadioButton4.TabIndex = 3 + Me.RadioButton4.TabStop = True + Me.RadioButton4.Text = "Евро" + Me.RadioButton4.UseVisualStyleBackColor = True + ' + 'Button1 + ' + Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Popup + Me.Button1.Location = New System.Drawing.Point(27, 186) + Me.Button1.Name = "Button1" + Me.Button1.Size = New System.Drawing.Size(70, 19) + Me.Button1.TabIndex = 9 + Me.Button1.Text = "Start" + Me.Button1.UseVisualStyleBackColor = True + ' + 'Button2 + ' + Me.Button2.Location = New System.Drawing.Point(27, 211) + Me.Button2.Name = "Button2" + Me.Button2.Size = New System.Drawing.Size(70, 19) + Me.Button2.TabIndex = 10 + Me.Button2.Text = "New" + Me.Button2.UseVisualStyleBackColor = True + ' + 'Button3 + ' + Me.Button3.Location = New System.Drawing.Point(27, 236) + Me.Button3.Name = "Button3" + Me.Button3.Size = New System.Drawing.Size(70, 19) + Me.Button3.TabIndex = 11 + Me.Button3.Text = "Close" + Me.Button3.UseVisualStyleBackColor = True + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.Location = New System.Drawing.Point(230, 189) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(42, 13) + Me.Label2.TabIndex = 12 + Me.Label2.Text = "Валута" + ' + 'Form1 + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(284, 261) + Me.Controls.Add(Me.Label2) + Me.Controls.Add(Me.Button3) + Me.Controls.Add(Me.Button2) + Me.Controls.Add(Me.Button1) + Me.Controls.Add(Me.TextBox5) + Me.Controls.Add(Me.TextBox6) + Me.Controls.Add(Me.TextBox4) + Me.Controls.Add(Me.TextBox3) + Me.Controls.Add(Me.TextBox2) + Me.Controls.Add(Me.TextBox1) + Me.Controls.Add(Me.GroupBox1) + Me.Controls.Add(Me.Label1) + Me.Controls.Add(Me.lbl1) + Me.Name = "Form1" + Me.Text = "Form1" + Me.GroupBox1.ResumeLayout(False) + Me.GroupBox1.PerformLayout() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents lbl1 As System.Windows.Forms.Label + Friend WithEvents Label1 As System.Windows.Forms.Label + Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox + Friend WithEvents TextBox1 As System.Windows.Forms.TextBox + Friend WithEvents TextBox2 As System.Windows.Forms.TextBox + Friend WithEvents TextBox3 As System.Windows.Forms.TextBox + Friend WithEvents TextBox4 As System.Windows.Forms.TextBox + Friend WithEvents TextBox6 As System.Windows.Forms.TextBox + Friend WithEvents TextBox5 As System.Windows.Forms.TextBox + Friend WithEvents RadioButton4 As System.Windows.Forms.RadioButton + Friend WithEvents RadioButton3 As System.Windows.Forms.RadioButton + Friend WithEvents RadioButton2 As System.Windows.Forms.RadioButton + Friend WithEvents RadioButton1 As System.Windows.Forms.RadioButton + Friend WithEvents Button1 As System.Windows.Forms.Button + Friend WithEvents Button2 As System.Windows.Forms.Button + Friend WithEvents Button3 As System.Windows.Forms.Button + Friend WithEvents Label2 As System.Windows.Forms.Label + +End Class diff --git a/VB.Net Projects/Currency/Currency/Form1.resx b/VB.Net Projects/Currency/Currency/Form1.resx new file mode 100644 index 0000000..29dcb1b --- /dev/null +++ b/VB.Net Projects/Currency/Currency/Form1.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/VB.Net Projects/Currency/Currency/Form1.vb b/VB.Net Projects/Currency/Currency/Form1.vb new file mode 100644 index 0000000..c925da0 --- /dev/null +++ b/VB.Net Projects/Currency/Currency/Form1.vb @@ -0,0 +1,41 @@ +Public Class Form1 + Dim x As String + Dim y As Single + + Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click + Label2.Text = x + TextBox6.Text = Val(TextBox1.Text) / y + End Sub + + Private Sub RadioButton1_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton1.CheckedChanged + x = "GBP" + y = Val(TextBox2.Text) + + End Sub + + Private Sub RadioButton2_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton2.CheckedChanged + x = "USD" + y = Val(TextBox3.Text) + End Sub + + Private Sub RadioButton3_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton3.CheckedChanged + x = "CHF" + y = Val(TextBox4.Text) + End Sub + + Private Sub RadioButton4_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton4.CheckedChanged + x = "EUR" + y = Val(TextBox5.Text) + End Sub + + Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click + TextBox6.Text = vbNullString + TextBox1.Text = vbNullString + Label2.Text = vbNullString + End Sub + + Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click + Close() + + End Sub +End Class diff --git a/VB.Net Projects/Currency/Currency/My Project/Application.Designer.vb b/VB.Net Projects/Currency/Currency/My Project/Application.Designer.vb new file mode 100644 index 0000000..fe72e31 --- /dev/null +++ b/VB.Net Projects/Currency/Currency/My Project/Application.Designer.vb @@ -0,0 +1,38 @@ +'------------------------------------------------------------------------------ +' +' This code was generated by a tool. +' Runtime Version:4.0.30319.34014 +' +' Changes to this file may cause incorrect behavior and will be lost if +' the code is regenerated. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + + +Namespace My + + 'NOTE: This file is auto-generated; do not modify it directly. To make changes, + ' or if you encounter build errors in this file, go to the Project Designer + ' (go to Project Properties or double-click the My Project node in + ' Solution Explorer), and make changes on the Application tab. + ' + Partial Friend Class MyApplication + + _ + Public Sub New() + MyBase.New(Global.Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows) + Me.IsSingleInstance = false + Me.EnableVisualStyles = true + Me.SaveMySettingsOnExit = true + Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses + End Sub + + _ + Protected Overrides Sub OnCreateMainForm() + Me.MainForm = Global.Currency.Form1 + End Sub + End Class +End Namespace diff --git a/VB.Net Projects/Currency/Currency/My Project/Application.myapp b/VB.Net Projects/Currency/Currency/My Project/Application.myapp new file mode 100644 index 0000000..7b0c597 --- /dev/null +++ b/VB.Net Projects/Currency/Currency/My Project/Application.myapp @@ -0,0 +1,11 @@ + + + true + Form1 + false + 0 + true + 0 + 0 + true + diff --git a/VB.Net Projects/Currency/Currency/My Project/AssemblyInfo.vb b/VB.Net Projects/Currency/Currency/My Project/AssemblyInfo.vb new file mode 100644 index 0000000..29c79ce --- /dev/null +++ b/VB.Net Projects/Currency/Currency/My Project/AssemblyInfo.vb @@ -0,0 +1,35 @@ +Imports System +Imports System.Reflection +Imports System.Runtime.InteropServices + +' General Information about an assembly is controlled through the following +' set of attributes. Change these attribute values to modify the information +' associated with an assembly. + +' Review the values of the assembly attributes + + + + + + + + + + +'The following GUID is for the ID of the typelib if this project is exposed to COM + + +' Version information for an assembly consists of the following four values: +' +' Major Version +' Minor Version +' Build Number +' Revision +' +' You can specify all the values or you can default the Build and Revision Numbers +' by using the '*' as shown below: +' + + + diff --git a/VB.Net Projects/Currency/Currency/My Project/Resources.Designer.vb b/VB.Net Projects/Currency/Currency/My Project/Resources.Designer.vb new file mode 100644 index 0000000..6916f7d --- /dev/null +++ b/VB.Net Projects/Currency/Currency/My Project/Resources.Designer.vb @@ -0,0 +1,62 @@ +'------------------------------------------------------------------------------ +' +' This code was generated by a tool. +' Runtime Version:4.0.30319.34014 +' +' Changes to this file may cause incorrect behavior and will be lost if +' the code is regenerated. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + + +Namespace My.Resources + + 'This class was auto-generated by the StronglyTypedResourceBuilder + 'class via a tool like ResGen or Visual Studio. + 'To add or remove a member, edit your .ResX file then rerun ResGen + 'with the /str option, or rebuild your VS project. + ''' + ''' A strongly-typed resource class, for looking up localized strings, etc. + ''' + _ + Friend Module Resources + + Private resourceMan As Global.System.Resources.ResourceManager + + Private resourceCulture As Global.System.Globalization.CultureInfo + + ''' + ''' Returns the cached ResourceManager instance used by this class. + ''' + _ + Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager + Get + If Object.ReferenceEquals(resourceMan, Nothing) Then + Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("Currency.Resources", GetType(Resources).Assembly) + resourceMan = temp + End If + Return resourceMan + End Get + End Property + + ''' + ''' Overrides the current thread's CurrentUICulture property for all + ''' resource lookups using this strongly typed resource class. + ''' + _ + Friend Property Culture() As Global.System.Globalization.CultureInfo + Get + Return resourceCulture + End Get + Set(ByVal value As Global.System.Globalization.CultureInfo) + resourceCulture = value + End Set + End Property + End Module +End Namespace diff --git a/VB.Net Projects/Currency/Currency/My Project/Resources.resx b/VB.Net Projects/Currency/Currency/My Project/Resources.resx new file mode 100644 index 0000000..ffecec8 --- /dev/null +++ b/VB.Net Projects/Currency/Currency/My Project/Resources.resx @@ -0,0 +1,117 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/VB.Net Projects/Currency/Currency/My Project/Settings.Designer.vb b/VB.Net Projects/Currency/Currency/My Project/Settings.Designer.vb new file mode 100644 index 0000000..494e9ae --- /dev/null +++ b/VB.Net Projects/Currency/Currency/My Project/Settings.Designer.vb @@ -0,0 +1,73 @@ +'------------------------------------------------------------------------------ +' +' This code was generated by a tool. +' Runtime Version:4.0.30319.34014 +' +' Changes to this file may cause incorrect behavior and will be lost if +' the code is regenerated. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + + +Namespace My + + _ + Partial Friend NotInheritable Class MySettings + Inherits Global.System.Configuration.ApplicationSettingsBase + + Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings), MySettings) + +#Region "My.Settings Auto-Save Functionality" +#If _MyType = "WindowsForms" Then + Private Shared addedHandler As Boolean + + Private Shared addedHandlerLockObject As New Object + + _ + Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs) + If My.Application.SaveMySettingsOnExit Then + My.Settings.Save() + End If + End Sub +#End If +#End Region + + Public Shared ReadOnly Property [Default]() As MySettings + Get + +#If _MyType = "WindowsForms" Then + If Not addedHandler Then + SyncLock addedHandlerLockObject + If Not addedHandler Then + AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings + addedHandler = True + End If + End SyncLock + End If +#End If + Return defaultInstance + End Get + End Property + End Class +End Namespace + +Namespace My + + _ + Friend Module MySettingsProperty + + _ + Friend ReadOnly Property Settings() As Global.Currency.My.MySettings + Get + Return Global.Currency.My.MySettings.Default + End Get + End Property + End Module +End Namespace diff --git a/VB.Net Projects/Currency/Currency/My Project/Settings.settings b/VB.Net Projects/Currency/Currency/My Project/Settings.settings new file mode 100644 index 0000000..377f56d --- /dev/null +++ b/VB.Net Projects/Currency/Currency/My Project/Settings.settings @@ -0,0 +1,7 @@ + + + + + + + -- cgit v1.2.3