使DATATABLE中动态插入图片并在DATAGIRDVIEW显示的步骤
PrivateFunctionlabelupdate()AsBoolean
TryDimiAsInt32DimaaAsStringaa=""DataGridView2.AutoGenerateColumns=TrueDimaaa1,aaa2AsImageaaa1=Global.KITATAMA.My.Resources.Resources.rightaaa2=Global.KITATAMA.My.Resources.Resources.leftDimms1,ms2AsNewIO.MemoryStreamaaa1.Save(ms1,System.Drawing.Imaging.ImageFormat.Gif)aaa2.Save(ms2,System.Drawing.Imaging.ImageFormat.Gif)Dimbuf1,buf2AsSystem.Byte()''byte[]buf=ms.ToArray();''ms1.WriteByte(buf1)buf1=ms1.ToArraybuf2=ms2.ToArray'MsgBox(buf1.ToString)''ms2.WriteByte(buf2)DimiAsInteger'public_dsListData.Tables(0).Columns.Add("image123",GetType(System.Byte()))DimnewRowAsDataRowDimdatatable2AsNewDataTabledatatable2.Columns.Add("image123",GetType(System.Byte()))Fori=1Topublic_dsListData.Tables(0).Rows.Count-1newRow=datatable2.NewRowdatatable2.NewRow()ms1.Flush()IfiMod2=0ThennewRow("image123")=ms1.GetBuffer()ElsenewRow("image123")=ms2.GetBuffer()EndIfdatatable2.Rows.Add(newRow)NextWithDataGridView2.AutoGenerateColumns=False.DataSource=public_dsListData.Tables(0)EndWithReturnTrueCatchexAsExceptionReturnFalseEndTry
EndFunction本文地址：http://www.45fan.com/dnjc/67400.html