AppStd/Modules
8
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

DocumentViewer: Version 1.0.1.0

Browse Source
This commit is contained in:
Jonathan Jenne
2020-03-23 12:06:51 +01:00
parent 3449b16d69
commit 8d91dcdb43
5 changed files with 108 additions and 154 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -4,6 +4,18 @@ Imports GdPicture14
Public Class Form1
Private oSubform As Form3
Private LogConfig As LogConfig
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
Dim oLogConfig As New LogConfig(LogConfig.PathType.CustomPath,
Application.StartupPath,
Nothing,
My.Application.Info.CompanyName,
My.Application.Info.ProductName)
LogConfig = oLogConfig
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim oResult = OpenFileDialog1.ShowDialog()
@@ -14,8 +26,7 @@ Public Class Form1
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 Form3(oLogConfig, oKey)
Dim oSubform As New Form3(LogConfig, oKey)
oSubform.FilePath = TextBox1.Text
oSubform.Show()
@@ -27,8 +38,7 @@ Public Class Form1
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)
Dim oSubform As New Form4(LogConfig, oKey)
oSubform.FilePath = TextBox1.Text
oSubform.Show()
@@ -76,4 +86,6 @@ Public Class Form1
End If
End Using
End Sub
End Class