JJ 09_11 TILES!!
This commit is contained in:
JenneJ
parent
861e6b82e0
commit
ccbc84bf51
122
app/DD-Record-Organiser/XtraForm2.Designer.vb
generated
122
app/DD-Record-Organiser/XtraForm2.Designer.vb
generated
@ -45,6 +45,10 @@ Partial Class XtraForm2
|
||||
Me.TileViewColumn3 = New DevExpress.XtraGrid.Columns.TileViewColumn()
|
||||
Me.grvwGrid = New DevExpress.XtraGrid.Views.Grid.GridView()
|
||||
Me.LayoutViewCard1 = New DevExpress.XtraGrid.Views.Layout.LayoutViewCard()
|
||||
Me.colAktenzeichen = New DevExpress.XtraGrid.Columns.TileViewColumn()
|
||||
Me.TileViewColumn5 = New DevExpress.XtraGrid.Columns.TileViewColumn()
|
||||
Me.colTagderEintragungimRegister = New DevExpress.XtraGrid.Columns.TileViewColumn()
|
||||
Me.colAktenzustand = New DevExpress.XtraGrid.Columns.TileViewColumn()
|
||||
Me.navPane = New DevExpress.XtraBars.Navigation.TileNavPane()
|
||||
Me.btn_home = New DevExpress.XtraBars.Navigation.NavButton()
|
||||
Me.btn_Refresh = New DevExpress.XtraBars.Navigation.NavButton()
|
||||
@ -59,19 +63,15 @@ Partial Class XtraForm2
|
||||
Me.TileView1 = New DevExpress.XtraGrid.Views.Tile.TileView()
|
||||
Me.XtraTabPage2 = New DevExpress.XtraTab.XtraTabPage()
|
||||
Me.GridControl2 = New DevExpress.XtraGrid.GridControl()
|
||||
Me.VWTEMPQUICKVIEWBindingSource = New System.Windows.Forms.BindingSource(Me.components)
|
||||
Me.DD_ECMAdmin = New DD_Record_Organiser.DD_ECMAdmin()
|
||||
Me.TileView2 = New DevExpress.XtraGrid.Views.Tile.TileView()
|
||||
Me.TileViewColumn4 = New DevExpress.XtraGrid.Columns.TileViewColumn()
|
||||
Me.SplitContainer_Main = New DevExpress.XtraEditors.SplitContainerControl()
|
||||
Me.SplitContainer_Top = New DevExpress.XtraEditors.SplitContainerControl()
|
||||
Me.SplitContainer_Bottom = New DevExpress.XtraEditors.SplitContainerControl()
|
||||
Me.DD_ECMAdmin = New DD_Record_Organiser.DD_ECMAdmin()
|
||||
Me.VWTEMPQUICKVIEWBindingSource = New System.Windows.Forms.BindingSource(Me.components)
|
||||
Me.VWTEMPQUICKVIEWTableAdapter = New DD_Record_Organiser.DD_ECMAdminTableAdapters.VWTEMPQUICKVIEWTableAdapter()
|
||||
Me.TableAdapterManager = New DD_Record_Organiser.DD_ECMAdminTableAdapters.TableAdapterManager()
|
||||
Me.TileViewColumn4 = New DevExpress.XtraGrid.Columns.TileViewColumn()
|
||||
Me.colAktenzeichen = New DevExpress.XtraGrid.Columns.TileViewColumn()
|
||||
Me.TileViewColumn5 = New DevExpress.XtraGrid.Columns.TileViewColumn()
|
||||
Me.colTagderEintragungimRegister = New DevExpress.XtraGrid.Columns.TileViewColumn()
|
||||
Me.colAktenzustand = New DevExpress.XtraGrid.Columns.TileViewColumn()
|
||||
CType(Me.grvwCarousel, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.GridControlSelection, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.ContextMenu_GridControlSelection.SuspendLayout()
|
||||
@ -87,6 +87,8 @@ Partial Class XtraForm2
|
||||
CType(Me.TileView1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.XtraTabPage2.SuspendLayout()
|
||||
CType(Me.GridControl2, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.VWTEMPQUICKVIEWBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.DD_ECMAdmin, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.TileView2, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.SplitContainer_Main, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SplitContainer_Main.SuspendLayout()
|
||||
@ -94,8 +96,6 @@ Partial Class XtraForm2
|
||||
Me.SplitContainer_Top.SuspendLayout()
|
||||
CType(Me.SplitContainer_Bottom, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SplitContainer_Bottom.SuspendLayout()
|
||||
CType(Me.DD_ECMAdmin, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.VWTEMPQUICKVIEWBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'grvwCarousel
|
||||
@ -173,10 +173,13 @@ Partial Class XtraForm2
|
||||
Me.grvwTiles.GridControl = Me.GridControlSelection
|
||||
Me.grvwTiles.Name = "grvwTiles"
|
||||
TileViewItemElement1.Column = Me.TileViewColumn1
|
||||
TileViewItemElement1.ImageBorderColor = System.Drawing.Color.Empty
|
||||
TileViewItemElement1.Text = "element1"
|
||||
TileViewItemElement2.Column = Me.TileViewColumn2
|
||||
TileViewItemElement2.ImageBorderColor = System.Drawing.Color.Empty
|
||||
TileViewItemElement2.Text = "element2"
|
||||
TileViewItemElement3.Column = Me.TileViewColumn3
|
||||
TileViewItemElement3.ImageBorderColor = System.Drawing.Color.Empty
|
||||
TileViewItemElement3.Text = "element3"
|
||||
Me.grvwTiles.TileTemplate.Add(TileViewItemElement1)
|
||||
Me.grvwTiles.TileTemplate.Add(TileViewItemElement2)
|
||||
@ -220,6 +223,34 @@ Partial Class XtraForm2
|
||||
Me.LayoutViewCard1.ExpandButtonLocation = DevExpress.Utils.GroupElementLocation.AfterText
|
||||
Me.LayoutViewCard1.Name = "LayoutViewCard1"
|
||||
'
|
||||
'colAktenzeichen
|
||||
'
|
||||
Me.colAktenzeichen.FieldName = "Aktenzeichen"
|
||||
Me.colAktenzeichen.Name = "colAktenzeichen"
|
||||
Me.colAktenzeichen.Visible = True
|
||||
Me.colAktenzeichen.VisibleIndex = 1
|
||||
'
|
||||
'TileViewColumn5
|
||||
'
|
||||
Me.TileViewColumn5.FieldName = "Wiedergabe der Marke (Bild)"
|
||||
Me.TileViewColumn5.Name = "TileViewColumn5"
|
||||
Me.TileViewColumn5.Visible = True
|
||||
Me.TileViewColumn5.VisibleIndex = 2
|
||||
'
|
||||
'colTagderEintragungimRegister
|
||||
'
|
||||
Me.colTagderEintragungimRegister.FieldName = "Tag der Eintragung im Register"
|
||||
Me.colTagderEintragungimRegister.Name = "colTagderEintragungimRegister"
|
||||
Me.colTagderEintragungimRegister.Visible = True
|
||||
Me.colTagderEintragungimRegister.VisibleIndex = 3
|
||||
'
|
||||
'colAktenzustand
|
||||
'
|
||||
Me.colAktenzustand.FieldName = "Aktenzustand"
|
||||
Me.colAktenzustand.Name = "colAktenzustand"
|
||||
Me.colAktenzustand.Visible = True
|
||||
Me.colAktenzustand.VisibleIndex = 4
|
||||
'
|
||||
'navPane
|
||||
'
|
||||
Me.navPane.ButtonPadding = New System.Windows.Forms.Padding(12)
|
||||
@ -323,8 +354,7 @@ Partial Class XtraForm2
|
||||
Me.TileView1.Name = "TileView1"
|
||||
Me.TileView1.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False]
|
||||
Me.TileView1.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.[False]
|
||||
Me.TileView1.OptionsFind.AlwaysVisible = True
|
||||
Me.TileView1.OptionsTiles.RowCount = 2
|
||||
Me.TileView1.OptionsTiles.RowCount = 3
|
||||
'
|
||||
'XtraTabPage2
|
||||
'
|
||||
@ -344,6 +374,16 @@ Partial Class XtraForm2
|
||||
Me.GridControl2.TabIndex = 0
|
||||
Me.GridControl2.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.TileView2})
|
||||
'
|
||||
'VWTEMPQUICKVIEWBindingSource
|
||||
'
|
||||
Me.VWTEMPQUICKVIEWBindingSource.DataMember = "VWTEMPQUICKVIEW"
|
||||
Me.VWTEMPQUICKVIEWBindingSource.DataSource = Me.DD_ECMAdmin
|
||||
'
|
||||
'DD_ECMAdmin
|
||||
'
|
||||
Me.DD_ECMAdmin.DataSetName = "DD_ECMAdmin"
|
||||
Me.DD_ECMAdmin.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
|
||||
'
|
||||
'TileView2
|
||||
'
|
||||
Me.TileView2.AppearanceItem.Normal.Font = New System.Drawing.Font("Segoe UI Semibold", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
@ -363,19 +403,23 @@ Partial Class XtraForm2
|
||||
TileViewItemElement4.Appearance.Normal.Options.UseFont = True
|
||||
TileViewItemElement4.Appearance.Normal.Options.UseForeColor = True
|
||||
TileViewItemElement4.Column = Me.colAktenzeichen
|
||||
TileViewItemElement4.ImageBorderColor = System.Drawing.Color.Empty
|
||||
TileViewItemElement4.Text = "colAktenzeichen"
|
||||
TileViewItemElement4.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.Manual
|
||||
TileViewItemElement4.TextLocation = New System.Drawing.Point(120, 0)
|
||||
TileViewItemElement5.Column = Me.TileViewColumn5
|
||||
TileViewItemElement5.ImageAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleLeft
|
||||
TileViewItemElement5.ImageBorder = DevExpress.XtraEditors.TileItemElementImageBorderMode.None
|
||||
TileViewItemElement5.ImageBorderColor = System.Drawing.Color.Empty
|
||||
TileViewItemElement5.ImageScaleMode = DevExpress.XtraEditors.TileItemImageScaleMode.ZoomInside
|
||||
TileViewItemElement5.Text = "TileViewColumn5"
|
||||
TileViewItemElement6.Column = Me.colTagderEintragungimRegister
|
||||
TileViewItemElement6.ImageBorderColor = System.Drawing.Color.Empty
|
||||
TileViewItemElement6.Text = "colTagderEintragungimRegister"
|
||||
TileViewItemElement6.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.Manual
|
||||
TileViewItemElement6.TextLocation = New System.Drawing.Point(120, 20)
|
||||
TileViewItemElement7.Column = Me.colAktenzustand
|
||||
TileViewItemElement7.ImageBorderColor = System.Drawing.Color.Empty
|
||||
TileViewItemElement7.Text = "colAktenzustand"
|
||||
Me.TileView2.TileTemplate.Add(TileViewItemElement4)
|
||||
Me.TileView2.TileTemplate.Add(TileViewItemElement5)
|
||||
@ -383,6 +427,13 @@ Partial Class XtraForm2
|
||||
Me.TileView2.TileTemplate.Add(TileViewItemElement7)
|
||||
Me.TileView2.ViewCaption = "dfsdfsdf"
|
||||
'
|
||||
'TileViewColumn4
|
||||
'
|
||||
Me.TileViewColumn4.FieldName = "Record-ID"
|
||||
Me.TileViewColumn4.Name = "TileViewColumn4"
|
||||
Me.TileViewColumn4.Visible = True
|
||||
Me.TileViewColumn4.VisibleIndex = 0
|
||||
'
|
||||
'SplitContainer_Main
|
||||
'
|
||||
Me.SplitContainer_Main.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
@ -426,16 +477,6 @@ Partial Class XtraForm2
|
||||
Me.SplitContainer_Bottom.TabIndex = 0
|
||||
Me.SplitContainer_Bottom.Text = "SplitContainerControl1"
|
||||
'
|
||||
'DD_ECMAdmin
|
||||
'
|
||||
Me.DD_ECMAdmin.DataSetName = "DD_ECMAdmin"
|
||||
Me.DD_ECMAdmin.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
|
||||
'
|
||||
'VWTEMPQUICKVIEWBindingSource
|
||||
'
|
||||
Me.VWTEMPQUICKVIEWBindingSource.DataMember = "VWTEMPQUICKVIEW"
|
||||
Me.VWTEMPQUICKVIEWBindingSource.DataSource = Me.DD_ECMAdmin
|
||||
'
|
||||
'VWTEMPQUICKVIEWTableAdapter
|
||||
'
|
||||
Me.VWTEMPQUICKVIEWTableAdapter.ClearBeforeFill = True
|
||||
@ -449,41 +490,6 @@ Partial Class XtraForm2
|
||||
Me.TableAdapterManager.TBPMO_FORM_CONSTRUCTORTableAdapter = Nothing
|
||||
Me.TableAdapterManager.UpdateOrder = DD_Record_Organiser.DD_ECMAdminTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete
|
||||
'
|
||||
'TileViewColumn4
|
||||
'
|
||||
Me.TileViewColumn4.FieldName = "Record-ID"
|
||||
Me.TileViewColumn4.Name = "TileViewColumn4"
|
||||
Me.TileViewColumn4.Visible = True
|
||||
Me.TileViewColumn4.VisibleIndex = 0
|
||||
'
|
||||
'colAktenzeichen
|
||||
'
|
||||
Me.colAktenzeichen.FieldName = "Aktenzeichen"
|
||||
Me.colAktenzeichen.Name = "colAktenzeichen"
|
||||
Me.colAktenzeichen.Visible = True
|
||||
Me.colAktenzeichen.VisibleIndex = 1
|
||||
'
|
||||
'TileViewColumn5
|
||||
'
|
||||
Me.TileViewColumn5.FieldName = "Wiedergabe der Marke (Bild)"
|
||||
Me.TileViewColumn5.Name = "TileViewColumn5"
|
||||
Me.TileViewColumn5.Visible = True
|
||||
Me.TileViewColumn5.VisibleIndex = 2
|
||||
'
|
||||
'colTagderEintragungimRegister
|
||||
'
|
||||
Me.colTagderEintragungimRegister.FieldName = "Tag der Eintragung im Register"
|
||||
Me.colTagderEintragungimRegister.Name = "colTagderEintragungimRegister"
|
||||
Me.colTagderEintragungimRegister.Visible = True
|
||||
Me.colTagderEintragungimRegister.VisibleIndex = 3
|
||||
'
|
||||
'colAktenzustand
|
||||
'
|
||||
Me.colAktenzustand.FieldName = "Aktenzustand"
|
||||
Me.colAktenzustand.Name = "colAktenzustand"
|
||||
Me.colAktenzustand.Visible = True
|
||||
Me.colAktenzustand.VisibleIndex = 4
|
||||
'
|
||||
'XtraForm2
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
@ -510,6 +516,8 @@ Partial Class XtraForm2
|
||||
CType(Me.TileView1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.XtraTabPage2.ResumeLayout(False)
|
||||
CType(Me.GridControl2, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.VWTEMPQUICKVIEWBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.DD_ECMAdmin, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.TileView2, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.SplitContainer_Main, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.SplitContainer_Main.ResumeLayout(False)
|
||||
@ -517,8 +525,6 @@ Partial Class XtraForm2
|
||||
Me.SplitContainer_Top.ResumeLayout(False)
|
||||
CType(Me.SplitContainer_Bottom, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.SplitContainer_Bottom.ResumeLayout(False)
|
||||
CType(Me.DD_ECMAdmin, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.VWTEMPQUICKVIEWBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
Me.PerformLayout()
|
||||
|
||||
|
||||
@ -585,35 +585,144 @@ Public Class XtraForm2
|
||||
CreateTile()
|
||||
End Sub
|
||||
Sub CreateTile()
|
||||
|
||||
Dim PictureIndex = 99
|
||||
Dim DT = DirectCast(DT_SELECTION, DataTable)
|
||||
Dim HasImages As Boolean = False
|
||||
Dim ImageIndex As Integer = -1
|
||||
Dim i As Integer = 0
|
||||
For Each Column As DataColumn In DT.Columns
|
||||
If Column.DataType.ToString.Contains("Byte") Then
|
||||
PictureIndex = i
|
||||
End If
|
||||
i += 1
|
||||
Next
|
||||
GridControl1.DataSource = DT
|
||||
'Das BackgroundImage setzen
|
||||
TileView1.ColumnSet.BackgroundImageColumn = TileView1.Columns(PictureIndex) '"Image")
|
||||
TileView1.OptionsTiles.ItemBackgroundImageAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleLeft
|
||||
TileView1.OptionsTiles.ItemBackgroundImageScaleMode = DevExpress.XtraEditors.TileItemImageScaleMode.ZoomInside
|
||||
Dim j As Integer = 0
|
||||
Dim DT As DataTable = DirectCast(DT_SELECTION, DataTable)
|
||||
Dim Elements As New List(Of TileViewItemElement)
|
||||
|
||||
Dim PrimaryFont As New Font("Segoe UI", 11)
|
||||
Dim SecondaryFont As New Font("Segoe UI", 9)
|
||||
|
||||
TileView1.OptionsTiles.Orientation = Orientation.Horizontal
|
||||
'Anpassung der Eigenschaften
|
||||
TileView1.OptionsTiles.Orientation = Orientation.Horizontal
|
||||
TileView1.AppearanceItem.Normal.ForeColor = Color.Maroon
|
||||
|
||||
|
||||
|
||||
TileView1.TileTemplate.Add(New TileViewItemElement With {.Column = TileView1.Columns(3), .TextAlignment = TileItemContentAlignment.TopRight})
|
||||
TileView1.TileTemplate.Add(New TileViewItemElement With {.Column = TileView1.Columns(1), .TextAlignment = TileItemContentAlignment.Manual, .TextLocation = New Point(180, 39)})
|
||||
Try
|
||||
TryCast(TileView1.TileTemplate(0), TileViewItemElement).Column = TileView1.Columns(3) '"Name")
|
||||
Catch ex As Exception
|
||||
' Datatable laden
|
||||
GridControl1.DataSource = DT
|
||||
|
||||
End Try
|
||||
For Each Column As DataColumn In DT.Columns
|
||||
Dim index As Integer = DT.Columns.IndexOf(Column)
|
||||
|
||||
Select Case index
|
||||
Case 0
|
||||
' RecordId
|
||||
Case 1
|
||||
' Index 1 ist das Bild
|
||||
If Column.DataType.ToString.Contains("Byte") Then
|
||||
Dim ImageColumn As New TileViewItemElement()
|
||||
With ImageColumn
|
||||
.Column = TileView1.Columns(1)
|
||||
.ImageSize = New Size(124, 60)
|
||||
.ImageScaleMode = TileItemImageScaleMode.Squeeze
|
||||
.ImageAlignment = TileItemContentAlignment.Manual
|
||||
.ImageLocation = New Point(0, 0)
|
||||
End With
|
||||
Elements.Add(ImageColumn)
|
||||
End If
|
||||
Case 2
|
||||
' Index 2 ist die Headline
|
||||
Dim HeadlineColumn As New TileViewItemElement()
|
||||
With HeadlineColumn
|
||||
.Column = TileView1.Columns(2)
|
||||
.TextAlignment = TileItemContentAlignment.TopRight
|
||||
.Appearance.Normal.Font = PrimaryFont
|
||||
.Appearance.Normal.ForeColor = SystemColors.MenuHighlight
|
||||
.Column.OptionsFilter.AllowFilter = True
|
||||
End With
|
||||
Elements.Add(HeadlineColumn)
|
||||
Case 3 - 5
|
||||
' Indexe 3 - 5 sind normale Textzeilen
|
||||
Dim TextColumn As New TileViewItemElement()
|
||||
With TextColumn
|
||||
.Column = TileView1.Columns(i)
|
||||
.TextAlignment = TileItemContentAlignment.MiddleRight
|
||||
.Column.OptionsFilter.AllowFilter = True
|
||||
'.AnchorElement = Elements.Last()
|
||||
'.AnchorAlignment = AnchorAlignment.Bottom
|
||||
End With
|
||||
Elements.Add(TextColumn)
|
||||
End Select
|
||||
|
||||
|
||||
Next
|
||||
|
||||
For Each El As TileViewItemElement In Elements
|
||||
TileView1.TileTemplate.Add(El)
|
||||
Next
|
||||
|
||||
'Dim PictureIndex As Integer = -1
|
||||
'Dim DT = DirectCast(DT_SELECTION, DataTable)
|
||||
'Dim i As Integer = 0
|
||||
'For Each Column As DataColumn In DT.Columns
|
||||
' If Column.DataType.ToString.Contains("Byte") Then
|
||||
' PictureIndex = i
|
||||
' End If
|
||||
' i += 1
|
||||
'Next
|
||||
|
||||
'If PictureIndex <> -1 Then
|
||||
' HasImages = True
|
||||
'End If
|
||||
|
||||
'GridControl1.DataSource = DT
|
||||
'Das BackgroundImage setzen
|
||||
'If PictureIndex <> -1 Then
|
||||
' TileView1.ColumnSet.BackgroundImageColumn = TileView1.Columns(PictureIndex) '"Image")
|
||||
' TileView1.OptionsTiles.ItemBackgroundImageAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleLeft
|
||||
' TileView1.OptionsTiles.ItemBackgroundImageScaleMode = DevExpress.XtraEditors.TileItemImageScaleMode.ZoomInside
|
||||
'End If
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
'Dim ImageColumn As New TileViewItemElement()
|
||||
'With ImageColumn
|
||||
' .Column = TileView1.Columns(2)
|
||||
' .ImageSize = New Size(124, 60)
|
||||
' .ImageAlignment = TileItemContentAlignment.MiddleLeft
|
||||
' .ImageScaleMode = TileItemImageScaleMode.ZoomOutside
|
||||
' .ImageBorder = TileItemElementImageBorderMode.None
|
||||
' .MaxWidth = 124
|
||||
'End With
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
'Dim PrimaryColumn As New TileViewItemElement()
|
||||
'With PrimaryColumn
|
||||
' .Column = TileView1.Columns(1)
|
||||
' .TextAlignment = TileItemContentAlignment.TopRight
|
||||
' .Appearance.Normal.ForeColor = SystemColors.MenuHighlight
|
||||
' .Appearance.Normal.Font = PrimaryFont
|
||||
'End With
|
||||
|
||||
'Dim SecondaryColumn As New TileViewItemElement()
|
||||
'With SecondaryColumn
|
||||
' .Column = TileView1.Columns(3)
|
||||
' '.TextAlignment = TileItemContentAlignment.MiddleRight
|
||||
' .Appearance.Normal.ForeColor = Color.Black
|
||||
' .Appearance.Normal.Font = SecondaryFont
|
||||
' .TextAlignment = TileItemContentAlignment.MiddleRight
|
||||
'End With
|
||||
|
||||
|
||||
|
||||
|
||||
'TileView1.TileTemplate.Add(PrimaryColumn)
|
||||
'TileView1.TileTemplate.Add(ImageColumn)
|
||||
'TileView1.TileTemplate.Add(SecondaryColumn)
|
||||
|
||||
'TileView1.TileTemplate.Add(New TileViewItemElement With {.Column = TileView1.Columns(3), .TextAlignment = TileItemContentAlignment.MiddleCenter})
|
||||
'TileView1.TileTemplate.Add(New TileViewItemElement With {.Column = TileView1.Columns(1), .TextAlignment = TileItemContentAlignment.Manual, .TextLocation = New Point(180, 39)})
|
||||
'Try
|
||||
' TryCast(TileView1.TileTemplate(0), TileViewItemElement).Column = TileView1.Columns(3) '"Name")
|
||||
'Catch ex As Exception
|
||||
|
||||
'End Try
|
||||
'TileView1.TileTemplate.Add(New TileViewItemElement With {.Column = TileView1.Columns("Date"), .TextAlignment = TileItemContentAlignment.Manual, .TextLocation = New Point(150, 100)})
|
||||
End Sub
|
||||
Private Function GET_GROUP_RECORD(FORM_ID As Integer)
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user