AppStd/Monorepo
8
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

documentviewer test

Browse Source
This commit is contained in:
Jonathan Jenne
2020-01-08 13:57:05 +01:00
parent 310086820f
commit 2304214073
8 changed files with 247 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
GUIs.Test.DocumentViewerTest/Form1.vb
View File

@@ -1,7 +1,7 @@
Imports DigitalData.Modules.Logging
Public Class Form1
Private oSubform As Form2
Private oSubform As Form3
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim oResult = OpenFileDialog1.ShowDialog()
@@ -14,7 +14,20 @@ Public Class Form1
Try
Dim oKey = "0467389434974657969312056"
Dim oLogConfig As New LogConfig(LogConfig.PathType.CurrentDirectory)
Dim oSubform As New Form2(oLogConfig, oKey)
Dim oSubform As New Form3(oLogConfig, oKey)
oSubform.FilePath = TextBox1.Text
oSubform.Show()
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
Try
Dim oKey = "0467389434974657969312056"
Dim oLogConfig As New LogConfig(LogConfig.PathType.CurrentDirectory)
Dim oSubform As New Form4(oLogConfig, oKey)
oSubform.FilePath = TextBox1.Text
oSubform.Show()