39 lines
1.2 KiB
VB.net
39 lines
1.2 KiB
VB.net
Imports DigitalData.Modules.Logging
|
|
|
|
Public Class Form1
|
|
Private oSubform As Form3
|
|
|
|
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
|
Dim oResult = OpenFileDialog1.ShowDialog()
|
|
|
|
If oResult = DialogResult.OK Then
|
|
TextBox1.Text = OpenFileDialog1.FileName
|
|
End If
|
|
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 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()
|
|
Catch ex As Exception
|
|
MsgBox(ex.Message)
|
|
End Try
|
|
End Sub
|
|
End Class
|