Como faço pra arrastar e soltar no vb6?

[JoeFather 0]

Olá!

 

Dá pra fazer nos dois Vbs, 5 e 6?

 

Me ajudem no código ou dêem uma idéia please!

 

Um grande abraço!

[scorpio 7]

voce quer arrastar um arquivo que ta no seu pc pra aplicação VB?

 

ou quer mover os componentes dentro do form ?

 

se for a primeira ta aki

só usa uma listbox chamada lstFiles

'This demonstrates the basic in Dragging a file from the explorer and
'dropping it into a VB program.
'-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
'(c) Thomas Jung 2000

Private Sub Form_Resize()
	'Always view lstFiles in the whole form
	lstFiles.Move 0, 0, ScaleWidth, ScaleHeight
End Sub

Private Sub lstFiles_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
	
	'Count number of files
	Dim numFiles As Integer
	numFiles = Data.Files.Count
	
	'Add all dropped files into the list
	Dim i As Integer
	For i = 1 To numFiles
		'File or directory?
		If (GetAttr(Data.Files(i)) And vbDirectory) = vbDirectory Then
			lstFiles.AddItem "Directory: " & Data.Files(i)
		Else
			lstFiles.AddItem "File.....: " & Data.Files(i)
		End If
	Next i

End Sub

Private Sub lstFiles_OLEDragOver(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single, State As Integer)
	'Only let files get dropped into the form
	If Data.GetFormat(vbCFFiles) Then
		Effect = vbDropEffectCopy
	Else
		Effect = vbDropEffectNone
	End If
End Sub

código retirado de: http://vbasic.astalaweb.com/Drag%20&%2...amp;%20Drop.asp

 

 

flw

[Claudio Neto 3]

E se for a segunda é mais simples ainda:

 

(Vamos super que o quer mover é um label).

 

Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

 

If Button = 1 Then

Label1.Top = Label1.Top + Y / 2

Label1.Left = Label1.Left + X / 2

End If

 

End Sub

[JoeFather 0]

Puts, esqueci de dizer isto! :(

 

Na verdade era para um amigo, mas eu tb tinha curiosidade de saber. Ele queria clicar numa imagem, arrastá-la e soltá-la no Form! Tem jeito tb?

 

Um grande abraço!

[Claudio Neto 3]

Puts, esqueci de dizer isto! :(

 

Na verdade era para um amigo, mas eu tb tinha curiosidade de saber. Ele queria clicar numa imagem, arrastá-la e soltá-la no Form! Tem jeito tb?

 

Um grande abraço!

Dei exemplo para um label, mas pode usar o mesmo para um image.

[JoeFather 0]

Puts, esqueci de dizer isto! :(

 

Na verdade era para um amigo, mas eu tb tinha curiosidade de saber. Ele queria clicar numa imagem, arrastá-la e soltá-la no Form! Tem jeito tb?

 

Um grande abraço!

Dei exemplo para um label, mas pode usar o mesmo para um image.

 

Eu sabia, eu sabia! :)

 

Valew caras!

[Claudio Neto 3]

Puts, esqueci de dizer isto! :(

 

Na verdade era para um amigo, mas eu tb tinha curiosidade de saber. Ele queria clicar numa imagem, arrastá-la e soltá-la no Form! Tem jeito tb?

 

Um grande abraço!

Dei exemplo para um label, mas pode usar o mesmo para um image.

 

Eu sabia, eu sabia! :)

 

Valew caras!

 

 

Oh claro.. você queria me testar né.. sei como é isso... hehehe... falou...