From 09e2787704f129422b3a324c67aec6f5f49040e5 Mon Sep 17 00:00:00 2001 From: Jonathan Jenne Date: Thu, 28 May 2020 14:55:30 +0200 Subject: [PATCH] add chattest --- ChatTest/App.config | 6 + ChatTest/ChatTest.vbproj | 139 ++++++++++++++++++++ ChatTest/Form1.Designer.vb | 49 +++++++ ChatTest/Form1.resx | 120 +++++++++++++++++ ChatTest/Form1.vb | 3 + ChatTest/My Project/Application.Designer.vb | 38 ++++++ ChatTest/My Project/Application.myapp | 11 ++ ChatTest/My Project/AssemblyInfo.vb | 35 +++++ ChatTest/My Project/Resources.Designer.vb | 62 +++++++++ ChatTest/My Project/Resources.resx | 117 ++++++++++++++++ ChatTest/My Project/Settings.Designer.vb | 73 ++++++++++ ChatTest/My Project/Settings.settings | 7 + ChatTest/packages.config | 4 + 13 files changed, 664 insertions(+) create mode 100644 ChatTest/App.config create mode 100644 ChatTest/ChatTest.vbproj create mode 100644 ChatTest/Form1.Designer.vb create mode 100644 ChatTest/Form1.resx create mode 100644 ChatTest/Form1.vb create mode 100644 ChatTest/My Project/Application.Designer.vb create mode 100644 ChatTest/My Project/Application.myapp create mode 100644 ChatTest/My Project/AssemblyInfo.vb create mode 100644 ChatTest/My Project/Resources.Designer.vb create mode 100644 ChatTest/My Project/Resources.resx create mode 100644 ChatTest/My Project/Settings.Designer.vb create mode 100644 ChatTest/My Project/Settings.settings create mode 100644 ChatTest/packages.config diff --git a/ChatTest/App.config b/ChatTest/App.config new file mode 100644 index 00000000..ffaf5407 --- /dev/null +++ b/ChatTest/App.config @@ -0,0 +1,6 @@ + + + + + + \ No newline at end of file diff --git a/ChatTest/ChatTest.vbproj b/ChatTest/ChatTest.vbproj new file mode 100644 index 00000000..0498b6b5 --- /dev/null +++ b/ChatTest/ChatTest.vbproj @@ -0,0 +1,139 @@ + + + + + Debug + AnyCPU + {4A726345-FD6B-4E1C-9E5D-18C9043D7714} + WinExe + ChatTest.My.MyApplication + ChatTest + ChatTest + 512 + WindowsForms + v4.7.2 + true + true + + + AnyCPU + true + full + true + true + bin\Debug\ + ChatTest.xml + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 + + + AnyCPU + pdbonly + false + true + true + bin\Release\ + ChatTest.xml + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 + + + On + + + Binary + + + Off + + + On + + + + + ..\packages\NLog.4.7.2\lib\net45\NLog.dll + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 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 + + + + + + + {1f278760-4f6b-42e8-b82d-01d4c8618340} + ChatControl + + + + \ No newline at end of file diff --git a/ChatTest/Form1.Designer.vb b/ChatTest/Form1.Designer.vb new file mode 100644 index 00000000..9e6fbb2c --- /dev/null +++ b/ChatTest/Form1.Designer.vb @@ -0,0 +1,49 @@ + _ +Partial Class Form1 + Inherits System.Windows.Forms.Form + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + _ + 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 + + 'Wird vom Windows Form-Designer benötigt. + Private components As System.ComponentModel.IContainer + + 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. + 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. + 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. + _ + Private Sub InitializeComponent() + Me.ChatControl1 = New DigitalData.Controls.ChatControl.ChatControl() + Me.SuspendLayout() + ' + 'ChatControl1 + ' + Me.ChatControl1.Dock = System.Windows.Forms.DockStyle.Fill + Me.ChatControl1.Location = New System.Drawing.Point(0, 0) + Me.ChatControl1.Name = "ChatControl1" + Me.ChatControl1.Size = New System.Drawing.Size(305, 324) + Me.ChatControl1.TabIndex = 0 + ' + 'Form1 + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(305, 324) + Me.Controls.Add(Me.ChatControl1) + Me.Name = "Form1" + Me.Text = "Form1" + Me.ResumeLayout(False) + + End Sub + + Friend WithEvents ChatControl1 As DigitalData.Controls.ChatControl.ChatControl +End Class diff --git a/ChatTest/Form1.resx b/ChatTest/Form1.resx new file mode 100644 index 00000000..1af7de15 --- /dev/null +++ b/ChatTest/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/ChatTest/Form1.vb b/ChatTest/Form1.vb new file mode 100644 index 00000000..17d65956 --- /dev/null +++ b/ChatTest/Form1.vb @@ -0,0 +1,3 @@ +Public Class Form1 + +End Class diff --git a/ChatTest/My Project/Application.Designer.vb b/ChatTest/My Project/Application.Designer.vb new file mode 100644 index 00000000..38f9a231 --- /dev/null +++ b/ChatTest/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 = Global.ChatTest.Form1 + End Sub + End Class +End Namespace diff --git a/ChatTest/My Project/Application.myapp b/ChatTest/My Project/Application.myapp new file mode 100644 index 00000000..1243847f --- /dev/null +++ b/ChatTest/My Project/Application.myapp @@ -0,0 +1,11 @@ + + + true + Form1 + false + 0 + true + 0 + 0 + true + diff --git a/ChatTest/My Project/AssemblyInfo.vb b/ChatTest/My Project/AssemblyInfo.vb new file mode 100644 index 00000000..e68bf074 --- /dev/null +++ b/ChatTest/My Project/AssemblyInfo.vb @@ -0,0 +1,35 @@ +Imports System +Imports System.Reflection +Imports System.Runtime.InteropServices + +' Allgemeine Informationen über eine Assembly werden über die folgenden +' Attribute gesteuert. Ändern Sie diese Attributwerte, um die Informationen zu ändern, +' die einer Assembly zugeordnet sind. + +' Werte der Assemblyattribute überprüfen + + + + + + + + + + +'Die folgende GUID wird für die typelib-ID verwendet, wenn dieses Projekt für COM verfügbar gemacht wird. + + +' Versionsinformationen für eine Assembly bestehen aus den folgenden vier Werten: +' +' Hauptversion +' Nebenversion +' Buildnummer +' Revision +' +' Sie können alle Werte angeben oder Standardwerte für die Build- und Revisionsnummern verwenden, +' indem Sie "*" wie unten gezeigt eingeben: +' + + + diff --git a/ChatTest/My Project/Resources.Designer.vb b/ChatTest/My Project/Resources.Designer.vb new file mode 100644 index 00000000..f6ce9da5 --- /dev/null +++ b/ChatTest/My Project/Resources.Designer.vb @@ -0,0 +1,62 @@ +'------------------------------------------------------------------------------ +' +' 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.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("ChatTest.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/ChatTest/My Project/Resources.resx b/ChatTest/My Project/Resources.resx new file mode 100644 index 00000000..af7dbebb --- /dev/null +++ b/ChatTest/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/ChatTest/My Project/Settings.Designer.vb b/ChatTest/My Project/Settings.Designer.vb new file mode 100644 index 00000000..2b89d282 --- /dev/null +++ b/ChatTest/My Project/Settings.Designer.vb @@ -0,0 +1,73 @@ +'------------------------------------------------------------------------------ +' +' 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 + + _ + 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.ChatTest.My.MySettings + Get + Return Global.ChatTest.My.MySettings.Default + End Get + End Property + End Module +End Namespace diff --git a/ChatTest/My Project/Settings.settings b/ChatTest/My Project/Settings.settings new file mode 100644 index 00000000..85b890b3 --- /dev/null +++ b/ChatTest/My Project/Settings.settings @@ -0,0 +1,7 @@ + + + + + + + diff --git a/ChatTest/packages.config b/ChatTest/packages.config new file mode 100644 index 00000000..1baeaab3 --- /dev/null +++ b/ChatTest/packages.config @@ -0,0 +1,4 @@ + + + + \ No newline at end of file