DRAG E DROP DE IMAGENS

USUARIO.EXCLUIDOS 08/07/2005 22:55:19
#93063
Como fazer drag e drop de imagens para dentro de um controle dentro do form??? tipo arrastar uma imagem para dentro de um Image aí ele carrega essa imagem dentro do Image..!!!! huhhu coisa óbivia....
GABRIEL.LOGAN 09/07/2005 19:16:01
#93159
Cara pq vc não tenta fazer algo do tipo:

If Image1.Left = imge2.left or Image1.Left = imge2.left + 10 or Image1.Left = imge2.left - 10 then
If Image1.Top = imge2.Top or Image1.Top = imge2.Top + 10 or Image1.Top= imge2.Top - 10 then
Image1.Picture = Image2.Picture
else
else
end if
End If


Ou seja se a Imagem 1 estiver + ou - em cima da Image 2 ai ocorre que a Image 1 vai ser Igual a imagem 2. Ah, o código pra fazer Drag and Drop de Objeto (Movimentar objetos no Form tem aqui no VBMANIA, me lembro de ter pego aqui, é so procurar)
USUARIO.EXCLUIDOS 09/07/2005 19:25:22
#93161
naum... é tipo.. eu vou arrastar um arquivo pro form.... um arquivo de imagem... aí ele vai carregar esse arquivo no image.... é como vc pegar um arquivo txt e arrastar dentro do notepad....!!
USUARIO.EXCLUIDOS 10/07/2005 05:40:38
#93192 Resposta escolhida
Coloque a propriedade OLEDropMode do seu Image1 = Manual, e adicione o seguinte código:
Private Sub Image1_OLEDragOver(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single, State As Integer)
If Not Data.GetFormat(vbCFFiles) Then
Effect = vbDropEffectNone
End If
End Sub
Private Sub Image1_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim strFilename As String
strFilename = Data.Files(1)
Image1.Picture = LoadPicture(strFilename)
End Sub

Assim, é só arrastar a imagem para dentro do Image, que ela é logo exibida.
Talvez seja melhor, também colocar a propriedade Stretch = True, para que as imagens maiores não saiam de dentro do Form.
USUARIO.EXCLUIDOS 10/07/2005 15:20:45
#93202
putz... funcionou.... eu num lembrava da sintaxe do LoadPicture... pq eu peguei um projeto aki... mas num tava lembrando q era objeto.picture = loadpicture !!! kkkkkkkkkkk

vlw...
Tópico encerrado , respostas não são mais permitidas
Voltar