jj 16.03 add columntitle for dgv

This commit is contained in:
JenneJ
2016-03-16 13:53:28 +01:00
parent c6a1b7904f
commit 94a6ac0127
3 changed files with 6 additions and 3 deletions

View File

@@ -1127,7 +1127,8 @@ Public Class ClassControlBuilder
_new As Boolean,
read_only As Boolean,
required As Boolean,
Optional parent As GroupBox = Nothing,
columnTitle As String,
Optional parent As GroupBox = Nothing,
Optional _designMode As Boolean = False)
Dim control As New DataGridView
@@ -1149,7 +1150,7 @@ Public Class ClassControlBuilder
control.Parent = _master_panel
control.ReadOnly = read_only
column.HeaderText = "Data"
column.HeaderText = columnTitle
column.Name = "column1"
control.Columns.Add(column)

View File

@@ -148,6 +148,7 @@ Public Class ClassControlCommandsUI
False,
dr.Item("CONTROL_READ_ONLY"),
dr.Item("CONTROL_REQUIRED"),
dr.Item("CONTROL_COL_NAME"),
parent)
Case 10 ' Checkbox
Dim Checked As Boolean = False

View File

@@ -129,7 +129,7 @@
' Aktuelles Control in die Datenbank speichern
ClassControlCommands.InsertControl(CtrlBuilder.CurrentControl)
Case "dgv"
CtrlBuilder.AddDataGridView(0, "dgv" & random, 0, 0, 0, 0, True, False, False, Parent)
CtrlBuilder.AddDataGridView(0, "dgv" & random, 0, 0, 0, 0, True, False, False, "dgv" & random, Parent)
' Aktuelles Control in die Datenbank speichern
ClassControlCommands.InsertControl(CtrlBuilder.CurrentControl)
Case "chk"
@@ -407,6 +407,7 @@
False,
dr.Item("CONTROL_READ_ONLY"),
dr.Item("CONTROL_REQUIRED"),
dr.Item("CONTROL_COL_NAME"),
parent,
True)
Case 10 ' Checkbox