 Autor
|
Tema: Drag & Drop de un texto (Leído 3,486 veces)
|
|
aaronduran2
|
Hola. Quisiera saber como hacer drag & drop de un texto, de forma que tenemos un TextBox y queremos pasar su contenido a otro. Lo he intentado con las funciones que incluyen los TextBox, pero no soy capaz.
Gracias de antemano.
|
|
|
|
|
En línea
|
|
|
|
|
seba123neo
|
Hola,pues se me ocurre asi,puede haber otras formas... Option Explicit Private Sub Form_Load() Text1.OLEDragMode = 1 Text2.OLEDropMode = 1 End Sub Private Sub Text1_DragOver(Source As Control, X As Single, Y As Single, State As Integer) Text1.OLEDrag End Sub Private Sub Text2_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single) Text2.Text = Data.GetData(1) End Sub
saludos.
|
|
|
|
|
En línea
|
|
|
|
|
aaronduran2
|
Hola, seba123neo. Gracias por la ayuda. Pero no me funciona. Cuando arrastro lo que pone en el TextBox y lo pongo sobre otro, se ve el cursor de arrastrar, pero lo suelo y no hace nada. ¿Tendrá algo que ver que estén bloqueados para impedir su modificación?
Saludos.
|
|
|
|
|
En línea
|
|
|
|
Angeldj27
 Desconectado
Mensajes: 199
Ahorra Agua... Beba Cerveza
|
Chekeate este si funciona Private Sub Text1_DragDrop(Source As Control, X As Single, Y As Single)
Text1.Text = Text2.Text
End Sub
Tienes que poner el DragMode del text2 en 1 Talves te funcione |
|
|
|
|
En línea
|
"Que vamos a hacer Mañana?..... Lo mismo que hacemos todos los dias Pinky tratar de Conquistar el Mundoooo!!!!!
|
|
|
|
aaronduran2
|
Gracias, pero lo que pasa es que tengo 6 TextBox y quiero que se pueda elegir el que se va a pasar.
Saludos
|
|
|
|
|
En línea
|
|
|
|
|
seba123neo
|
proba el codigo que te puse yo en un proyecto nuevo y vas a ver que funciona...despues fijate en el tuyo como armarlo...tenes que seleccionar el texto que queres arrastrar para que funcione...
|
|
|
|
|
En línea
|
|
|
|
|
aaronduran2
|
Lo probé en un proyecto nuevo y si funciona, pero en el mío no. A ver, este es el código que tengo yo: Private Sub Form_Load() txtResultado1.OLEDragMode = 1 txtResultado2.OLEDragMode = 1 txtResultado3.OLEDragMode = 1 txtResultado4.OLEDragMode = 1 txtResultado5.OLEDragMode = 1 txtResultado6.OLEDragMode = 1 txtFuerza.OLEDropMode = 1 txtDestreza.OLEDropMode = 1 txtConstitucion.OLEDropMode = 1 txtInteligencia.OLEDropMode = 1 txtSabiduria.OLEDropMode = 1 txtCarisma.OLEDropMode = 1 End Sub Private Sub txtCarisma_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single) txtCarisma.Text = Data.GetData(1) End Sub Private Sub txtConstitucion_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single) txtConstitucion.Text = Data.GetData(1) End Sub Private Sub txtDestreza_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single) txtDestreza.Text = Data.GetData(1) End Sub Private Sub txtFuerza_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single) txtFuerza.Text = Data.GetData(1) End Sub Private Sub txtInteligencia_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single) txtInteligencia.Text = Data.GetData(1) End Sub Private Sub txtSabiduria_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single) txtSabiduria.Text = Data.GetData(1) End Sub Private Sub txtResultado1_DragOver(Source As Control, X As Single, Y As Single, State As Integer) txtResultado1.OLEDrag End Sub Private Sub txtResultado2_DragOver(Source As Control, X As Single, Y As Single, State As Integer) txtResultado2.OLEDrag End Sub Private Sub txtResultado3_DragOver(Source As Control, X As Single, Y As Single, State As Integer) txtResultado3.OLEDrag End Sub Private Sub txtResultado4_DragOver(Source As Control, X As Single, Y As Single, State As Integer) txtResultado4.OLEDrag End Sub Private Sub txtResultado5_DragOver(Source As Control, X As Single, Y As Single, State As Integer) txtResultado5.OLEDrag End Sub Private Sub txtResultado6_DragOver(Source As Control, X As Single, Y As Single, State As Integer) txtResultado6.OLEDrag End Sub
Y no me funciona... Si alguien sabe por qué. Saludos. |
|
|
|
|
En línea
|
|
|
|
|
seba123neo
|
EDITADO: esta todo bien ...me fije mal... y una pregunta de que textbox a cual queres pasar por ejemplo...?
|
|
|
|
« Última modificación: 6 Agosto 2008, 19:01 pm por seba123neo »
|
En línea
|
|
|
|
|
aaronduran2
|
Quiero pasar de los txtResultado a los otros. Estoy haciendo una especie de creador de personajes para D&D.
Estuve probando a utilizar Drag en vez de OLEDrag, pero me dice que el espacio de pila es insfuficiente.
Saludos.
|
|
|
|
|
En línea
|
|
|
|
|
seba123neo
|
pues probe asi como el tuyo pero con 2 textbox y funciona,vos tenes que seleccionar el texto primero y despues ahi podes arrastrarlo..para ahorrarte seleccionarlo podes que cuando tome el foco el textbox se seleccione todo el texto...no tendran alguna propiedad activada qeu le cambiaste y por eso no anda,antes dijiste que estaban bloqueados,pero lo unico que les afecta es el Enabled = False pero con el Locked = True sige funcionando...
saludos.
|
|
|
|
|
En línea
|
|
|
|
|
| Mensajes similares |
|
Asunto |
Iniciado por |
Respuestas |
Vistas |
Último mensaje |
|
|
|
Utilizando upload de imagen con drag & drop
Desarrollo Web
|
Feedeex
|
7
|
7,339
|
14 Julio 2011, 22:12 pm
por madpitbull_99
|
|
|
|
Obtener Ruta de archivo arrastrado a un Form (Drag & Drop)
.NET (C#, VB.NET, ASP)
|
adan-2994
|
2
|
5,892
|
7 Agosto 2011, 19:18 pm
por adan-2994
|
|
|
|
Cargar archivo con Drag and drop
Desarrollo Web
|
danielo-
|
0
|
2,668
|
23 Octubre 2011, 07:02 am
por danielo-
|
|
|
|
Drag and Drop en GTK#
.NET (C#, VB.NET, ASP)
|
wennam
|
0
|
1,704
|
19 Diciembre 2011, 17:56 pm
por wennam
|
|
|
|
html5 drag and drop ayuda (imagen dentro de div)
Desarrollo Web
|
Kase
|
0
|
2,104
|
6 Mayo 2013, 11:13 am
por Kase
|
 |
