16,554
社区成员
发帖
与我相关
我的任务
分享
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
Dim data As New DataTable
data.Columns.Add("A")
data.Columns.Add("B")
data.Columns.Add("Status", GetType(Boolean))
For i As Integer = 1 To 10
data.Rows.Add("a" + CStr(i), "b" + CStr(i), i Mod 2 = 1)
Next
DataGridView1.Columns.Add(New DataGridViewImageColumn)
DataGridView1.DataSource = data
For Each row As DataGridViewRow In DataGridView1.Rows
If row.Cells("Status").Value = True Then
Dim imageCell As DataGridViewImageCell = row.Cells(0)
imageCell.ImageLayout = DataGridViewImageCellLayout.Zoom
imageCell.Value = My.Resources.Image1
End If
Next
End Sub
With dgvDataImport
.AutoGenerateColumns = True
.DataSource = m_dtSourceData
End With