Hi,

I try to make a DragDrop to a Picturebox, to drag images from IE.
But i'm stuck here :
If (e.Data.GetDataPresent("DeviceIndependentBitmap")) Then
PictureBox1.Image =
e.Data.GetData("DeviceIndependentBitmap")
End If

The problem is, that a cannot make this because
e.Data.GetData("DeviceIndependentBitmap") is a memorystream, what can i do
to make a image with this ?

I saw some example on the NET, but they were all in C#.

Thanks in advance

Use the System.Drawing.Bitmap class. It has a constructor that accepts a stream object.

--
Regards,
Anand M
VB.NET MVP

http://www.dotnetindia.com


"LoSTMaN" wrote:

> Hi,
>
> I try to make a DragDrop to a Picturebox, to drag images from IE.
> But i'm stuck here :
> If (e.Data.GetDataPresent("DeviceIndependentBitmap")) Then
> PictureBox1.Image =
> e.Data.GetData("DeviceIndependentBitmap")
> End If
>
> The problem is, that a cannot make this because
> e.Data.GetData("DeviceIndependentBitmap") is a memorystream, what can i do
> to make a image with this ?
>
> I saw some example on the NET, but they were all in C#.
>
> Thanks in advance
>
>
>

Hi Lostman,

It is very simple
dim abyt() as byte 'as the sample bytearray
Dim ms As New IO.MemoryStream(abyt)
Me.PictureBox1.Image = Image.FromStream(ms) ' or any result other image
object

I am intrested in your drag code, may I see it, when not in this newsgroup
than by email.
My email adres is easy to translate I think.

Cor

* "LoSTMaN" <(E-Mail Removed)> scripsit:
> I try to make a DragDrop to a Picturebox, to drag images from IE.
> But i'm stuck here :
> If (e.Data.GetDataPresent("DeviceIndependentBitmap")) Then
> PictureBox1.Image =
> e.Data.GetData("DeviceIndependentBitmap")
> End If
>
> The problem is, that a cannot make this because
> e.Data.GetData("DeviceIndependentBitmap") is a memorystream, what can i do
> to make a image with this ?

Untested (!):

\\\
Me.Picture1.Image = Image.FromStream(TheMemoryStream)
///

--
Herfried K. Wagner [MVP]
<URL:http://dotnet.mvps.org/>

Hi Herfried,

Those nice mountains in .........................echo

:-)

Cor

* "Cor Ligthert" <(E-Mail Removed)> scripsit:
> Those nice mountains in .........................echo

No, if there is no byte array...

--
Herfried K. Wagner [MVP]
<URL:http://dotnet.mvps.org/>

See the last row in my message, exactly the same

* "Cor Ligthert" <(E-Mail Removed)> scripsit:
> See the last row in my message, exactly the same

....

--
Herfried K. Wagner [MVP]
<URL:http://dotnet.mvps.org/>

Damn, i'm still stuck at the same place.. ;o)
Everytme i play with memorystream i finish with an error.
So i'm back to the begining, maybe i will go back to Cobol instead of VB
;o)))

Private Overloads Sub PictureBox1_dragdrop(ByVal sender As Object, ByVal e
As System.Windows.Forms.DragEventArgs) Handles PictureBox1.DragDrop
Dim item As Object = CType(e.Data.GetData("DeviceIndependentBitmap"),
System.Object)
If (e.Data.GetDataPresent("DeviceIndependentBitmap")) Then
PictureBox1.Image = e.Data.GetData(DataFormats.Dib)
End If
End Sub


"Cor Ligthert" <(E-Mail Removed)> a écrit dans le message de
news:Oneh%23$(E-Mail Removed)...
> Hi Lostman,
>
> It is very simple
> dim abyt() as byte 'as the sample bytearray
> Dim ms As New IO.MemoryStream(abyt)
> Me.PictureBox1.Image = Image.FromStream(ms) ' or any result other image
> object
>
> I am intrested in your drag code, may I see it, when not in this newsgroup
> than by email.
> My email adres is easy to translate I think.
>
> Cor
>
>
>
>

* "LoSTMaN" <(E-Mail Removed)> scripsit:
> Damn, i'm still stuck at the same place.. ;o)
> Everytme i play with memorystream i finish with an error.

What error?

--
Herfried K. Wagner [MVP]
<URL:http://dotnet.mvps.org/>