Konu: Surukle birak ornegi
Formun uzerindeki isaretli alan Image. Onun uzerine windows explorerdan herhangi bir resimi surukleyip birakabilirsiniz. Uyari: Kod windows expleorer'dan suruklenip birakilan dosyalarin ismini nasil alacaginizi gosteriyor ama burada onun gerecekten resim dosyasi olup olmadiginin kontrolu yok. Text dosyasi surukleyip sonra calismadi diye hayiflanmayin:)
Public oForm
oForm = Createobject("sampleForm")
oForm.Show()
Define Class sampleForm As Form
Height=220
Width=220
Add Object myImage As Image With ;
Left = 10,Top=10,Height=200,Width=200,OLEDropMode=1,Stretch=1
Procedure myImage.OLEDragOver
Lparameters oDataObject, nEffect, nButton, nShift, nXCoord, nYCoord, nState
If m.nState = 0 And oDataObject.GetFormat( 15 )
This.OLEDropEffects = 5
This.OLEDropHasData = 1
Else
This.OLEDropEffects = 0
This.OLEDropHasData = 0
Endif
Endproc
Procedure myImage.OLEDragDrop
Lparameters oDataObject, nEffect, nButton, nShift, nXCoord, nYCoord
If oDataObject.GetFormat( 15 )
Local Array laData[1]
oDataObject.GetData(15,@laData)
This.Picture = laData[1]
Endif
Endproc
Enddefine