From e4124f6a37e7208b591cc84e9cdcb36485291ac4 Mon Sep 17 00:00:00 2001 From: Syndamia Date: Fri, 26 Feb 2021 11:08:35 +0200 Subject: Added the Kartoteka VB.Net project --- VB.Net Projects/Kartoteka/Kartoteka.sln | 25 ++ .../Kartoteka/Kartoteka/ApplicationEvents.vb | 22 ++ .../Kartoteka/Kartoteka/Form1.Designer.vb | 311 +++++++++++++++++++++ VB.Net Projects/Kartoteka/Kartoteka/Form1.resx | 60 ++++ VB.Net Projects/Kartoteka/Kartoteka/Form1.vb | 95 +++++++ .../Kartoteka/Kartoteka/Kartoteka.vbproj | 37 +++ .../Kartoteka/Kartoteka/Kartoteka.vbproj.user | 8 + .../My Project/Application.Designer.HighDpi.vb | 69 +++++ .../Kartoteka/My Project/Application.Designer.vb | 38 +++ .../Kartoteka/My Project/Application.myapp | 10 + 10 files changed, 675 insertions(+) create mode 100644 VB.Net Projects/Kartoteka/Kartoteka.sln create mode 100644 VB.Net Projects/Kartoteka/Kartoteka/ApplicationEvents.vb create mode 100644 VB.Net Projects/Kartoteka/Kartoteka/Form1.Designer.vb create mode 100644 VB.Net Projects/Kartoteka/Kartoteka/Form1.resx create mode 100644 VB.Net Projects/Kartoteka/Kartoteka/Form1.vb create mode 100644 VB.Net Projects/Kartoteka/Kartoteka/Kartoteka.vbproj create mode 100644 VB.Net Projects/Kartoteka/Kartoteka/Kartoteka.vbproj.user create mode 100644 VB.Net Projects/Kartoteka/Kartoteka/My Project/Application.Designer.HighDpi.vb create mode 100644 VB.Net Projects/Kartoteka/Kartoteka/My Project/Application.Designer.vb create mode 100644 VB.Net Projects/Kartoteka/Kartoteka/My Project/Application.myapp diff --git a/VB.Net Projects/Kartoteka/Kartoteka.sln b/VB.Net Projects/Kartoteka/Kartoteka.sln new file mode 100644 index 0000000..f549801 --- /dev/null +++ b/VB.Net Projects/Kartoteka/Kartoteka.sln @@ -0,0 +1,25 @@ + +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}") = "Kartoteka", "Kartoteka\Kartoteka.vbproj", "{E1BFD171-F718-448D-BCD1-99535FB78135}" +EndProject +Global + GlobalSection(SolutionConfigurationPlatforms) = preSolution + Debug|Any CPU = Debug|Any CPU + Release|Any CPU = Release|Any CPU + EndGlobalSection + GlobalSection(ProjectConfigurationPlatforms) = postSolution + {E1BFD171-F718-448D-BCD1-99535FB78135}.Debug|Any CPU.ActiveCfg = Debug|Any CPU + {E1BFD171-F718-448D-BCD1-99535FB78135}.Debug|Any CPU.Build.0 = Debug|Any CPU + {E1BFD171-F718-448D-BCD1-99535FB78135}.Release|Any CPU.ActiveCfg = Release|Any CPU + {E1BFD171-F718-448D-BCD1-99535FB78135}.Release|Any CPU.Build.0 = Release|Any CPU + EndGlobalSection + GlobalSection(SolutionProperties) = preSolution + HideSolutionNode = FALSE + EndGlobalSection + GlobalSection(ExtensibilityGlobals) = postSolution + SolutionGuid = {81ADF95E-151D-4560-BCCD-16D768787ABE} + EndGlobalSection +EndGlobal diff --git a/VB.Net Projects/Kartoteka/Kartoteka/ApplicationEvents.vb b/VB.Net Projects/Kartoteka/Kartoteka/ApplicationEvents.vb new file mode 100644 index 0000000..b892537 --- /dev/null +++ b/VB.Net Projects/Kartoteka/Kartoteka/ApplicationEvents.vb @@ -0,0 +1,22 @@ +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/VB.Net Projects/Kartoteka/Kartoteka/Form1.Designer.vb b/VB.Net Projects/Kartoteka/Kartoteka/Form1.Designer.vb new file mode 100644 index 0000000..f93855b --- /dev/null +++ b/VB.Net Projects/Kartoteka/Kartoteka/Form1.Designer.vb @@ -0,0 +1,311 @@ + _ +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.TabControl1 = New System.Windows.Forms.TabControl() + Me.TabPage1 = New System.Windows.Forms.TabPage() + Me.lblStatus = New System.Windows.Forms.Label() + Me.btnClear = New System.Windows.Forms.Button() + Me.btnLoad = New System.Windows.Forms.Button() + Me.btnInput = New System.Windows.Forms.Button() + Me.btnSave = New System.Windows.Forms.Button() + Me.dtBirth = New System.Windows.Forms.DateTimePicker() + Me.txtEmail = New System.Windows.Forms.TextBox() + Me.txtPhoneNumber = New System.Windows.Forms.TextBox() + Me.txtLastName = New System.Windows.Forms.TextBox() + Me.txtMiddleName = New System.Windows.Forms.TextBox() + Me.txtFirstName = New System.Windows.Forms.TextBox() + Me.Label6 = New System.Windows.Forms.Label() + Me.Label5 = New System.Windows.Forms.Label() + Me.Label4 = New System.Windows.Forms.Label() + Me.Label3 = New System.Windows.Forms.Label() + Me.Label2 = New System.Windows.Forms.Label() + Me.Label1 = New System.Windows.Forms.Label() + Me.TabPage2 = New System.Windows.Forms.TabPage() + Me.lblPersonData = New System.Windows.Forms.Label() + Me.cbNames = New System.Windows.Forms.ComboBox() + Me.Label7 = New System.Windows.Forms.Label() + Me.TabControl1.SuspendLayout() + Me.TabPage1.SuspendLayout() + Me.TabPage2.SuspendLayout() + Me.SuspendLayout() + ' + 'TabControl1 + ' + Me.TabControl1.Controls.Add(Me.TabPage1) + Me.TabControl1.Controls.Add(Me.TabPage2) + Me.TabControl1.Location = New System.Drawing.Point(12, 12) + Me.TabControl1.Name = "TabControl1" + Me.TabControl1.SelectedIndex = 0 + Me.TabControl1.Size = New System.Drawing.Size(448, 297) + Me.TabControl1.TabIndex = 0 + ' + 'TabPage1 + ' + Me.TabPage1.Controls.Add(Me.lblStatus) + Me.TabPage1.Controls.Add(Me.btnClear) + Me.TabPage1.Controls.Add(Me.btnLoad) + Me.TabPage1.Controls.Add(Me.btnInput) + Me.TabPage1.Controls.Add(Me.btnSave) + Me.TabPage1.Controls.Add(Me.dtBirth) + Me.TabPage1.Controls.Add(Me.txtEmail) + Me.TabPage1.Controls.Add(Me.txtPhoneNumber) + Me.TabPage1.Controls.Add(Me.txtLastName) + Me.TabPage1.Controls.Add(Me.txtMiddleName) + Me.TabPage1.Controls.Add(Me.txtFirstName) + Me.TabPage1.Controls.Add(Me.Label6) + Me.TabPage1.Controls.Add(Me.Label5) + Me.TabPage1.Controls.Add(Me.Label4) + Me.TabPage1.Controls.Add(Me.Label3) + Me.TabPage1.Controls.Add(Me.Label2) + Me.TabPage1.Controls.Add(Me.Label1) + Me.TabPage1.Location = New System.Drawing.Point(4, 24) + Me.TabPage1.Name = "TabPage1" + Me.TabPage1.Padding = New System.Windows.Forms.Padding(3) + Me.TabPage1.Size = New System.Drawing.Size(440, 269) + Me.TabPage1.TabIndex = 0 + Me.TabPage1.Text = "Въвеждане" + Me.TabPage1.UseVisualStyleBackColor = True + ' + 'lblStatus + ' + Me.lblStatus.Location = New System.Drawing.Point(100, 206) + Me.lblStatus.Name = "lblStatus" + Me.lblStatus.Size = New System.Drawing.Size(250, 47) + Me.lblStatus.TabIndex = 18 + Me.lblStatus.Text = "ERR" + Me.lblStatus.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'btnClear + ' + Me.btnClear.Location = New System.Drawing.Point(356, 16) + Me.btnClear.Name = "btnClear" + Me.btnClear.Size = New System.Drawing.Size(72, 47) + Me.btnClear.TabIndex = 17 + Me.btnClear.Text = "Изчисти" + Me.btnClear.UseVisualStyleBackColor = True + ' + 'btnLoad + ' + Me.btnLoad.Location = New System.Drawing.Point(356, 153) + Me.btnLoad.Name = "btnLoad" + Me.btnLoad.Size = New System.Drawing.Size(72, 47) + Me.btnLoad.TabIndex = 16 + Me.btnLoad.Text = "Зареди файл" + Me.btnLoad.UseVisualStyleBackColor = True + ' + 'btnInput + ' + Me.btnInput.Location = New System.Drawing.Point(22, 206) + Me.btnInput.Name = "btnInput" + Me.btnInput.Size = New System.Drawing.Size(72, 47) + Me.btnInput.TabIndex = 15 + Me.btnInput.Text = "Въведи" + Me.btnInput.UseVisualStyleBackColor = True + ' + 'btnSave + ' + Me.btnSave.Location = New System.Drawing.Point(356, 206) + Me.btnSave.Name = "btnSave" + Me.btnSave.Size = New System.Drawing.Size(72, 47) + Me.btnSave.TabIndex = 14 + Me.btnSave.Text = "Запази файл" + Me.btnSave.UseVisualStyleBackColor = True + ' + 'dtBirth + ' + Me.dtBirth.Location = New System.Drawing.Point(129, 162) + Me.dtBirth.Name = "dtBirth" + Me.dtBirth.Size = New System.Drawing.Size(197, 23) + Me.dtBirth.TabIndex = 11 + ' + 'txtEmail + ' + Me.txtEmail.Location = New System.Drawing.Point(98, 133) + Me.txtEmail.Name = "txtEmail" + Me.txtEmail.Size = New System.Drawing.Size(228, 23) + Me.txtEmail.TabIndex = 10 + ' + 'txtPhoneNumber + ' + Me.txtPhoneNumber.Location = New System.Drawing.Point(98, 104) + Me.txtPhoneNumber.Name = "txtPhoneNumber" + Me.txtPhoneNumber.Size = New System.Drawing.Size(228, 23) + Me.txtPhoneNumber.TabIndex = 9 + ' + 'txtLastName + ' + Me.txtLastName.Location = New System.Drawing.Point(98, 75) + Me.txtLastName.Name = "txtLastName" + Me.txtLastName.Size = New System.Drawing.Size(228, 23) + Me.txtLastName.TabIndex = 8 + ' + 'txtMiddleName + ' + Me.txtMiddleName.Location = New System.Drawing.Point(98, 46) + Me.txtMiddleName.Name = "txtMiddleName" + Me.txtMiddleName.Size = New System.Drawing.Size(228, 23) + Me.txtMiddleName.TabIndex = 7 + ' + 'txtFirstName + ' + Me.txtFirstName.Location = New System.Drawing.Point(98, 16) + Me.txtFirstName.Name = "txtFirstName" + Me.txtFirstName.Size = New System.Drawing.Size(228, 23) + Me.txtFirstName.TabIndex = 6 + ' + 'Label6 + ' + Me.Label6.AutoSize = True + Me.Label6.Location = New System.Drawing.Point(22, 168) + Me.Label6.Name = "Label6" + Me.Label6.Size = New System.Drawing.Size(101, 15) + Me.Label6.TabIndex = 5 + Me.Label6.Text = "Дата на раждане:" + ' + 'Label5 + ' + Me.Label5.AutoSize = True + Me.Label5.Location = New System.Drawing.Point(22, 136) + Me.Label5.Name = "Label5" + Me.Label5.Size = New System.Drawing.Size(44, 15) + Me.Label5.TabIndex = 4 + Me.Label5.Text = "E-mail:" + ' + 'Label4 + ' + Me.Label4.AutoSize = True + Me.Label4.Location = New System.Drawing.Point(22, 107) + Me.Label4.Name = "Label4" + Me.Label4.Size = New System.Drawing.Size(59, 15) + Me.Label4.TabIndex = 3 + Me.Label4.Text = "Телефон:" + ' + 'Label3 + ' + Me.Label3.AutoSize = True + Me.Label3.Location = New System.Drawing.Point(22, 78) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(61, 15) + Me.Label3.TabIndex = 2 + Me.Label3.Text = "Фамилия:" + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.Location = New System.Drawing.Point(22, 49) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(59, 15) + Me.Label2.TabIndex = 1 + Me.Label2.Text = "Презиме:" + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Location = New System.Drawing.Point(22, 19) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(34, 15) + Me.Label1.TabIndex = 0 + Me.Label1.Text = "Име:" + ' + 'TabPage2 + ' + Me.TabPage2.Controls.Add(Me.lblPersonData) + Me.TabPage2.Controls.Add(Me.cbNames) + Me.TabPage2.Controls.Add(Me.Label7) + Me.TabPage2.Location = New System.Drawing.Point(4, 24) + Me.TabPage2.Name = "TabPage2" + Me.TabPage2.Padding = New System.Windows.Forms.Padding(3) + Me.TabPage2.Size = New System.Drawing.Size(440, 269) + Me.TabPage2.TabIndex = 1 + Me.TabPage2.Text = "Справки" + Me.TabPage2.UseVisualStyleBackColor = True + ' + 'lblPersonData + ' + Me.lblPersonData.AutoSize = True + Me.lblPersonData.Font = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point) + Me.lblPersonData.Location = New System.Drawing.Point(12, 77) + Me.lblPersonData.Name = "lblPersonData" + Me.lblPersonData.Size = New System.Drawing.Size(128, 21) + Me.lblPersonData.TabIndex = 19 + Me.lblPersonData.Text = "Информация за:" + ' + 'cbNames + ' + Me.cbNames.FormattingEnabled = True + Me.cbNames.Location = New System.Drawing.Point(52, 11) + Me.cbNames.Name = "cbNames" + Me.cbNames.Size = New System.Drawing.Size(375, 23) + Me.cbNames.TabIndex = 1 + ' + 'Label7 + ' + Me.Label7.AutoSize = True + Me.Label7.Location = New System.Drawing.Point(12, 14) + Me.Label7.Name = "Label7" + Me.Label7.Size = New System.Drawing.Size(34, 15) + Me.Label7.TabIndex = 0 + Me.Label7.Text = "Име:" + ' + 'Form1 + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 15.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(472, 321) + Me.Controls.Add(Me.TabControl1) + Me.Name = "Form1" + Me.Text = "Картотека" + Me.TabControl1.ResumeLayout(False) + Me.TabPage1.ResumeLayout(False) + Me.TabPage1.PerformLayout() + Me.TabPage2.ResumeLayout(False) + Me.TabPage2.PerformLayout() + Me.ResumeLayout(False) + + End Sub + + Friend WithEvents TabControl1 As TabControl + Friend WithEvents TabPage1 As TabPage + Friend WithEvents TabPage2 As TabPage + Friend WithEvents txtEmail As TextBox + Friend WithEvents txtPhoneNumber As TextBox + Friend WithEvents txtLastName As TextBox + Friend WithEvents txtMiddleName As TextBox + Friend WithEvents txtFirstName As TextBox + Friend WithEvents Label6 As Label + Friend WithEvents Label5 As Label + Friend WithEvents Label4 As Label + Friend WithEvents Label3 As Label + Friend WithEvents Label2 As Label + Friend WithEvents Label1 As Label + Friend WithEvents dtBirth As DateTimePicker + Friend WithEvents btnClear As Button + Friend WithEvents btnLoad As Button + Friend WithEvents btnInput As Button + Friend WithEvents btnSave As Button + Friend WithEvents cbNames As ComboBox + Friend WithEvents Label7 As Label + Friend WithEvents lblStatus As Label + Friend WithEvents lblPersonData As Label +End Class diff --git a/VB.Net Projects/Kartoteka/Kartoteka/Form1.resx b/VB.Net Projects/Kartoteka/Kartoteka/Form1.resx new file mode 100644 index 0000000..b5ae26c --- /dev/null +++ b/VB.Net Projects/Kartoteka/Kartoteka/Form1.resx @@ -0,0 +1,60 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 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/Kartoteka/Kartoteka/Form1.vb b/VB.Net Projects/Kartoteka/Kartoteka/Form1.vb new file mode 100644 index 0000000..be6fc4a --- /dev/null +++ b/VB.Net Projects/Kartoteka/Kartoteka/Form1.vb @@ -0,0 +1,95 @@ +Imports Newtonsoft.Json + +Public Class Form1 + ' The "C:\" directory is protected, only administrator priviledges can write to it, + ' so instead I save the file to the desktop (of the current user) + ReadOnly filePath As String = Environment.GetFolderPath(Environment.SpecialFolder.UserProfile) + "\Desktop\data.json" + + ReadOnly people As List(Of Person) = New List(Of Person) + + Private Sub btnInput_Click(sender As Object, e As EventArgs) Handles btnInput.Click + Dim newPerson = New Person(txtFirstName.Text, txtMiddleName.Text, txtLastName.Text, txtPhoneNumber.Text, txtEmail.Text, dtBirth.Value) + + people.Add(newPerson) + cbNames.Items.Add($"{people.Count() - 1} || {newPerson.GetFullName()}") + + changeStatus("Въведено!") + End Sub + + Private Sub btnClear_Click(sender As Object, e As EventArgs) Handles btnClear.Click, MyBase.Load + txtFirstName.ResetText() + txtMiddleName.ResetText() + txtLastName.ResetText() + txtPhoneNumber.ResetText() + txtEmail.ResetText() + dtBirth.Value = Date.Now + changeStatus(String.Empty) + End Sub + + Private Sub resetReportTab(sender As Object, e As EventArgs) Handles MyBase.Load + cbNames.Items.Clear() + cbNames.ResetText() + lblPersonData.Text = "Изберете потребител!" + End Sub + + Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click + FileOpen(1, filePath, OpenMode.Output) + + ' Json Serialization, as it's an easier and a more universal way to serialize data + Print(1, JsonConvert.SerializeObject(people)) + + FileClose(1) + changeStatus("Данните са запазени във файла успешно!") + End Sub + + Private Sub btnLoad_Click(sender As Object, e As EventArgs) Handles btnLoad.Click + FileOpen(1, filePath, OpenMode.Input) + + people.Clear() + people.AddRange(JsonConvert.DeserializeObject(LineInput(1), GetType(List(Of Person)))) + + resetReportTab(sender, e) + cbNames.Items.AddRange(people.Select(Function(p, i) $"{i} || {p.GetFullName()}").ToArray()) + + FileClose(1) + changeStatus("Данните са заредени от файла успешно!") + End Sub + + Private Sub cbNames_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cbNames.SelectedIndexChanged + lblPersonData.Text = $"Информация за:{Environment.NewLine}{Environment.NewLine}" + people(cbNames.SelectedIndex).ToString() + End Sub + + Private Sub changeStatus(message As String) + lblStatus.ForeColor = Color.Green + lblStatus.Text = message + End Sub +End Class + +Public Class Person + Public FirstName As String + Public MiddleName As String + Public LastName As String + Public PhoneNumber As String + Public Email As String + Public BirthDay As Date + + Public Sub New(firstName As String, middleName As String, lastName As String, phoneNumber As String, email As String, birthDay As Date) + Me.FirstName = firstName + Me.MiddleName = middleName + Me.LastName = lastName + Me.PhoneNumber = phoneNumber + Me.Email = email + Me.BirthDay = birthDay + End Sub + + Public Function GetFullName() + Return $"{Me.FirstName} {Me.MiddleName} {Me.LastName}" + End Function + + Public Overrides Function ToString() As String + Return $"Имена: {Me.FirstName} {Me.MiddleName} {Me.LastName}{Environment.NewLine}" + + $"Телефон: {Me.PhoneNumber}{Environment.NewLine}" + + $"E-mail: {Me.Email}{Environment.NewLine}" + + $"Рожденна дата: {Me.BirthDay}{Environment.NewLine}" + End Function +End Class \ No newline at end of file diff --git a/VB.Net Projects/Kartoteka/Kartoteka/Kartoteka.vbproj b/VB.Net Projects/Kartoteka/Kartoteka/Kartoteka.vbproj new file mode 100644 index 0000000..a23f100 --- /dev/null +++ b/VB.Net Projects/Kartoteka/Kartoteka/Kartoteka.vbproj @@ -0,0 +1,37 @@ + + + + WinExe + net5.0-windows + Kartoteka + Sub Main + true + WindowsForms + + + + + + + + + + + + + + + True + True + Application.myapp + + + + + + MyApplicationCodeGenerator + Application.Designer.vb + + + + \ No newline at end of file diff --git a/VB.Net Projects/Kartoteka/Kartoteka/Kartoteka.vbproj.user b/VB.Net Projects/Kartoteka/Kartoteka/Kartoteka.vbproj.user new file mode 100644 index 0000000..2cfee94 --- /dev/null +++ b/VB.Net Projects/Kartoteka/Kartoteka/Kartoteka.vbproj.user @@ -0,0 +1,8 @@ + + + + + Form + + + \ No newline at end of file diff --git a/VB.Net Projects/Kartoteka/Kartoteka/My Project/Application.Designer.HighDpi.vb b/VB.Net Projects/Kartoteka/Kartoteka/My Project/Application.Designer.HighDpi.vb new file mode 100644 index 0000000..a3576c4 --- /dev/null +++ b/VB.Net Projects/Kartoteka/Kartoteka/My Project/Application.Designer.HighDpi.vb @@ -0,0 +1,69 @@ +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/VB.Net Projects/Kartoteka/Kartoteka/My Project/Application.Designer.vb b/VB.Net Projects/Kartoteka/Kartoteka/My Project/Application.Designer.vb new file mode 100644 index 0000000..8b8d4fc --- /dev/null +++ b/VB.Net Projects/Kartoteka/Kartoteka/My Project/Application.Designer.vb @@ -0,0 +1,38 @@ +'------------------------------------------------------------------------------ +' +' 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. +' +'------------------------------------------------------------------------------ + +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 = Form1 + End Sub + End Class +End Namespace diff --git a/VB.Net Projects/Kartoteka/Kartoteka/My Project/Application.myapp b/VB.Net Projects/Kartoteka/Kartoteka/My Project/Application.myapp new file mode 100644 index 0000000..fbb5858 --- /dev/null +++ b/VB.Net Projects/Kartoteka/Kartoteka/My Project/Application.myapp @@ -0,0 +1,10 @@ + + + true + Form1 + false + 0 + true + 0 + true + \ No newline at end of file -- cgit v1.2.3