208 lines
9.0 KiB
VB.net
208 lines
9.0 KiB
VB.net
Imports DevExpress.XtraEditors
|
|
Imports DevExpress.XtraGrid.Views.Tile
|
|
Imports DevExpress.XtraGrid.Views.Tile.ViewInfo
|
|
|
|
Public Class frmProfileMatch
|
|
Private Sub frmProfileMatch_Load(sender As Object, e As EventArgs) Handles Me.Load
|
|
CreateTiles()
|
|
CurrSearch2Load = Nothing
|
|
End Sub
|
|
Sub CreateTiles()
|
|
Try
|
|
Dim oPrimaryFont As New Font("Segoe UI", 12, FontStyle.Bold)
|
|
Dim SecondaryFont As New Font("Segoe UI", 10)
|
|
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
|
|
'GridControl1.DataSource = CurrDT_PROFILE_MATCH
|
|
|
|
'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
|
|
|
|
|
|
' TileView1.TileTemplate.Add(ImageColumn)
|
|
'For Each oProfileColumn As DataColumn In CurrDT_PROFILE_MATCH.Columns
|
|
' Dim index As Integer = CurrDT_PROFILE_MATCH.Columns.IndexOf(oProfileColumn)
|
|
|
|
|
|
' Select Case index
|
|
' 'Case 0
|
|
' ' ' RecordId
|
|
' ' RECORDID_Column = New TileViewItemElement()
|
|
' ' With RECORDID_Column
|
|
' ' .Column = grvwTiles.Columns(0)
|
|
' ' .Column.OptionsFilter.AllowFilter = True
|
|
' ' .TextAlignment = TileItemContentAlignment.TopLeft
|
|
' ' End With
|
|
' ' grvwTiles.TileTemplate.Add(RECORDID_Column)
|
|
' Case 1
|
|
' ' Index 1 ist das Bild
|
|
' If oProfileColumn.DataType.ToString.Contains("Byte") Then
|
|
' ImageColumn = New TileViewItemElement()
|
|
' With ImageColumn
|
|
' .Image = My.Resources.asterisk_orange
|
|
' .Column = TileView1.Columns(1)
|
|
' '.ImageSize = New Size(186, 90)
|
|
' .ImageSize = New Size(186, 118)
|
|
' .ImageScaleMode = TileItemImageScaleMode.ZoomInside
|
|
' .ImageAlignment = TileItemContentAlignment.Manual
|
|
' .ImageLocation = New Point(-10, -10)
|
|
' End With
|
|
' TileView1.TileTemplate.Add(ImageColumn)
|
|
' End If
|
|
' Case 2
|
|
' ' Index 2 ist die Headline
|
|
' HeadlineColumn = New TileViewItemElement()
|
|
' With HeadlineColumn
|
|
' .Column = TileView1.Columns(2)
|
|
' .TextAlignment = TileItemContentAlignment.TopRight
|
|
' .Appearance.Normal.Font = PrimaryFont
|
|
' .Appearance.Normal.ForeColor = Color.DodgerBlue
|
|
' .Column.OptionsFilter.AllowFilter = True
|
|
' End With
|
|
' TileView1.TileTemplate.Add(HeadlineColumn)
|
|
' Case 3 To 4
|
|
' ' Indexe 3 und 4 sind normale Textzeilen
|
|
' TextColumn = New TileViewItemElement()
|
|
' TextHeaderColumn = New TileViewItemElement()
|
|
' Dim OffsetIndex = index - 3
|
|
|
|
' With TextHeaderColumn
|
|
' .Text = oProfileColumn.ColumnName
|
|
' .TextAlignment = TileItemContentAlignment.Manual
|
|
' .TextLocation = New Point(120, 20 + (OffsetIndex * 40))
|
|
' .Appearance.Normal.Font = SecondaryFont
|
|
' .Appearance.Normal.ForeColor = Color.DarkGray
|
|
' .Appearance.Normal.BackColor = WhiteBackground
|
|
' End With
|
|
|
|
' With TextColumn
|
|
' .Column = TileView1.Columns(index)
|
|
' .TextAlignment = TileItemContentAlignment.Manual
|
|
' .TextLocation = New Point(120, 20 + 18 + (OffsetIndex * 40))
|
|
' .Appearance.Normal.Font = SecondaryFont
|
|
' .Appearance.Normal.ForeColor = Color.Black
|
|
' .Appearance.Normal.BackColor = WhiteBackground
|
|
' End With
|
|
|
|
' TileView1.TileTemplate.Add(TextHeaderColumn)
|
|
' TileView1.TileTemplate.Add(TextColumn)
|
|
' End Select
|
|
'Next
|
|
Catch ex As Exception
|
|
|
|
End Try
|
|
|
|
|
|
End Sub
|
|
|
|
'Private Sub TileView1_ItemClick(sender As Object, e As TileViewItemClickEventArgs)
|
|
' Dim oPROFILE_ID = TileView1.GetFocusedRowCellValue(TileView1.Columns("GUID"))
|
|
' CurrSearch2Load = oPROFILE_ID
|
|
' Dim view As TileView = TryCast(sender, TileView)
|
|
' Dim pt As Point = view.GridControl.PointToClient(Control.MousePosition)
|
|
' Dim hitInfo As TileViewHitInfo = view.CalcHitInfo(pt)
|
|
' If hitInfo.ItemInfo IsNot Nothing Then
|
|
' Dim elementInfo As TileItemElementViewInfo = hitInfo.ItemInfo.Elements.FirstOrDefault(Function(t) t.EntireElementBounds.Contains(pt))
|
|
' If elementInfo IsNot Nothing Then
|
|
' Dim text As String = elementInfo.Element.Text
|
|
' End If
|
|
' End If
|
|
' OpenResults_Doc()
|
|
'End Sub
|
|
Sub OpenResults_Doc()
|
|
Me.Hide()
|
|
Dim ofrmresult As Form = New frmResultDoc
|
|
ofrmresult.ShowDialog()
|
|
Me.Show()
|
|
End Sub
|
|
Private Sub Button1_Click(sender As Object, e As EventArgs)
|
|
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
|
|
OpenResults_Doc()
|
|
|
|
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 |