diff --git a/GUIs.Test.JobTest/Form1.Designer.vb b/GUIs.Test.JobTest/Form1.Designer.vb index fe147c20..ebc083b1 100644 --- a/GUIs.Test.JobTest/Form1.Designer.vb +++ b/GUIs.Test.JobTest/Form1.Designer.vb @@ -23,28 +23,41 @@ Partial Class Form1 _ Private Sub InitializeComponent() Me.Button1 = New System.Windows.Forms.Button() + Me.TextBox1 = New System.Windows.Forms.TextBox() Me.SuspendLayout() ' 'Button1 ' - Me.Button1.Location = New System.Drawing.Point(253, 101) + Me.Button1.Location = New System.Drawing.Point(12, 25) Me.Button1.Name = "Button1" Me.Button1.Size = New System.Drawing.Size(75, 23) Me.Button1.TabIndex = 0 Me.Button1.Text = "Button1" Me.Button1.UseVisualStyleBackColor = True ' + 'TextBox1 + ' + Me.TextBox1.Font = New System.Drawing.Font("Consolas", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.TextBox1.Location = New System.Drawing.Point(93, 25) + Me.TextBox1.Multiline = True + Me.TextBox1.Name = "TextBox1" + Me.TextBox1.Size = New System.Drawing.Size(695, 413) + Me.TextBox1.TabIndex = 1 + ' 'Form1 ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.ClientSize = New System.Drawing.Size(800, 450) + Me.Controls.Add(Me.TextBox1) Me.Controls.Add(Me.Button1) Me.Name = "Form1" Me.Text = "Form1" Me.ResumeLayout(False) + Me.PerformLayout() End Sub Friend WithEvents Button1 As Button + Friend WithEvents TextBox1 As TextBox End Class diff --git a/GUIs.Test.JobTest/Form1.vb b/GUIs.Test.JobTest/Form1.vb index b05826f5..1a155ed1 100644 --- a/GUIs.Test.JobTest/Form1.vb +++ b/GUIs.Test.JobTest/Form1.vb @@ -3,7 +3,8 @@ Imports DigitalData.Modules.Logging Public Class Form1 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click - Dim oLogConfig As New LogConfig(LogConfig.PathType.Temp) + Dim oLogConfig As New LogConfig(LogConfig.PathType.CustomPath, Application.StartupPath, Nothing, "Digital Data", "JobTest") + oLogConfig.Debug = True Dim oJob As New GraphQLJob(oLogConfig) Dim oArgs As New GraphQLArgs() With { @@ -12,5 +13,7 @@ Public Class Form1 .QueryConfigPath = "E:\GraphQL" } oJob.Start(oArgs) + + MsgBox("Finished!", MsgBoxStyle.Critical) End Sub End Class