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/Equasion/Equasion.sln | 20 +++ VB.Net Projects/Equasion/Equasion/App.config | 6 + VB.Net Projects/Equasion/Equasion/Equasion.vbproj | 127 +++++++++++++++++ .../Equasion/Equasion/Equasion.vbproj.user | 3 + .../Equasion/Equasion/Form1.Designer.vb | 128 +++++++++++++++++ VB.Net Projects/Equasion/Equasion/Form1.resx | 156 +++++++++++++++++++++ VB.Net Projects/Equasion/Equasion/Form1.vb | 21 +++ .../Equasion/My Project/Application.Designer.vb | 38 +++++ .../Equasion/Equasion/My Project/Application.myapp | 11 ++ .../Equasion/Equasion/My Project/AssemblyInfo.vb | 35 +++++ .../Equasion/My Project/Resources.Designer.vb | 62 ++++++++ .../Equasion/Equasion/My Project/Resources.resx | 117 ++++++++++++++++ .../Equasion/My Project/Settings.Designer.vb | 73 ++++++++++ .../Equasion/Equasion/My Project/Settings.settings | 7 + 14 files changed, 804 insertions(+) create mode 100644 VB.Net Projects/Equasion/Equasion.sln create mode 100644 VB.Net Projects/Equasion/Equasion/App.config create mode 100644 VB.Net Projects/Equasion/Equasion/Equasion.vbproj create mode 100644 VB.Net Projects/Equasion/Equasion/Equasion.vbproj.user create mode 100644 VB.Net Projects/Equasion/Equasion/Form1.Designer.vb create mode 100644 VB.Net Projects/Equasion/Equasion/Form1.resx create mode 100644 VB.Net Projects/Equasion/Equasion/Form1.vb create mode 100644 VB.Net Projects/Equasion/Equasion/My Project/Application.Designer.vb create mode 100644 VB.Net Projects/Equasion/Equasion/My Project/Application.myapp create mode 100644 VB.Net Projects/Equasion/Equasion/My Project/AssemblyInfo.vb create mode 100644 VB.Net Projects/Equasion/Equasion/My Project/Resources.Designer.vb create mode 100644 VB.Net Projects/Equasion/Equasion/My Project/Resources.resx create mode 100644 VB.Net Projects/Equasion/Equasion/My Project/Settings.Designer.vb create mode 100644 VB.Net Projects/Equasion/Equasion/My Project/Settings.settings (limited to 'VB.Net Projects/Equasion') diff --git a/VB.Net Projects/Equasion/Equasion.sln b/VB.Net Projects/Equasion/Equasion.sln new file mode 100644 index 0000000..e03e9e5 --- /dev/null +++ b/VB.Net Projects/Equasion/Equasion.sln @@ -0,0 +1,20 @@ + +Microsoft Visual Studio Solution File, Format Version 12.00 +# Visual Studio 2012 +Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "Equasion", "Equasion\Equasion.vbproj", "{59146A58-0CBC-4994-9CFE-C1FA85EA57FC}" +EndProject +Global + GlobalSection(SolutionConfigurationPlatforms) = preSolution + Debug|Any CPU = Debug|Any CPU + Release|Any CPU = Release|Any CPU + EndGlobalSection + GlobalSection(ProjectConfigurationPlatforms) = postSolution + {59146A58-0CBC-4994-9CFE-C1FA85EA57FC}.Debug|Any CPU.ActiveCfg = Debug|Any CPU + {59146A58-0CBC-4994-9CFE-C1FA85EA57FC}.Debug|Any CPU.Build.0 = Debug|Any CPU + {59146A58-0CBC-4994-9CFE-C1FA85EA57FC}.Release|Any CPU.ActiveCfg = Release|Any CPU + {59146A58-0CBC-4994-9CFE-C1FA85EA57FC}.Release|Any CPU.Build.0 = Release|Any CPU + EndGlobalSection + GlobalSection(SolutionProperties) = preSolution + HideSolutionNode = FALSE + EndGlobalSection +EndGlobal diff --git a/VB.Net Projects/Equasion/Equasion/App.config b/VB.Net Projects/Equasion/Equasion/App.config new file mode 100644 index 0000000..49c50e0 --- /dev/null +++ b/VB.Net Projects/Equasion/Equasion/App.config @@ -0,0 +1,6 @@ + + + + + + \ No newline at end of file diff --git a/VB.Net Projects/Equasion/Equasion/Equasion.vbproj b/VB.Net Projects/Equasion/Equasion/Equasion.vbproj new file mode 100644 index 0000000..3503c72 --- /dev/null +++ b/VB.Net Projects/Equasion/Equasion/Equasion.vbproj @@ -0,0 +1,127 @@ + + + + + Debug + AnyCPU + {59146A58-0CBC-4994-9CFE-C1FA85EA57FC} + WinExe + WindowsApplication1.My.MyApplication + WindowsApplication1 + Equasion + 512 + WindowsForms + v4.5 + + + AnyCPU + true + full + true + true + bin\Debug\ + Equasion.xml + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 + + + AnyCPU + pdbonly + false + true + true + bin\Release\ + Equasion.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/Equasion/Equasion/Equasion.vbproj.user b/VB.Net Projects/Equasion/Equasion/Equasion.vbproj.user new file mode 100644 index 0000000..695b5c7 --- /dev/null +++ b/VB.Net Projects/Equasion/Equasion/Equasion.vbproj.user @@ -0,0 +1,3 @@ + + + \ No newline at end of file diff --git a/VB.Net Projects/Equasion/Equasion/Form1.Designer.vb b/VB.Net Projects/Equasion/Equasion/Form1.Designer.vb new file mode 100644 index 0000000..53fd594 --- /dev/null +++ b/VB.Net Projects/Equasion/Equasion/Form1.Designer.vb @@ -0,0 +1,128 @@ + _ +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() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Form1)) + Me.lblA = New System.Windows.Forms.Label() + Me.lblB = New System.Windows.Forms.Label() + Me.BackgroundWorker1 = New System.ComponentModel.BackgroundWorker() + Me.txtA = New System.Windows.Forms.TextBox() + Me.txtB = New System.Windows.Forms.TextBox() + Me.btnCalculate = New System.Windows.Forms.Button() + Me.btnClear = New System.Windows.Forms.Button() + Me.PictureBox1 = New System.Windows.Forms.PictureBox() + CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'lblA + ' + Me.lblA.AutoSize = True + Me.lblA.Font = New System.Drawing.Font("Microsoft Sans Serif", 20.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(204, Byte)) + Me.lblA.Location = New System.Drawing.Point(29, 35) + Me.lblA.Name = "lblA" + Me.lblA.Size = New System.Drawing.Size(52, 31) + Me.lblA.TabIndex = 0 + Me.lblA.Text = "а =" + ' + 'lblB + ' + Me.lblB.AutoSize = True + Me.lblB.Font = New System.Drawing.Font("Microsoft Sans Serif", 20.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(204, Byte)) + Me.lblB.Location = New System.Drawing.Point(29, 91) + Me.lblB.Name = "lblB" + Me.lblB.Size = New System.Drawing.Size(52, 31) + Me.lblB.TabIndex = 1 + Me.lblB.Text = "b =" + ' + 'txtA + ' + Me.txtA.Location = New System.Drawing.Point(109, 46) + Me.txtA.Name = "txtA" + Me.txtA.Size = New System.Drawing.Size(126, 20) + Me.txtA.TabIndex = 2 + ' + 'txtB + ' + Me.txtB.Location = New System.Drawing.Point(109, 102) + Me.txtB.Name = "txtB" + Me.txtB.Size = New System.Drawing.Size(126, 20) + Me.txtB.TabIndex = 3 + ' + 'btnCalculate + ' + Me.btnCalculate.Location = New System.Drawing.Point(25, 207) + Me.btnCalculate.Name = "btnCalculate" + Me.btnCalculate.Size = New System.Drawing.Size(93, 69) + Me.btnCalculate.TabIndex = 4 + Me.btnCalculate.Text = "Изчисли" + Me.btnCalculate.UseVisualStyleBackColor = True + ' + 'btnClear + ' + Me.btnClear.Location = New System.Drawing.Point(146, 207) + Me.btnClear.Name = "btnClear" + Me.btnClear.Size = New System.Drawing.Size(89, 69) + Me.btnClear.TabIndex = 5 + Me.btnClear.Text = "Изчисти" + Me.btnClear.UseVisualStyleBackColor = True + ' + 'PictureBox1 + ' + Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image) + Me.PictureBox1.Location = New System.Drawing.Point(45, 139) + Me.PictureBox1.Name = "PictureBox1" + Me.PictureBox1.Size = New System.Drawing.Size(179, 62) + Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.AutoSize + Me.PictureBox1.TabIndex = 6 + Me.PictureBox1.TabStop = False + ' + 'Form1 + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.BackColor = System.Drawing.SystemColors.ActiveBorder + Me.ClientSize = New System.Drawing.Size(284, 287) + Me.Controls.Add(Me.PictureBox1) + Me.Controls.Add(Me.btnClear) + Me.Controls.Add(Me.btnCalculate) + Me.Controls.Add(Me.txtB) + Me.Controls.Add(Me.txtA) + Me.Controls.Add(Me.lblB) + Me.Controls.Add(Me.lblA) + Me.Name = "Form1" + Me.Text = "Израз C" + CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents lblA As System.Windows.Forms.Label + Friend WithEvents lblB As System.Windows.Forms.Label + Friend WithEvents BackgroundWorker1 As System.ComponentModel.BackgroundWorker + Friend WithEvents txtA As System.Windows.Forms.TextBox + Friend WithEvents txtB As System.Windows.Forms.TextBox + Friend WithEvents btnCalculate As System.Windows.Forms.Button + Friend WithEvents btnClear As System.Windows.Forms.Button + Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox + +End Class diff --git a/VB.Net Projects/Equasion/Equasion/Form1.resx b/VB.Net Projects/Equasion/Equasion/Form1.resx new file mode 100644 index 0000000..558a54e --- /dev/null +++ b/VB.Net Projects/Equasion/Equasion/Form1.resx @@ -0,0 +1,156 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 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 + + + 17, 17 + + + + + iVBORw0KGgoAAAANSUhEUgAAALMAAAA+CAYAAABgOir1AAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAABgZJREFUeF7tm81R5DoURl8aREAIREAIJEAIREACBEACBMCePXsSIASWbKieOlR9 + U3f0ruS223bb6q+rTg3Wj62+Ovqx2/PfwR9/OvlYZn+6+Vhmf7r5WGZ/uvkcJfPPz8/h+/vbmLOCh63P + UTJzoq+vL2POCh62PpbZ7AbLvEHe398P9/f3h6urq8P19fXh5eUlLWf+xTJvkLu7u78CPz4+/kpdljH/ + xzJvnLe3t9/ZOcubEwYPgwiy/D1gmTcOM/Ma24yPj4/Dzc2NZbbMy4DEyJzltWDPPUVK6jw9PaV5e8Ay + bxREfnh4SPOGYGsyZZ/Ndoa6Wd4esMxn4PPz83fGZSZEWGbSOAMjFE8zdDxW6iky0wbq0Dbtn/c2S1vm + lUEaZkBkRbrn5+dfiaKw7F1Ji8RzDDFFZtpxe3v7d4+udq2xX58Ly7wyzHjlfhZpkCemncIUmfVcm8Gm + NI73NDtb5hXRUo5sSuMpQinRWLRlEcywnDOmQWuWZTUobzYts6mCGAgS0xDs1OfIDAQGiNAWIaYBAyer + nw0oDbzX19d/ym4Zy7wiyMwMqWNutpgR483eHCBuOWhaMKDK8szSa/xYMyeWeUWQOQqCMGwJSNdThFh+ + KmNl5uYzllf9Pd38gWVeEZZuZEZgZmiOmZVJ03FWbyxjZaY9CM0qwd+0Z84b0rWwzCvD/hTZdMyMHI/n + YKzMGkRqG20qy+wBy9whSwyQPbC4zARVzzCBJax8BGTMHCwqs+6S2X8xWwB7srnv3o2BxWTm+aREjunc + uUNMM2YOFpN57+/Gmv2xiMyalac8p9Sd+DFk9c3lsojM3OBZNrM2i8jM9uKcW4xyBjd9Uvb75mT2NsNM + ZTWZeSwX30swZm4WkZlHb8yc+hWKn0n1PkIsZ8ycLCIz6BVCbQkQ+VxvYTGYeJFm67888kyedtLeLH9O + thQTreSZH2NispjMW4GXaHjmXb6rwDEdqUBu5S0x2kV753qDLqMWkwhiEZcsb27Klbzk2Jh0LbP26WWQ + GOkED4HJUzC3MnPTabR7iRm6FpMI19WqmuW3YACMHYi0Zehax8Ska5mRNptdSCvF3dqenrZDlncKtZhE + yIcpMlOnNVAymFSOif1QTLqWmZGc7cMY5cxQMY1lbI0XoLiutjd0DG3JVgT9ilq2M4NzHCt+LSYCsWiP + VqusTIspMhN3rql9PMfZ7D4Uk25l1tI1tFQTGAKIXMeIcwpaKuks2oc4tDETkbaQ1/oPpZxD+Wo/UtS+ + x1BMSGdQU39NmYkJ1yMO1GWVpB1luaGYdCuzRMnyALEIGmX4d2wHTAHhyuWU69PWmBbz6OQsDyQd0Pl8 + j1b5oZjQNonCeVpla1BnTCzpB+rEVbF1bdJr37FbmYc6AxEIOp1HIClbkwq0NRiitoSr02JHMxOSli2p + 0Oo4QV3az+zWaj+0YkJeTahaG/TEI0Id3X+IbBslOAd14mrSaifptfZcrMwlBB0hsjxAGkQcoraEZ+2h + I1vXbHUcMBARh2vSfh1HMSK1mGhQRQmZ6Unj76yO6pXfn7IMqphWG6ygPXJM45i2xDTB+S9O5taSykxB + kGPaWPnHwvkRQ8cIN3TT2eo4kLSSOaZl1GJCnSgfIBlldVzWqaE6WV4GMYjfkbZwjtoq04pJtzITUL54 + Nito9tGxxIppc0MHxFmYAcXsQzrXL7cn6tTazU5EMmZ5kVZMSmgXZbO8FtQ5VmatCJKT76FZmb/L8kMx + 6VZmQJ5sD8uoJ08C8zf/ZgGcCwTiOlrKOabjdO1SMDqMjpu7TbWYRJCRclw/e9LSYozMfEe+e9kPSF4r + 34pJ1zLTEQQnywMEIvC14M2N9pg6plNqHU/bx4p0DEMxAbVTZGVqjJGZ60hM6gytGEMx6VpmAsVoH9sh + 54b20u4lBtnSMeG8tZnzFI6JSdcyA6OdZWwvQtNO2js0S51CrzHpXmZgNLM8tZ53bgH28rRziRm5pMeY + XITM5jKwzKYbLLPpBstsusEym26wzKYbLLPpBstsusEym26wzKYbLLPpBstsusEym25oy3w4/AEifUTG + XfljswAAAABJRU5ErkJggg== + + + \ No newline at end of file diff --git a/VB.Net Projects/Equasion/Equasion/Form1.vb b/VB.Net Projects/Equasion/Equasion/Form1.vb new file mode 100644 index 0000000..a5a8c2f --- /dev/null +++ b/VB.Net Projects/Equasion/Equasion/Form1.vb @@ -0,0 +1,21 @@ +Public Class Form1 + Dim a As Double + Dim b As Double + Dim C As Double + + Private Sub btnCalculate_Click(sender As Object, e As EventArgs) Handles btnCalculate.Click + a = Val(txtA.Text) + b = Val(txtB.Text) + If a = 3 Or b = -4 Then + MsgBox("Въведи нови стойности!") + Else + C = (a * a + b) / (3 - a) * (4 + b) + MsgBox("Изразът С е равен на " & C, 0, "Внимание") + End If + End Sub + + Private Sub btnClear_Click(sender As Object, e As EventArgs) Handles btnClear.Click + txtA.Text = vbNullString + txtB.Text = vbNullString + End Sub +End Class diff --git a/VB.Net Projects/Equasion/Equasion/My Project/Application.Designer.vb b/VB.Net Projects/Equasion/Equasion/My Project/Application.Designer.vb new file mode 100644 index 0000000..3ec9e6d --- /dev/null +++ b/VB.Net Projects/Equasion/Equasion/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.WindowsApplication1.Form1 + End Sub + End Class +End Namespace diff --git a/VB.Net Projects/Equasion/Equasion/My Project/Application.myapp b/VB.Net Projects/Equasion/Equasion/My Project/Application.myapp new file mode 100644 index 0000000..7b0c597 --- /dev/null +++ b/VB.Net Projects/Equasion/Equasion/My Project/Application.myapp @@ -0,0 +1,11 @@ + + + true + Form1 + false + 0 + true + 0 + 0 + true + diff --git a/VB.Net Projects/Equasion/Equasion/My Project/AssemblyInfo.vb b/VB.Net Projects/Equasion/Equasion/My Project/AssemblyInfo.vb new file mode 100644 index 0000000..2febe5c --- /dev/null +++ b/VB.Net Projects/Equasion/Equasion/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/Equasion/Equasion/My Project/Resources.Designer.vb b/VB.Net Projects/Equasion/Equasion/My Project/Resources.Designer.vb new file mode 100644 index 0000000..49c9c90 --- /dev/null +++ b/VB.Net Projects/Equasion/Equasion/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("WindowsApplication1.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/Equasion/Equasion/My Project/Resources.resx b/VB.Net Projects/Equasion/Equasion/My Project/Resources.resx new file mode 100644 index 0000000..ffecec8 --- /dev/null +++ b/VB.Net Projects/Equasion/Equasion/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/Equasion/Equasion/My Project/Settings.Designer.vb b/VB.Net Projects/Equasion/Equasion/My Project/Settings.Designer.vb new file mode 100644 index 0000000..0e01844 --- /dev/null +++ b/VB.Net Projects/Equasion/Equasion/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.WindowsApplication1.My.MySettings + Get + Return Global.WindowsApplication1.My.MySettings.Default + End Get + End Property + End Module +End Namespace diff --git a/VB.Net Projects/Equasion/Equasion/My Project/Settings.settings b/VB.Net Projects/Equasion/Equasion/My Project/Settings.settings new file mode 100644 index 0000000..377f56d --- /dev/null +++ b/VB.Net Projects/Equasion/Equasion/My Project/Settings.settings @@ -0,0 +1,7 @@ + + + + + + + -- cgit v1.2.3