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

match form

Browse Source
This commit is contained in:
Jonathan Jenne 2019-07-11 14:32:54 +02:00
parent 9bc269147c
commit e78546ebbd
4 changed files with 191 additions and 115 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

121
app/DD_Clipboard_Searcher/frmProfileMatch.Designer.vb generated
View File

@ -1,6 +1,6 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _ <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmProfileMatch Partial Class frmProfileMatch
Inherits System.Windows.Forms.Form Inherits DevExpress.XtraEditors.XtraForm
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _ <System.Diagnostics.DebuggerNonUserCode()> _
@ -22,99 +22,106 @@ Partial Class frmProfileMatch
'Das Bearbeiten mit dem Code-Editor ist nicht möglich. 'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _ <System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent() Private Sub InitializeComponent()
Dim TileItemElement3 As DevExpress.XtraEditors.TileItemElement = New DevExpress.XtraEditors.TileItemElement()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmProfileMatch)) Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmProfileMatch))
Me.Label1 = New System.Windows.Forms.Label() Me.Label1 = New System.Windows.Forms.Label()
Me.GridControl1 = New DevExpress.XtraGrid.GridControl() Me.TileControl1 = New DevExpress.XtraEditors.TileControl()
Me.TileView1 = New DevExpress.XtraGrid.Views.Tile.TileView() Me.TileGroup2 = New DevExpress.XtraEditors.TileGroup()
Me.Button2 = New System.Windows.Forms.Button() Me.TileItem1 = New DevExpress.XtraEditors.TileItem()
Me.Button1 = New System.Windows.Forms.Button() Me.TileGroupProfiles = New DevExpress.XtraEditors.TileGroup()
CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).BeginInit() Me.SimpleButton1 = New DevExpress.XtraEditors.SimpleButton()
CType(Me.TileView1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout() Me.SuspendLayout()
' '
'Label1 'Label1
' '
Me.Label1.AutoSize = True Me.Label1.AutoSize = True
Me.Label1.BackColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer))
Me.Label1.Font = New System.Drawing.Font("Calibri", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label1.Font = New System.Drawing.Font("Calibri", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label1.Location = New System.Drawing.Point(39, 15) Me.Label1.ForeColor = System.Drawing.Color.White
Me.Label1.Location = New System.Drawing.Point(12, 9)
Me.Label1.Name = "Label1" Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(489, 19) Me.Label1.Size = New System.Drawing.Size(489, 19)
Me.Label1.TabIndex = 2 Me.Label1.TabIndex = 2
Me.Label1.Text = "Clipboard Watcher hat mehr als einen Match für Ihre Suche gefunden:" Me.Label1.Text = "Clipboard Watcher hat mehr als einen Match für Ihre Suche gefunden:"
' '
'GridControl1 'TileControl1
' '
Me.GridControl1.Location = New System.Drawing.Point(27, 48) Me.TileControl1.AppearanceItem.Normal.BackColor = System.Drawing.Color.FromArgb(CType(CType(165, Byte), Integer), CType(CType(36, Byte), Integer), CType(CType(49, Byte), Integer))
Me.GridControl1.MainView = Me.TileView1 Me.TileControl1.AppearanceItem.Normal.BorderColor = System.Drawing.Color.FromArgb(CType(CType(165, Byte), Integer), CType(CType(36, Byte), Integer), CType(CType(49, Byte), Integer))
Me.GridControl1.Name = "GridControl1" Me.TileControl1.AppearanceItem.Normal.Font = New System.Drawing.Font("Tahoma", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.GridControl1.Size = New System.Drawing.Size(621, 208) Me.TileControl1.AppearanceItem.Normal.ForeColor = System.Drawing.Color.White
Me.GridControl1.TabIndex = 3 Me.TileControl1.AppearanceItem.Normal.Options.UseBackColor = True
Me.GridControl1.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.TileView1}) Me.TileControl1.AppearanceItem.Normal.Options.UseBorderColor = True
Me.TileControl1.AppearanceItem.Normal.Options.UseFont = True
Me.TileControl1.AppearanceItem.Normal.Options.UseForeColor = True
Me.TileControl1.BackColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer))
Me.TileControl1.Dock = System.Windows.Forms.DockStyle.Top
Me.TileControl1.Groups.Add(Me.TileGroup2)
Me.TileControl1.Groups.Add(Me.TileGroupProfiles)
Me.TileControl1.ItemSize = 135
Me.TileControl1.Location = New System.Drawing.Point(0, 0)
Me.TileControl1.MaxId = 4
Me.TileControl1.Name = "TileControl1"
Me.TileControl1.Size = New System.Drawing.Size(713, 384)
Me.TileControl1.TabIndex = 6
Me.TileControl1.Text = "TileControl1"
' '
'TileView1 'TileGroup2
' '
Me.TileView1.Appearance.ItemPressed.BackColor = System.Drawing.Color.Silver Me.TileGroup2.Items.Add(Me.TileItem1)
Me.TileView1.Appearance.ItemPressed.Options.UseBackColor = True Me.TileGroup2.Name = "TileGroup2"
Me.TileView1.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.UltraFlat Me.TileGroup2.Text = "Allgemein"
Me.TileView1.GridControl = Me.GridControl1
Me.TileView1.Name = "TileView1"
Me.TileView1.OptionsTiles.ItemSize = New System.Drawing.Size(200, 80)
Me.TileView1.OptionsTiles.LayoutMode = DevExpress.XtraGrid.Views.Tile.TileViewLayoutMode.List
Me.TileView1.OptionsView.BackgroundColorMode = DevExpress.XtraGrid.Views.Tile.BackgroundColorMode.Skin
Me.TileView1.ViewCaption = "Clipboard Watcher hat mehr als einen Match für Ihre Suche gefunden:"
' '
'Button2 'TileItem1
' '
Me.Button2.Font = New System.Drawing.Font("Calibri", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) TileItemElement3.ImageOptions.Image = CType(resources.GetObject("resource.Image"), System.Drawing.Image)
Me.Button2.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.cancel TileItemElement3.Text = "Alle"
Me.Button2.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.TileItem1.Elements.Add(TileItemElement3)
Me.Button2.Location = New System.Drawing.Point(347, 271) Me.TileItem1.Id = 1
Me.Button2.Name = "Button2" Me.TileItem1.ItemSize = DevExpress.XtraEditors.TileItemSize.Medium
Me.Button2.Size = New System.Drawing.Size(301, 53) Me.TileItem1.Name = "TileItem1"
Me.Button2.TabIndex = 4
Me.Button2.Text = "Abbruch"
Me.Button2.UseVisualStyleBackColor = True
' '
'Button1 'TileGroupProfiles
' '
Me.Button1.BackColor = System.Drawing.SystemColors.Control Me.TileGroupProfiles.Name = "TileGroupProfiles"
Me.Button1.Font = New System.Drawing.Font("Calibri", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) '
Me.Button1.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.ID_SITE_PUBLISH_ALL 'SimpleButton1
Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft '
Me.Button1.Location = New System.Drawing.Point(27, 271) Me.SimpleButton1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Button1.Name = "Button1" Me.SimpleButton1.ButtonStyle = DevExpress.XtraEditors.Controls.BorderStyles.UltraFlat
Me.Button1.Size = New System.Drawing.Size(300, 53) Me.SimpleButton1.ImageOptions.Image = CType(resources.GetObject("SimpleButton1.ImageOptions.Image"), System.Drawing.Image)
Me.Button1.TabIndex = 5 Me.SimpleButton1.Location = New System.Drawing.Point(564, 390)
Me.Button1.Text = "Alle Ergebnisse anzeigen" Me.SimpleButton1.Name = "SimpleButton1"
Me.Button1.UseVisualStyleBackColor = False Me.SimpleButton1.Size = New System.Drawing.Size(137, 45)
Me.SimpleButton1.TabIndex = 7
Me.SimpleButton1.Text = "Abbruch"
' '
'frmProfileMatch 'frmProfileMatch
' '
Me.Appearance.Options.UseFont = True
Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 15.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 15.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.SystemColors.Control Me.ClientSize = New System.Drawing.Size(713, 447)
Me.ClientSize = New System.Drawing.Size(675, 344) Me.Controls.Add(Me.SimpleButton1)
Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.Button2)
Me.Controls.Add(Me.GridControl1)
Me.Controls.Add(Me.Label1) Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.TileControl1)
Me.Font = New System.Drawing.Font("Calibri", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Font = New System.Drawing.Font("Calibri", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.MaximizeBox = False Me.MaximizeBox = False
Me.MinimizeBox = False Me.MinimizeBox = False
Me.MinimumSize = New System.Drawing.Size(729, 486)
Me.Name = "frmProfileMatch" Me.Name = "frmProfileMatch"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
Me.Text = "Profile Match" Me.Text = "Profile Match"
Me.TopMost = True Me.TopMost = True
CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TileView1, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False) Me.ResumeLayout(False)
Me.PerformLayout() Me.PerformLayout()
End Sub End Sub
Friend WithEvents Label1 As Label Friend WithEvents Label1 As Label
Friend WithEvents GridControl1 As DevExpress.XtraGrid.GridControl Friend WithEvents TileControl1 As DevExpress.XtraEditors.TileControl
Friend WithEvents Button2 As Button Friend WithEvents TileGroup2 As DevExpress.XtraEditors.TileGroup
Friend WithEvents TileView1 As DevExpress.XtraGrid.Views.Tile.TileView Friend WithEvents TileItem1 As DevExpress.XtraEditors.TileItem
Friend WithEvents Button1 As Button Friend WithEvents TileGroupProfiles As DevExpress.XtraEditors.TileGroup
Friend WithEvents SimpleButton1 As DevExpress.XtraEditors.SimpleButton
End Class End Class

27
app/DD_Clipboard_Searcher/frmProfileMatch.resx
View File

@ -118,6 +118,33 @@
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value> <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader> </resheader>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" /> <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="resource.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAhdEVYdFRpdGxlAEFwcGx5O09LO0NoZWNrO0JhcnM7
UmliYm9uO2RjyGgAAAGcSURBVFhHxZcxcsIwEEU5AVWO4z4dZ8gBcgZm6LhNWsrcIh0dV6B19nm0Hln5
sleG4OINRvq7+7FXktn1fb8pcvCVjBdd1y2xNw7G2bgYV+Oe4Jox5tCgVTlGWgy8GZ/Gt9EHQUsMsSpn
2MC78WWoIhGIJcef3BEDH8aPoRK3QA5yTfIvGSDgZqiEayDXxMScAW7ZM355CTnHx1EzQNM88syXIPfQ
mDUDdK4KXMNJjAE1pAHWbstSm+OUcqo5auyVATYQFdDKUDzlVPNwcE1ugF1MiVsYi6ecSgNn1+RitlIl
jjIpnnIqHVxck4vZz5UYag3lqOLHQpNzdV0ewKGixDY9zNdMtBaHu2vzoFkDSVOaWFMcpIHqI3BN0rmJ
tcVBPoJqE7om0z5SHGQTzi3Do+sUzBf6JeQyXNqIpAnGC10EuRFFtuKJCb4X8xGqWzFEDqPBBJ/FeJTq
YQTR43ht8cXjGDZ9IXE2fSVzCHjGnSDHpDhEDAC37JFXNGLH254TNQA0DZ3b8raElpih4RQtBpz//Wu2
FXLwdfS7XxGwk2isBZLIAAAAAElFTkSuQmCC
</value>
</data>
<data name="SimpleButton1.ImageOptions.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAjdEVYdFRpdGxlAENhbmNlbDtTdG9wO0V4aXQ7QmFy
cztSaWJib247TJaWsgAAAW5JREFUWEfFlk1KBDEUhGfmAg56JTcuHEGP4FFFFMVZz1VcxaomD57pek1e
hLj4FilSP9Dd0LtSyr8ixZlIcSZSnIkUL8+3f6LJOvhzixRr0BV4AXf13I3LuQev4OjzPVKEgeUfoIBv
kBpRM1hOLzM+gRyxEnDxALiaRiM7wpcbzNy3fb8OBi4+gTagd4Qq5/lBda0EgsvksRrboK0RqXIiRRiM
zIh0OZEiTJ6eEUPlRIowtmyNGC4nUoRZEY0YLidSRECEGuFJlRMpImSLaMRSDmRmhBQZsoF65jZgeTFV
ZoQUGRIQlRvLCJUZIUWEKKK3XWndI6SIgN5yPvPwE1XZLVKEubfc7gyPkCKMmXJjaIQUYSJR+Qn4Yk96
hBRhGCk3UiNWAi7uwVs1+oCeckONeAfdPyTX4Ksas+WW4UecwU3bQ1YCwWXCEVydKicuhyOYIcuJFC0I
8P/Qn7tosvK/5TOR4kykOBMpzqPsfgBphQ1j4i+mWAAAAABJRU5ErkJggg==
</value>
</data>
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
AAABAAMAMDAAAAEAIACoJQAANgAAACAgAAABACAAqBAAAN4lAAAQEAAAAQAgAGgEAACGNgAAKAAAADAA AAABAAMAMDAAAAEAIACoJQAANgAAACAgAAABACAAqBAAAN4lAAAQEAAAAQAgAGgEAACGNgAAKAAAADAA

155
app/DD_Clipboard_Searcher/frmProfileMatch.vb
View File

@ -7,56 +7,70 @@ Public Class frmProfileMatch
CreateTiles() CreateTiles()
CurrSearch2Load = Nothing CurrSearch2Load = Nothing
End Sub End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Me.Close()
End Sub
Sub CreateTiles() Sub CreateTiles()
Try Try
Dim ImageIndex As Integer = -1 Dim oPrimaryFont As New Font("Segoe UI", 12, FontStyle.Bold)
Dim i As Integer = 0
Dim j As Integer = 0
Dim PrimaryFont As New Font("Segoe UI", 12, FontStyle.Bold)
Dim SecondaryFont As New Font("Segoe UI", 10) Dim SecondaryFont As New Font("Segoe UI", 10)
Dim WhiteBackground As Color = System.Drawing.Color.FromArgb(230, Color.White) Dim oGroup = TileControl1.Groups.Item("TileGroupProfiles")
For Each oRow As DataRow In CurrDT_PROFILE_MATCH.Rows
Dim oItem As New TileItem() With {.Tag = oRow.Item("GUID")}
oItem.Elements.Clear()
Dim oNameElement = New TileItemElement()
oNameElement.Text = oRow.Item("NAME")
oNameElement.TextAlignment = TileItemContentAlignment.TopLeft
oNameElement.Appearance.Normal.Font = oPrimaryFont
oItem.Elements.Add(oNameElement)
Dim oCommentElement = New TileItemElement()
oCommentElement.Text = oRow.Item("COMMENT")
oCommentElement.TextAlignment = TileItemContentAlignment.BottomLeft
oCommentElement.Appearance.Normal.Font = SecondaryFont
oItem.Elements.Add(oCommentElement)
oGroup.Items.Add(oItem)
Next
' Datatable laden ' Datatable laden
GridControl1.DataSource = CurrDT_PROFILE_MATCH 'GridControl1.DataSource = CurrDT_PROFILE_MATCH
TileView1.TileTemplate.Clear() 'TileView1.TileTemplate.Clear()
'Dim ImageColumn As TileViewItemElement
'Dim HeadlineColumn As TileViewItemElement
'Dim IDColumn As TileViewItemElement
'Dim TextColumn As TileViewItemElement
'Dim TextHeaderColumn As TileViewItemElement
'HeadlineColumn = New TileViewItemElement()
'With HeadlineColumn
' .Column = TileView1.Columns(1)
' .TextAlignment = TileItemContentAlignment.TopRight
' .Appearance.Normal.Font = PrimaryFont
' .Appearance.Normal.ForeColor = Color.DodgerBlue
' .Column.OptionsFilter.AllowFilter = True
'End With
'TileView1.TileTemplate.Add(HeadlineColumn)
'IDColumn = New TileViewItemElement()
'With IDColumn
' .Column = TileView1.Columns(0)
' .Column.OptionsFilter.AllowFilter = True
' .TextAlignment = TileItemContentAlignment.TopLeft
'End With
'TileView1.TileTemplate.Add(IDColumn)
'ImageColumn = New TileViewItemElement()
'With ImageColumn
' .Image = My.Resources.build_Selection_32xLG
' '
' ' '.ImageSize = New Size(186, 90)
' .ImageSize = New Size(186, 118)
' .ImageScaleMode = TileItemImageScaleMode.ZoomInside
' .ImageAlignment = TileItemContentAlignment.BottomLeft
' ' .ImageLocation = New Point(-10, -10)
'End With
Dim ImageColumn As TileViewItemElement
Dim HeadlineColumn As TileViewItemElement
Dim IDColumn As TileViewItemElement
Dim TextColumn As TileViewItemElement
Dim TextHeaderColumn As TileViewItemElement
HeadlineColumn = New TileViewItemElement()
With HeadlineColumn
.Column = TileView1.Columns(1)
.TextAlignment = TileItemContentAlignment.TopRight
.Appearance.Normal.Font = PrimaryFont
.Appearance.Normal.ForeColor = Color.DodgerBlue
.Column.OptionsFilter.AllowFilter = True
End With
TileView1.TileTemplate.Add(HeadlineColumn)
IDColumn = New TileViewItemElement()
With IDColumn
.Column = TileView1.Columns(0)
.Column.OptionsFilter.AllowFilter = True
.TextAlignment = TileItemContentAlignment.TopLeft
End With
TileView1.TileTemplate.Add(IDColumn)
ImageColumn = New TileViewItemElement()
With ImageColumn
.Image = My.Resources.build_Selection_32xLG
'
' '.ImageSize = New Size(186, 90)
.ImageSize = New Size(186, 118)
.ImageScaleMode = TileItemImageScaleMode.ZoomInside
.ImageAlignment = TileItemContentAlignment.BottomLeft
' .ImageLocation = New Point(-10, -10)
End With
' TileView1.TileTemplate.Add(ImageColumn) ' TileView1.TileTemplate.Add(ImageColumn)
'For Each oProfileColumn As DataColumn In CurrDT_PROFILE_MATCH.Columns 'For Each oProfileColumn As DataColumn In CurrDT_PROFILE_MATCH.Columns
' Dim index As Integer = CurrDT_PROFILE_MATCH.Columns.IndexOf(oProfileColumn) ' Dim index As Integer = CurrDT_PROFILE_MATCH.Columns.IndexOf(oProfileColumn)
@ -133,27 +147,27 @@ Public Class frmProfileMatch
End Sub End Sub
Private Sub TileView1_ItemClick(sender As Object, e As TileViewItemClickEventArgs) Handles TileView1.ItemClick 'Private Sub TileView1_ItemClick(sender As Object, e As TileViewItemClickEventArgs)
Dim oPROFILE_ID = TileView1.GetFocusedRowCellValue(TileView1.Columns("GUID")) ' Dim oPROFILE_ID = TileView1.GetFocusedRowCellValue(TileView1.Columns("GUID"))
CurrSearch2Load = oPROFILE_ID ' CurrSearch2Load = oPROFILE_ID
Dim view As TileView = TryCast(sender, TileView) ' Dim view As TileView = TryCast(sender, TileView)
Dim pt As Point = view.GridControl.PointToClient(Control.MousePosition) ' Dim pt As Point = view.GridControl.PointToClient(Control.MousePosition)
Dim hitInfo As TileViewHitInfo = view.CalcHitInfo(pt) ' Dim hitInfo As TileViewHitInfo = view.CalcHitInfo(pt)
If hitInfo.ItemInfo IsNot Nothing Then ' If hitInfo.ItemInfo IsNot Nothing Then
Dim elementInfo As TileItemElementViewInfo = hitInfo.ItemInfo.Elements.FirstOrDefault(Function(t) t.EntireElementBounds.Contains(pt)) ' Dim elementInfo As TileItemElementViewInfo = hitInfo.ItemInfo.Elements.FirstOrDefault(Function(t) t.EntireElementBounds.Contains(pt))
If elementInfo IsNot Nothing Then ' If elementInfo IsNot Nothing Then
Dim text As String = elementInfo.Element.Text ' Dim text As String = elementInfo.Element.Text
' End If
End If ' End If
End If ' OpenResults_Doc()
OpenResults_Doc 'End Sub
End Sub
Sub OpenResults_Doc() Sub OpenResults_Doc()
Me.Hide() Me.Hide()
Dim ofrmresult As Form = New frmResultDoc Dim ofrmresult As Form = New frmResultDoc
ofrmresult.ShowDialog() ofrmresult.ShowDialog()
Me.Show()
End Sub End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Private Sub Button1_Click(sender As Object, e As EventArgs)
Dim oResult As String = "" Dim oResult As String = ""
For Each oRow As DataRow In CurrDT_PROFILE_MATCH.Rows For Each oRow As DataRow In CurrDT_PROFILE_MATCH.Rows
If oResult = "" Then If oResult = "" Then
@ -166,4 +180,29 @@ Public Class frmProfileMatch
OpenResults_Doc() OpenResults_Doc()
End Sub End Sub
Private Sub TileControl1_ItemClick(sender As Object, e As TileItemEventArgs) Handles TileControl1.ItemClick
Dim oItem As TileItem = e.Item
Dim oProfileId = oItem.Tag
If oProfileId Is Nothing Then
Dim oResult As String = ""
For Each oRow As DataRow In CurrDT_PROFILE_MATCH.Rows
If oResult = "" Then
oResult = oRow.Item("GUID")
Else
oResult &= "," & oRow.Item("GUID")
End If
Next
CurrSearch2Load = oResult
Else
CurrSearch2Load = oProfileId
End If
OpenResults_Doc()
End Sub
Private Sub SimpleButton1_Click(sender As Object, e As EventArgs) Handles SimpleButton1.Click
Close()
End Sub
End Class End Class

3
app/DD_Clipboard_Searcher/frmStart.vb
View File

@ -44,6 +44,8 @@ Public Class frmStart
Dim oDTMatchProfiles As DataTable = New DataTable Dim oDTMatchProfiles As DataTable = New DataTable
oDTMatchProfiles.Columns.Add("GUID") oDTMatchProfiles.Columns.Add("GUID")
oDTMatchProfiles.Columns.Add("NAME") oDTMatchProfiles.Columns.Add("NAME")
oDTMatchProfiles.Columns.Add("COMMENT")
For Each oProfileRow As DataRow In DT_USER_PROFILES.Rows For Each oProfileRow As DataRow In DT_USER_PROFILES.Rows
'If found = True Then Exit For 'If found = True Then Exit For
If CurrPROC_Name.ToUpper = oProfileRow.Item("PROC_NAME").ToString.ToUpper Then If CurrPROC_Name.ToUpper = oProfileRow.Item("PROC_NAME").ToString.ToUpper Then
@ -60,6 +62,7 @@ Public Class frmStart
Dim onewMatchRow As DataRow = oDTMatchProfiles.NewRow Dim onewMatchRow As DataRow = oDTMatchProfiles.NewRow
onewMatchRow("GUID") = oProfileRow.Item("GUID") onewMatchRow("GUID") = oProfileRow.Item("GUID")
onewMatchRow("NAME") = oProfileRow.Item("NAME") onewMatchRow("NAME") = oProfileRow.Item("NAME")
onewMatchRow("COMMENT") = oProfileRow.Item("COMMENT")
oDTMatchProfiles.Rows.Add(onewMatchRow) oDTMatchProfiles.Rows.Add(onewMatchRow)
found = True found = True