Visual Basic - Agarrar y soltar un arhivo

Life is soft - evento anual de software empresarial
 
Vista:

Agarrar y soltar un arhivo

Publicado por Poncho (1 intervención) el 22/11/2006 16:27:47
Como puedo hagarrar un arhivo que me aparece en un FileListBox y ponerlo en una TextBox(el path).


Saludos
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Agarrar y soltar un arhivo

Publicado por poncho (1 intervención) el 22/11/2006 18:59:00
ya lo hice, aqui les dejo el codigo por si les puede servir:

""Rutina para utilizar el drag en un FilListBox y pasarlo a un TEXTBOX
Private Sub FLbox1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
ArchivoDrag = FLbox1.FileName
""Comenzamos la operación de arrastre ole con el método OleDrag cuando presionamos _un elemento
FLbox1.OLEDrag
""Variable de mi programa
BDDRuta = "" & DirRuta & " " & ArchivoDrag & ""

End Sub
---------------------------------

Private Sub TxBox1_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As _
Integer, X As Single, Y As Single)
'Copiamos el item del FLBox1 en el caption del TxBox1 al hacer el Drag
TxBox1.Text = ArchivoDrag
Otra.Text = BDDRuta

End Sub

Saludos.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Agarrar y soltar un arhivo

Publicado por Y yo mas todavia (4 intervenciones) el 22/11/2006 23:19:49
y eso "hagarra" y suelta un "arhivo"
¿Dónde vives pepón?
como desia mi abuelo,... si es que tiene que haber de todo!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar