why isn't this code working?

[Blaster]

Private Sub Picture1_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
If Data.GetFormat(vbCFBitmap) Then Picture1.Picture = LoadPicture(Data.Files(1))
End Sub

now it should display the file in Picture1.Picture but it doesn't what is up??

[MartinLiss]

Is Data.GetFormat(vbCFBitmap) True?

[MartinLiss]

BTW I had never seen the GetFormat method before and I just looked in up in MSDN. It seems to only apply to the Clipboard object.

[Blaster]

not working maybe i'm doing it wrong

Private Sub Picture1_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
Is Data.GetFormat(vbcfbitmap) True
Picture1.Picture = LoadPicture(Data.Files(1))
End Sub

I get syntax error

[CreoN]

The reason why you get a syntax-error is because you can't write

Is Data.GetFormat(vbcfbitmap) True

There are no such thing as "Is" in Visual Basic...
And as MartinLiss wrote, the GetFormat-method only applies to the Clipboard-object.

[Blaster]

how do I fix my problem then?

[Tygur]

Are you trying to drag an image or an image file?
Also, make sure you set the OLEDropMode property for the picturebox to Manual or Automatic.

GetFormat does not only work with the Clipboard Object. It also works for the DataObject object.

[Blaster]

yeah it is set on automatic and I am trying to drag an image file

[Tygur]

Set it to manual and put this code in (Notice how similar to your code this is. You only missed one thing ):

Private Sub Picture1_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
If Data.GetFormat(vbCFFiles) Then
    'Ignore errors because a bad file can be dragged.
    On Error Resume Next
    Picture1.Picture = LoadPicture(Data.Files(1))
End If
End Sub

[Blaster]

omg! your soo elite!!

[shragel]

There are no such thing as "Is" in Visual Basic...

There Sure IS.. Try
If Data1 IS Nothing Then Exit Sub

[Kaverin]

"Is" is a keyword in VB, but it's not used in that manner.

If TypeOf(objBlah) Is TextBox Then MsgBox "It's a textbox"

.GetFormat and .GetData apply to both the Clipboard and DataObject. I've never used this OLEDrag??? stuff before,
but this may be the way to get it. This method works for pasting bitmaps from the clipboard, but I don't know how to
actually test out the OLE event.

'Inside your OLEDragDrop event...
If Data.GetFormat(vbCFBitmap) Then picOut.Picture = Data.GetData(vbCFBitmap)

[Kaverin]

Well I see someone else said it already. I've been watching tv and stopped writing the post