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

Common: Clean up frmNotification_Startup

Browse Source
This commit is contained in:
Jonathan Jenne
2022-10-26 14:57:01 +02:00
parent f24354addf
commit 3bf14be3b8
12 changed files with 420 additions and 348 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
GUIs.Test.TestGUI/TestGUI.vbproj
View File

@@ -79,6 +79,7 @@
<Reference Include="DigitalData.Modules.Database">
<HintPath>..\..\DDModules\Database\bin\Debug\DigitalData.Modules.Database.dll</HintPath>
</Reference>
<Reference Include="DigitalData.Modules.EDMI.API, Version=1.5.4.0, Culture=neutral, PublicKeyToken=null" />
<Reference Include="DigitalData.Modules.Filesystem">
<HintPath>..\..\DDModules\Filesystem\bin\Debug\DigitalData.Modules.Filesystem.dll</HintPath>
</Reference>
@@ -94,6 +95,10 @@
<Reference Include="DigitalData.Modules.Windream">
<HintPath>..\..\DDModules\Windream\bin\Debug\DigitalData.Modules.Windream.dll</HintPath>
</Reference>
<Reference Include="DigitalData.Modules.ZooFlow, Version=1.2.0.0, Culture=neutral, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>..\..\DDModules\ZooFlow\bin\Debug\DigitalData.Modules.ZooFlow.dll</HintPath>
</Reference>
<Reference Include="GdPicture.NET.14, Version=14.1.0.97, Culture=neutral, PublicKeyToken=f52a2e60ad468dbb, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>D:\ProgramFiles\GdPicture.NET 14\Redist\GdPicture.NET (.NET Framework 4.5)\GdPicture.NET.14.dll</HintPath>

4
GUIs.Test.TestGUI/frmMail.vb
View File

@@ -31,4 +31,8 @@ Public Class frmMail
End If
End Using
End Sub
Private Sub frmMail_Load(sender As Object, e As EventArgs) Handles MyBase.Load
End Sub
End Class

12
GUIs.Test.TestGUI/frmStart.Designer.vb generated
View File

@@ -33,6 +33,7 @@ Partial Class frmStart
Me.Button9 = New System.Windows.Forms.Button()
Me.Button10 = New System.Windows.Forms.Button()
Me.btnObjectProperties = New System.Windows.Forms.Button()
Me.Button11 = New System.Windows.Forms.Button()
Me.SuspendLayout()
'
'Button1
@@ -134,6 +135,15 @@ Partial Class frmStart
Me.btnObjectProperties.Text = "Object Properties"
Me.btnObjectProperties.UseVisualStyleBackColor = True
'
'Button11
'
Me.Button11.Location = New System.Drawing.Point(254, 326)
Me.Button11.Name = "Button11"
Me.Button11.Size = New System.Drawing.Size(236, 60)
Me.Button11.TabIndex = 2
Me.Button11.Text = "Notification Startup"
Me.Button11.UseVisualStyleBackColor = True
'
'frmStart
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -142,6 +152,7 @@ Partial Class frmStart
Me.Controls.Add(Me.Button10)
Me.Controls.Add(Me.Button9)
Me.Controls.Add(Me.Button6)
Me.Controls.Add(Me.Button11)
Me.Controls.Add(Me.btnObjectProperties)
Me.Controls.Add(Me.Button5)
Me.Controls.Add(Me.Button4)
@@ -167,4 +178,5 @@ Partial Class frmStart
Friend WithEvents Button9 As Button
Friend WithEvents Button10 As Button
Friend WithEvents btnObjectProperties As Button
Friend WithEvents Button11 As Button
End Class

25
GUIs.Test.TestGUI/frmStart.vb
View File

@@ -65,4 +65,29 @@ Public Class frmStart
Dim oForm As New frmObjectProperties(LogConfig, Database)
oForm.ShowDialog()
End Sub
Private Sub Button11_Click(sender As Object, e As EventArgs) Handles Button11.Click
Dim oClient = New DigitalData.Modules.EDMI.API.Client(LogConfig, "172.24.12.39:9000")
oClient.Connect()
Dim oEnv = New DigitalData.Modules.ZooFlow.Environment()
oEnv.Service.Client = oClient
oEnv.Database = Database
Dim oTable As New DataTable
oTable.Columns.AddRange(New List(Of DataColumn) From {
New DataColumn("GUID", GetType(Integer)),
New DataColumn("TITLE"),
New DataColumn("DISPLAY_TYPE"),
New DataColumn("MSG_STRING"),
New DataColumn("VALIDATE_READ", GetType(Boolean))
}.ToArray)
oTable.Rows.Add("1", "Public Service Announcement", "MESSAGE", "This is an Important Message from the Management!", 1)
oTable.Rows.Add("2", "Public Service Announcement", "MESSAGE", "This is another Important Message from the Management!", 0)
oTable.AcceptChanges()
Dim oForm As New frmNotification_Startup(oTable, LogConfig, "", "Test Notification", oEnv)
oForm.Show()
End Sub
End Class