add DataResultList

This commit is contained in:
Developer02 Digital Data
2019-10-14 15:18:45 +02:00
parent c668f692f4
commit a80486dad2
21 changed files with 1120 additions and 223 deletions

View File

@@ -22,16 +22,15 @@ Partial Class frmTreeView
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmTreeView))
Me.tvProfileMatch = New System.Windows.Forms.TreeView()
Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
Me.ImageList1 = New System.Windows.Forms.ImageList()
Me.SuspendLayout()
'
'tvProfileMatch
'
Me.tvProfileMatch.Dock = System.Windows.Forms.DockStyle.Fill
Me.tvProfileMatch.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.tvProfileMatch.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.tvProfileMatch.ImageIndex = 0
Me.tvProfileMatch.ImageList = Me.ImageList1
Me.tvProfileMatch.Location = New System.Drawing.Point(0, 0)
@@ -44,11 +43,12 @@ Partial Class frmTreeView
'
Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
Me.ImageList1.TransparentColor = System.Drawing.Color.Transparent
Me.ImageList1.Images.SetKeyName(0, "award_star_gold_1.png")
Me.ImageList1.Images.SetKeyName(1, "application_xp.png")
Me.ImageList1.Images.SetKeyName(2, "application_form.png")
Me.ImageList1.Images.SetKeyName(3, "brick.png")
Me.ImageList1.Images.SetKeyName(4, "application_view_tile.png")
Me.ImageList1.Images.SetKeyName(0, "root.png")
Me.ImageList1.Images.SetKeyName(1, "profile.png")
Me.ImageList1.Images.SetKeyName(2, "clipboard.png")
Me.ImageList1.Images.SetKeyName(3, "process.png")
Me.ImageList1.Images.SetKeyName(4, "window.png")
Me.ImageList1.Images.SetKeyName(5, "control.png")
'
'frmTreeView
'
@@ -57,7 +57,8 @@ Partial Class frmTreeView
Me.ClientSize = New System.Drawing.Size(800, 450)
Me.Controls.Add(Me.tvProfileMatch)
Me.Name = "frmTreeView"
Me.Text = "frmTreeView"
Me.ShowIcon = False
Me.Text = "Profilsuchen Algorithmus"
Me.ResumeLayout(False)
End Sub