or
Dim
iScroll
As
Integer
= 0
'get scrollbar width if needed
If
Me
.lvwLoadForms.VerticalScroll.Visible =
True
Then
iScroll = SystemInformation.VerticalScrollBarWidth
'resize items and group widths
With
Me
.RadListView1
.GroupItemSize =
New
Size(.Width - iScroll, .GroupItemSize.Height)
.ItemSize =
New
Size(.Width - .GroupIndent - iScroll, .ItemSize.Height)
End
With
'Loading image from file ( path in database )
Dim
img
As
Image = Image.FromFile(Reader(
"Imagem"
))
'Attempt 1
r.Cells(2).Value = img
'Attempt 2
'Writing to a memory stream
Dim
ms
As
New
MemoryStream
img.Save(ms, System.Drawing.Imaging.ImageFormat.Jpeg)
'passing the bytes to the value field
r.Cells(2).Value = ms.ToArray
'Attempt 3
'Simply loading an image from resources to the value field
r.Cells(2).Value = My.Resources.icon_fantasma_05