如何使DATATABLE中动态插入图片,并在DATAGIRDVIEW中显示

来源:互联网 发布:手机生日提醒软件 编辑:程序博客网 时间:2024/05/23 17:13
    Private Function labelupdate() As Boolean
        
Try


            
Dim i As Int32
            
Dim aa As String
            aa 
= ""

            DataGridView2.AutoGenerateColumns 
= True
            
Dim aaa1, aaa2 As Image
            aaa1 
= Global.KITATAMA.My.Resources.Resources.right
            aaa2 
= Global.KITATAMA.My.Resources.Resources.left

            
Dim ms1, ms2 As New IO.MemoryStream
            aaa1.Save(ms1, System.Drawing.Imaging.ImageFormat.Gif)
            aaa2.Save(ms2, System.Drawing.Imaging.ImageFormat.Gif)
            
Dim buf1, buf2 As System.Byte()
             
''byte[] buf = ms.ToArray(); 
             ''            ms1.WriteByte(buf1)

            buf1 
= ms1.ToArray
            buf2 
= ms2.ToArray


            
'MsgBox(buf1.ToString)

             
''            ms2.WriteByte(buf2)

            
Dim i As Integer

            
'public_dsListData.Tables(0).Columns.Add("image123", GetType(System.Byte()))

            
Dim newRow As DataRow

            
Dim datatable2 As New DataTable
            datatable2.Columns.Add(
"image123"GetType(System.Byte()))

            
For i = 1 To public_dsListData.Tables(0).Rows.Count - 1
                newRow 
= datatable2.NewRow
                datatable2.NewRow()

                ms1.Flush()
                
If i Mod 2 = 0 Then
                    newRow(
"image123"= ms1.GetBuffer()
                
Else
                    newRow(
"image123"= ms2.GetBuffer()
                
End If
                datatable2.Rows.Add(newRow)
            
Next

            
With DataGridView2
                .AutoGenerateColumns 
= False
                .DataSource 
= public_dsListData.Tables(0)
            
End With

 


            
Return True
        
Catch ex As Exception
            
Return False
        
End Try
    
End Function
 方法是新建立一个DATATABLE,然后一列列插入图片数据流,并将原数据也COPY过去。
原创粉丝点击