This commit is contained in:
Digital Data - Marlon Schreiber
2017-10-05 14:09:22 +02:00

View File

@@ -683,17 +683,6 @@ Public Class frmConstructorDesigner
Load_QuickDisplay()
End If
End Sub
Private Function CreateTable(ByVal rowCount As Integer) As DataTable
Dim tbl As New DataTable()
tbl.Columns.Add("Name", GetType(String))
tbl.Columns.Add("ID", GetType(Integer))
tbl.Columns.Add("Image", GetType(Image))
tbl.Columns.Add("Date", GetType(Date))
For i As Integer = 0 To rowCount - 1
tbl.Rows.Add(New Object() {String.Format("Name{0}", i), i, ImageCollection1.Images(i Mod 4), Date.Now.AddDays(i - 3)})
Next i
Return tbl
End Function
Private Sub LOAD_DIRECTCheckBox_CheckedChanged(sender As Object, e As EventArgs) Handles LOAD_DIRECTCheckBox.CheckedChanged