Renamed "Visual Basic Projects" folder to "VB.Net Projects"

10 files changed, 0 insertions, 476 deletions

diff --git a/Visual Basic Projects/catalog/catalog.sln b/Visual Basic Projects/catalog/catalog.sln
deleted file mode 100644
index d0fa698..0000000
--- a/Visual Basic Projects/catalog/catalog.sln
+++ /dev/null
@@ -1,25 +0,0 @@
-

-Microsoft Visual Studio Solution File, Format Version 12.00

-# Visual Studio Version 16

-VisualStudioVersion = 16.0.31005.135

-MinimumVisualStudioVersion = 10.0.40219.1

-Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "catalog", "catalog\catalog.vbproj", "{FA219779-9B80-45C5-9614-7DE9493ABF12}"

-EndProject

-Global

-	GlobalSection(SolutionConfigurationPlatforms) = preSolution

-		Debug|Any CPU = Debug|Any CPU

-		Release|Any CPU = Release|Any CPU

-	EndGlobalSection

-	GlobalSection(ProjectConfigurationPlatforms) = postSolution

-		{FA219779-9B80-45C5-9614-7DE9493ABF12}.Debug|Any CPU.ActiveCfg = Debug|Any CPU

-		{FA219779-9B80-45C5-9614-7DE9493ABF12}.Debug|Any CPU.Build.0 = Debug|Any CPU

-		{FA219779-9B80-45C5-9614-7DE9493ABF12}.Release|Any CPU.ActiveCfg = Release|Any CPU

-		{FA219779-9B80-45C5-9614-7DE9493ABF12}.Release|Any CPU.Build.0 = Release|Any CPU

-	EndGlobalSection

-	GlobalSection(SolutionProperties) = preSolution

-		HideSolutionNode = FALSE

-	EndGlobalSection

-	GlobalSection(ExtensibilityGlobals) = postSolution

-		SolutionGuid = {47CF79BF-BA4A-4B4A-9574-FD06C0060079}

-	EndGlobalSection

-EndGlobal

diff --git a/Visual Basic Projects/catalog/catalog/ApplicationEvents.vb b/Visual Basic Projects/catalog/catalog/ApplicationEvents.vb
deleted file mode 100644
index b892537..0000000
--- a/Visual Basic Projects/catalog/catalog/ApplicationEvents.vb
+++ /dev/null
@@ -1,22 +0,0 @@
-Imports Microsoft.VisualBasic.ApplicationServices

-

-Namespace My

-    ' The following events are available for MyApplication:

-    ' Startup: Raised when the application starts, before the startup form is created.

-    ' Shutdown: Raised after all application forms are closed.  This event is not raised if the application terminates abnormally.

-    ' UnhandledException: Raised if the application encounters an unhandled exception.

-    ' StartupNextInstance: Raised when launching a single-instance application and the application is already active. 

-    ' NetworkAvailabilityChanged: Raised when the network connection is connected or disconnected.

-

-    ' **NEW** ApplyHighDpiMode: Raised when the application queries the HighDpiMode to set it for the application.

-

-    ' Example:

-

-    ' Private Sub MyApplication_ApplyHighDpiMode(sender As Object, e As ApplyHighDpiModeEventArgs) Handles Me.ApplyHighDpiMode

-    '     e.HighDpiMode = HighDpiMode.PerMonitorV2

-    ' End Sub

-

-    Partial Friend Class MyApplication

-

-    End Class

-End Namespace

diff --git a/Visual Basic Projects/catalog/catalog/Form1.Designer.vb b/Visual Basic Projects/catalog/catalog/Form1.Designer.vb
deleted file mode 100644
index 7337d03..0000000
--- a/Visual Basic Projects/catalog/catalog/Form1.Designer.vb
+++ /dev/null
@@ -1,146 +0,0 @@
-<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>

-Partial Class Form1

-    Inherits System.Windows.Forms.Form

-

-    'Form overrides dispose to clean up the component list.

-    <System.Diagnostics.DebuggerNonUserCode()>

-    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.

-    <System.Diagnostics.DebuggerStepThrough()>

-    Private Sub InitializeComponent()

-        Me.cbProducts = New System.Windows.Forms.ComboBox()

-        Me.lblProducts = New System.Windows.Forms.Label()

-        Me.lblProductPriceLabel = New System.Windows.Forms.Label()

-        Me.lblProductPrice = New System.Windows.Forms.Label()

-        Me.btnAddProduct = New System.Windows.Forms.Button()

-        Me.btnRemoveProduct = New System.Windows.Forms.Button()

-        Me.lbChosenProducts = New System.Windows.Forms.ListBox()

-        Me.lblSumLabel = New System.Windows.Forms.Label()

-        Me.lblSum = New System.Windows.Forms.Label()

-        Me.SuspendLayout()

-        '

-        'cbProducts

-        '

-        Me.cbProducts.FormattingEnabled = True

-        Me.cbProducts.Location = New System.Drawing.Point(17, 53)

-        Me.cbProducts.Name = "cbProducts"

-        Me.cbProducts.Size = New System.Drawing.Size(289, 23)

-        Me.cbProducts.TabIndex = 0

-        '

-        'lblProducts

-        '

-        Me.lblProducts.AutoSize = True

-        Me.lblProducts.Location = New System.Drawing.Point(17, 22)

-        Me.lblProducts.Name = "lblProducts"

-        Me.lblProducts.Size = New System.Drawing.Size(98, 15)

-        Me.lblProducts.TabIndex = 1

-        Me.lblProducts.Text = "Избери продукт:"

-        '

-        'lblProductPriceLabel

-        '

-        Me.lblProductPriceLabel.AutoSize = True

-        Me.lblProductPriceLabel.Location = New System.Drawing.Point(28, 94)

-        Me.lblProductPriceLabel.Name = "lblProductPriceLabel"

-        Me.lblProductPriceLabel.Size = New System.Drawing.Size(107, 15)

-        Me.lblProductPriceLabel.TabIndex = 2

-        Me.lblProductPriceLabel.Text = "Цена на продукта:"

-        '

-        'lblProductPrice

-        '

-        Me.lblProductPrice.AutoSize = True

-        Me.lblProductPrice.Location = New System.Drawing.Point(210, 94)

-        Me.lblProductPrice.Name = "lblProductPrice"

-        Me.lblProductPrice.Size = New System.Drawing.Size(32, 15)

-        Me.lblProductPrice.TabIndex = 3

-        Me.lblProductPrice.Text = "0 лв."

-        '

-        'btnAddProduct

-        '

-        Me.btnAddProduct.Location = New System.Drawing.Point(17, 134)

-        Me.btnAddProduct.Name = "btnAddProduct"

-        Me.btnAddProduct.Size = New System.Drawing.Size(118, 39)

-        Me.btnAddProduct.TabIndex = 4

-        Me.btnAddProduct.Text = "Добави"

-        Me.btnAddProduct.UseVisualStyleBackColor = True

-        '

-        'btnRemoveProduct

-        '

-        Me.btnRemoveProduct.Location = New System.Drawing.Point(17, 179)

-        Me.btnRemoveProduct.Name = "btnRemoveProduct"

-        Me.btnRemoveProduct.Size = New System.Drawing.Size(118, 36)

-        Me.btnRemoveProduct.TabIndex = 5

-        Me.btnRemoveProduct.Text = "Премахни"

-        Me.btnRemoveProduct.UseVisualStyleBackColor = True

-        '

-        'lbChosenProducts

-        '

-        Me.lbChosenProducts.FormattingEnabled = True

-        Me.lbChosenProducts.ItemHeight = 15

-        Me.lbChosenProducts.Location = New System.Drawing.Point(141, 120)

-        Me.lbChosenProducts.Name = "lbChosenProducts"

-        Me.lbChosenProducts.Size = New System.Drawing.Size(165, 109)

-        Me.lbChosenProducts.TabIndex = 6

-        '

-        'lblSumLabel

-        '

-        Me.lblSumLabel.AutoSize = True

-        Me.lblSumLabel.Location = New System.Drawing.Point(94, 245)

-        Me.lblSumLabel.Name = "lblSumLabel"

-        Me.lblSumLabel.Size = New System.Drawing.Size(41, 15)

-        Me.lblSumLabel.TabIndex = 7

-        Me.lblSumLabel.Text = "СУМА"

-        '

-        'lblSum

-        '

-        Me.lblSum.AutoSize = True

-        Me.lblSum.Location = New System.Drawing.Point(141, 245)

-        Me.lblSum.Name = "lblSum"

-        Me.lblSum.Size = New System.Drawing.Size(32, 15)

-        Me.lblSum.TabIndex = 8

-        Me.lblSum.Text = "0 лв."

-        '

-        'Form1

-        '

-        Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 15.0!)

-        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font

-        Me.ClientSize = New System.Drawing.Size(324, 275)

-        Me.Controls.Add(Me.lblSum)

-        Me.Controls.Add(Me.lblSumLabel)

-        Me.Controls.Add(Me.lbChosenProducts)

-        Me.Controls.Add(Me.btnRemoveProduct)

-        Me.Controls.Add(Me.btnAddProduct)

-        Me.Controls.Add(Me.lblProductPrice)

-        Me.Controls.Add(Me.lblProductPriceLabel)

-        Me.Controls.Add(Me.lblProducts)

-        Me.Controls.Add(Me.cbProducts)

-        Me.Name = "Form1"

-        Me.Text = "Пазаруване по каталог"

-        Me.ResumeLayout(False)

-        Me.PerformLayout()

-

-    End Sub

-

-    Friend WithEvents cbProducts As ComboBox

-    Friend WithEvents lblProducts As Label

-    Friend WithEvents lblProductPriceLabel As Label

-    Friend WithEvents lblProductPrice As Label

-    Friend WithEvents btnAddProduct As Button

-    Friend WithEvents btnRemoveProduct As Button

-    Friend WithEvents lbChosenProducts As ListBox

-    Friend WithEvents lblSumLabel As Label

-    Friend WithEvents lblSum As Label

-End Class
\ No newline at end of file
diff --git a/Visual Basic Projects/catalog/catalog/Form1.resx b/Visual Basic Projects/catalog/catalog/Form1.resx
deleted file mode 100644
index b5ae26c..0000000
--- a/Visual Basic Projects/catalog/catalog/Form1.resx
+++ /dev/null
@@ -1,60 +0,0 @@
-<root>

-  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">

-    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />

-    <xsd:element name="root" msdata:IsDataSet="true">

-      <xsd:complexType>

-        <xsd:choice maxOccurs="unbounded">

-          <xsd:element name="metadata">

-            <xsd:complexType>

-              <xsd:sequence>

-                <xsd:element name="value" type="xsd:string" minOccurs="0" />

-              </xsd:sequence>

-              <xsd:attribute name="name" use="required" type="xsd:string" />

-              <xsd:attribute name="type" type="xsd:string" />

-              <xsd:attribute name="mimetype" type="xsd:string" />

-              <xsd:attribute ref="xml:space" />

-            </xsd:complexType>

-          </xsd:element>

-          <xsd:element name="assembly">

-            <xsd:complexType>

-              <xsd:attribute name="alias" type="xsd:string" />

-              <xsd:attribute name="name" type="xsd:string" />

-            </xsd:complexType>

-          </xsd:element>

-          <xsd:element name="data">

-            <xsd:complexType>

-              <xsd:sequence>

-                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />

-                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />

-              </xsd:sequence>

-              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />

-              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />

-              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />

-              <xsd:attribute ref="xml:space" />

-            </xsd:complexType>

-          </xsd:element>

-          <xsd:element name="resheader">

-            <xsd:complexType>

-              <xsd:sequence>

-                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />

-              </xsd:sequence>

-              <xsd:attribute name="name" type="xsd:string" use="required" />

-            </xsd:complexType>

-          </xsd:element>

-        </xsd:choice>

-      </xsd:complexType>

-    </xsd:element>

-  </xsd:schema>

-  <resheader name="resmimetype">

-    <value>text/microsoft-resx</value>

-  </resheader>

-  <resheader name="version">

-    <value>2.0</value>

-  </resheader>

-  <resheader name="reader">

-    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>

-  </resheader>

-  <resheader name="writer">

-    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>

-  </resheader>

-</root>
\ No newline at end of file
diff --git a/Visual Basic Projects/catalog/catalog/Form1.vb b/Visual Basic Projects/catalog/catalog/Form1.vb
deleted file mode 100644
index 71af62b..0000000
--- a/Visual Basic Projects/catalog/catalog/Form1.vb
+++ /dev/null
@@ -1,65 +0,0 @@
-Public Class Form1

-    Dim Sum As Double

-    Dim Products As String() = {

-        "Магнитни наколенки",

-        "Магнитен колан",

-        "Магни Иър",

-        "Масажираща седалка",

-        "Сауна за лице",

-        "Електрическо одеяло",

-        "Инфраред масажор за тяло",

-        "Гривна за баланс",

-        "Цитрус джусер",

-        "Апарат за кръвно налягане"

-    }

-    Dim Prices As Single() = {

-        59.9,

-        39.9,

-        39.9,

-        59.9,

-        49.9,

-        56.9,

-        147.0,

-        54.9,

-        49.9,

-        109.8

-    }

-

-    Private Function ToCurrency(Optional value As Double = 0) As String

-        Return FormatCurrency(value, 2)

-    End Function

-

-    Private Sub Form_Load(sender As Object, e As EventArgs) Handles MyBase.Load

-        cbProducts.Items.AddRange(Products)

-        lblSum.Text = ToCurrency()

-        lblProductPrice.Text = ToCurrency()

-    End Sub

-

-    Private Sub cbProducts_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cbProducts.SelectedIndexChanged

-        lblProductPrice.Text = ToCurrency(Prices(cbProducts.SelectedIndex))

-    End Sub

-

-    Private Sub btnAddProduct_Click(sender As Object, e As EventArgs) Handles btnAddProduct.Click

-        If String.IsNullOrEmpty(cbProducts.Text) Then

-            Return

-        End If

-

-        lbChosenProducts.Items.Add(cbProducts.Text)

-        Sum += Prices(cbProducts.SelectedIndex)

-        lblSum.Text = ToCurrency(Sum)

-    End Sub

-

-    Private Sub btnRemoveProduct_Click(sender As Object, e As EventArgs) Handles btnRemoveProduct.Click

-        If String.IsNullOrEmpty(cbProducts.Text) Then

-            Return

-        End If

-

-        If Not lbChosenProducts.Items.Contains(cbProducts.SelectedItem) Then

-            Return

-        End If

-

-        lbChosenProducts.Items.Remove(cbProducts.SelectedItem)

-        Sum -= Prices(cbProducts.SelectedIndex)

-        lblSum.Text = ToCurrency(Sum)

-    End Sub

-End Class
\ No newline at end of file
diff --git a/Visual Basic Projects/catalog/catalog/My Project/Application.Designer.HighDpi.vb b/Visual Basic Projects/catalog/catalog/My Project/Application.Designer.HighDpi.vb
deleted file mode 100644
index a3576c4..0000000
--- a/Visual Basic Projects/catalog/catalog/My Project/Application.Designer.HighDpi.vb
+++ /dev/null
@@ -1,69 +0,0 @@
-Option Strict On

-Option Explicit On

-

-'This constant indicates whether the Application Framework is in use.

-#Const APPLICATION_FRAMEWORK = True

-

-#If APPLICATION_FRAMEWORK Then

-

-#If NET5_0 And Not NET6_0 Then

-

-Imports System.Collections.ObjectModel

-

-Namespace My

-

-    Partial Friend Class MyApplication

-

-        Public Event ApplyHighDpiMode(sender As Object, e As ApplyHighDpiModeEventArgs)

-

-        Private _highDpiMode As HighDpiMode?

-

-        Friend Shadows Property HighDpiMode As HighDpiMode

-            Get

-                Return If(

-                    _highDpiMode Is Nothing,

-                    Application.HighDpiMode,

-                    _highDpiMode.Value)

-            End Get

-            Set(value As HighDpiMode)

-                _highDpiMode = value

-            End Set

-        End Property

-

-        ' IMPORTANT:

-        ' If this method causes an compilation error after you've unchecked 'Application Framework' 

-        ' in the project properties, go to the top of this file and change the value to 'False' in this line:

-        ' #Const APPLICATION_FRAMEWORK = False

-

-        ' For more about using WinForms without the Application Framework 

-        ' see: https://aka.ms/visualbasic-appframework-net5

-        Protected Overrides Function OnInitialize(commandLineArgs As ReadOnlyCollection(Of String)) As Boolean

-            Dim eventArgs = New ApplyHighDpiModeEventArgs(

-                If(

-                    _highDpiMode Is Nothing,

-                    HighDpiMode.SystemAware,

-                    _highDpiMode.Value))

-

-            RaiseEvent ApplyHighDpiMode(Me, eventArgs)

-

-            Windows.Forms.Application.SetHighDpiMode(eventArgs.HighDpiMode)

-

-            Return MyBase.OnInitialize(commandLineArgs)

-        End Function

-    End Class

-

-    Public Class ApplyHighDpiModeEventArgs

-        Inherits EventArgs

-

-        Public Sub New(highDpiMode As HighDpiMode)

-            Me.HighDpiMode = highDpiMode

-        End Sub

-

-        Public Property HighDpiMode As HighDpiMode

-

-    End Class

-

-End Namespace

-

-#End If ' #If NET5_0 And Not NET6_0

-#End If ' #If APPLICATION_FRAMEWORK

diff --git a/Visual Basic Projects/catalog/catalog/My Project/Application.Designer.vb b/Visual Basic Projects/catalog/catalog/My Project/Application.Designer.vb
deleted file mode 100644
index 8b8d4fc..0000000
--- a/Visual Basic Projects/catalog/catalog/My Project/Application.Designer.vb
+++ /dev/null
@@ -1,38 +0,0 @@
-'------------------------------------------------------------------------------

-' <auto-generated>

-'     This code was generated by a tool.

-'     Runtime Version:4.0.30319.42000

-'

-'     Changes to this file may cause incorrect behavior and will be lost if

-'     the code is regenerated.

-' </auto-generated>

-'------------------------------------------------------------------------------

-

-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

-

-        <Global.System.Diagnostics.DebuggerStepThroughAttribute()>

-        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

-

-        <Global.System.Diagnostics.DebuggerStepThroughAttribute()>

-        Protected Overrides Sub OnCreateMainForm()

-            Me.MainForm = Form1

-        End Sub

-    End Class

-End Namespace

diff --git a/Visual Basic Projects/catalog/catalog/My Project/Application.myapp b/Visual Basic Projects/catalog/catalog/My Project/Application.myapp
deleted file mode 100644
index fbb5858..0000000
--- a/Visual Basic Projects/catalog/catalog/My Project/Application.myapp
+++ /dev/null
@@ -1,10 +0,0 @@
-<?xml version="1.0" encoding="utf-8"?>

-<MyApplicationData xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">

-  <MySubMain>true</MySubMain>

-  <MainForm>Form1</MainForm>

-  <SingleInstance>false</SingleInstance>

-  <ShutdownMode>0</ShutdownMode>

-  <EnableVisualStyles>true</EnableVisualStyles>

-  <AuthenticationMode>0</AuthenticationMode>

-  <SaveMySettingsOnExit>true</SaveMySettingsOnExit>

-</MyApplicationData>
\ No newline at end of file
diff --git a/Visual Basic Projects/catalog/catalog/catalog.vbproj b/Visual Basic Projects/catalog/catalog/catalog.vbproj
deleted file mode 100644
index 76fdf00..0000000
--- a/Visual Basic Projects/catalog/catalog/catalog.vbproj
+++ /dev/null
@@ -1,33 +0,0 @@
-<Project Sdk="Microsoft.NET.Sdk">

-

-  <PropertyGroup>

-    <OutputType>WinExe</OutputType>

-    <TargetFramework>net5.0-windows</TargetFramework>

-    <RootNamespace>catalog</RootNamespace>

-    <StartupObject>Sub Main</StartupObject>

-    <UseWindowsForms>true</UseWindowsForms>

-    <MyType>WindowsForms</MyType>

-  </PropertyGroup>

-

-  <ItemGroup>

-    <Import Include="System.Data" />

-    <Import Include="System.Drawing" />

-    <Import Include="System.Windows.Forms" />

-  </ItemGroup>

-

-  <ItemGroup>

-    <Compile Update="My Project\Application.Designer.vb">

-      <DesignTime>True</DesignTime>

-      <AutoGen>True</AutoGen>

-      <DependentUpon>Application.myapp</DependentUpon>

-    </Compile>

-  </ItemGroup>

-

-  <ItemGroup>

-    <None Update="My Project\Application.myapp">

-      <Generator>MyApplicationCodeGenerator</Generator>

-      <LastGenOutput>Application.Designer.vb</LastGenOutput>

-    </None>

-  </ItemGroup>

-

-</Project>
\ No newline at end of file
diff --git a/Visual Basic Projects/catalog/catalog/catalog.vbproj.user b/Visual Basic Projects/catalog/catalog/catalog.vbproj.user
deleted file mode 100644
index c392cf0..0000000
--- a/Visual Basic Projects/catalog/catalog/catalog.vbproj.user
+++ /dev/null
@@ -1,8 +0,0 @@
-<?xml version="1.0" encoding="utf-8"?>

-<Project ToolsVersion="Current" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">

-    <ItemGroup>

-        <Compile Update="Form1.vb">

-            <SubType>Form</SubType>

-        </Compile>

-    </ItemGroup>

-</Project>