显示空文本框以接受 windows 应用程序中的值
Show empty textbox to accept values in windows application
想要在 VB 中的 windows 应用程序的 DataGridView 的每一行中添加空文本框,以接受输入值以及使用集合的数据绑定。
Private Sub CreateTableStyle()
With grdViewer
Dim colDesc As New DataGridViewTextBoxColumn
With colDesc
.DataPropertyName = "Description"
.HeaderText = "Description"
'.Width = 350
.ReadOnly = True
.HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
.DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopLeft
.DefaultCellStyle.WrapMode = DataGridViewTriState.True
.Name = "colDescription"
.Resizable = DataGridViewTriState.True
.AutoSizeMode = DataGridViewAutoSizeColumnMode.None
End With
.Columns.Add(colDesc)
Dim colAssigned As New DataGridViewCheckBoxColumn
With colAssigned
.DataPropertyName = "Assigned"
.HeaderText = "Assigned"
.HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
'.Width = 5
.ReadOnly = True
.DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
.Name = "colAssigned"
.Resizable = DataGridViewTriState.True
.AutoSizeMode = DataGridViewAutoSizeColumnMode.None
End With
.Columns.Add(colAssigned)
Dim emptyTextColumn As New DataGridViewCheckBoxColumn
With emptyTextColumn
.HeaderText = "Enter Description"
.HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
'.Width = 5
.ReadOnly = False
.DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
.Name = "emptyTextColumn"
.Resizable = DataGridViewTriState.True
.AutoSizeMode = DataGridViewAutoSizeColumnMode.None
End With
.Columns.Add(emptyTextColumn)
.DataSource = collectionPM
End With
End Sub
正在将数据从数据库绑定到此 DataGridView,并且还想在 DataGridView 的每一行中添加文本框作为单独的列以接受用户对每一行的输入。
您只需将另一列添加到您的代码中,而不设置其 DataPropertyName
属性。在设置 DataSource
之前或之后都没有关系。就我个人而言,我建议您删除该代码并在设计器中创建列,除非有特定原因不能这样做。
想要在 VB 中的 windows 应用程序的 DataGridView 的每一行中添加空文本框,以接受输入值以及使用集合的数据绑定。
Private Sub CreateTableStyle()
With grdViewer
Dim colDesc As New DataGridViewTextBoxColumn
With colDesc
.DataPropertyName = "Description"
.HeaderText = "Description"
'.Width = 350
.ReadOnly = True
.HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
.DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopLeft
.DefaultCellStyle.WrapMode = DataGridViewTriState.True
.Name = "colDescription"
.Resizable = DataGridViewTriState.True
.AutoSizeMode = DataGridViewAutoSizeColumnMode.None
End With
.Columns.Add(colDesc)
Dim colAssigned As New DataGridViewCheckBoxColumn
With colAssigned
.DataPropertyName = "Assigned"
.HeaderText = "Assigned"
.HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
'.Width = 5
.ReadOnly = True
.DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
.Name = "colAssigned"
.Resizable = DataGridViewTriState.True
.AutoSizeMode = DataGridViewAutoSizeColumnMode.None
End With
.Columns.Add(colAssigned)
Dim emptyTextColumn As New DataGridViewCheckBoxColumn
With emptyTextColumn
.HeaderText = "Enter Description"
.HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
'.Width = 5
.ReadOnly = False
.DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
.Name = "emptyTextColumn"
.Resizable = DataGridViewTriState.True
.AutoSizeMode = DataGridViewAutoSizeColumnMode.None
End With
.Columns.Add(emptyTextColumn)
.DataSource = collectionPM
End With
End Sub
正在将数据从数据库绑定到此 DataGridView,并且还想在 DataGridView 的每一行中添加文本框作为单独的列以接受用户对每一行的输入。
您只需将另一列添加到您的代码中,而不设置其 DataPropertyName
属性。在设置 DataSource
之前或之后都没有关系。就我个人而言,我建议您删除该代码并在设计器中创建列,除非有特定原因不能这样做。