1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
| Dim dsCimetiere As New DataSet
Dim imageMS As New MemoryStream()
Dim imageByteArray As Byte() = Nothing
Dim myImage As Image
Dim encoding As New System.Text.UTF8Encoding()
imageByteArray = encoding.GetBytes(DataSet.Tables("A").Columns("Image"))
If Not imageByteArray Is Nothing Then
imageMemoryStream = New MemoryStream(imageByteArray, 0, imageByteArray.Length)
'Convert byte to image
imageMemoryStream.Write(imageByteArray, 0, imageByteArray.Length)
myImage = Image.FromStream(imageMemoryStream, True)
Clipboard.SetImage(myImage)
End If
Next |
Partager