From a2cf8324689c068089e77384479242f5a2367c22 Mon Sep 17 00:00:00 2001 From: Jonathan Jenne Date: Tue, 7 Jan 2020 15:18:43 +0100 Subject: [PATCH] documentviewer test --- Controls.DocumentViewer/DocumentViewer.vbproj | 5 +++-- GUIs.Test.DocumentViewerTest/Form1.vb | 18 +++++------------- 2 files changed, 8 insertions(+), 15 deletions(-) diff --git a/Controls.DocumentViewer/DocumentViewer.vbproj b/Controls.DocumentViewer/DocumentViewer.vbproj index baf6f8f2..8a016afd 100644 --- a/Controls.DocumentViewer/DocumentViewer.vbproj +++ b/Controls.DocumentViewer/DocumentViewer.vbproj @@ -63,8 +63,9 @@ D:\ProgramFiles\GdPicture.NET 14\Redist\GdPicture.NET (.NET Framework 4.5)\GdPicture.NET.14.dll - - P:\Projekte DIGITAL DATA\DIGITAL DATA - Entwicklung\DLL_Bibliotheken\Independentsoft.Msg.dll + + False + P:\Visual Studio Projekte\Bibliotheken\MSG .NET\Bin\14_11_19_MIME_UTF_ENCODING\Independentsoft.Msg.dll diff --git a/GUIs.Test.DocumentViewerTest/Form1.vb b/GUIs.Test.DocumentViewerTest/Form1.vb index ce77568f..61acbd4b 100644 --- a/GUIs.Test.DocumentViewerTest/Form1.vb +++ b/GUIs.Test.DocumentViewerTest/Form1.vb @@ -12,22 +12,14 @@ Public Class Form1 End Sub Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click Try + Dim oKey = "0467389434974657969312056" + Dim oLogConfig As New LogConfig(LogConfig.PathType.CurrentDirectory) + Dim oSubform As New Form2(oLogConfig, oKey) + oSubform.FilePath = TextBox1.Text - oSubform.ShowDialog() + oSubform.Show() Catch ex As Exception MsgBox(ex.Message) End Try End Sub - - Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load - Dim oKey = "0467389434974657969312056" - Dim oLogConfig As New LogConfig(LogConfig.PathType.CurrentDirectory) - oSubform = New Form2(oLogConfig, oKey) - End Sub - - Private Sub Form1_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing - - End Sub - - End Class