Sección de códigos , trucos y ejemplos para visual basic

492 - OLE - Drag Drop de texto

<Volver> - Anterior - Siguiente

Ejemplos varios de como de poder realizar drag and drop de texto en un programa de vb6.

Contenido

Ejemplo 1
Ejemplo 2
Ejemplo 3
Enlaces relacionados

Ejemplo 1

Arrastrar texto desde una aplicación externa hacia el programa

Colocar un control textbox en el formulario principal

Código fuente

Option Explicit Private Sub Form_Load() With Text1 ' habilitar el drag drop sobre el control textbox .OLEDropMode = 1 End With MsgBox "Arrastrar texto desde un programa, por ejemplo desde el WordPad hacia el text1", vbInformation End Sub ' Evento Ole Drag Drop del control textBox para recibir los datos ' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Private Sub Text1_OLEDragDrop( _ Data As DataObject, _ Effect As Long, _ Button As Integer, _ Shift As Integer, _ X As Single, Y As Single) On Error GoTo error_handler Dim bFormat As Boolean With Data ' Comprobar el formato de los datos que sea vbCFText bFormat = Data.GetFormat(vbCFText) ' si el formato es correcto ... If bFormat Then ' obtener los datos con el método GetData, y asignar el texto al control textbox Text1.Text = .GetData(vbCFText) End If End With ' errores Exit Sub error_handler: MsgBox Err.Description, vbCritical End Sub

Ejemplo 2

Arrastrar texto RTF mediante el formato vbCFRTF

Ejemplo similar, pero para arrastrar texto enriquecido o formato RTF, y visualizarlo en un control RichTextBox, consultando el formato de los datos mediante la constante vbCFRTF

Option Explicit Private Sub Form_Load() With RichTextBox1 ' habilitar el drag drop para el control RichTextBox .OLEDropMode = 1 End With MsgBox "Arrastrar texto RTF desde un programa por ejemplo desde el Microsoft Word o wordpad , ..hacia el control RichTextBox", vbInformation End Sub Private Sub RichTextBox1_OLEDragDrop( _ Data As RichTextLib.DataObject, _ Effect As Long, _ Button As Integer, _ Shift As Integer, _ x As Single, y As Single) On Error GoTo error_handler Dim bFormat As Boolean With Data ' Comprobar que los datos sean formato RTF con el método GetFormat y la constante vbCFRTF bFormat = Data.GetFormat(vbCFRTF) ' si el formato es correcto ... If bFormat Then ' obtener los datos con el método GetData, y asignar el rtf al control RBox RichTextBox1.TextRTF = .GetData(vbCFRTF) End If End With ' errores Exit Sub error_handler: MsgBox Err.Description, vbCritical End Sub

Ejemplo 3

Arrastrar un enlace o dirección URL usando el formato vbCFText

Colocar un control ListBox en el formulario principal

Código fuente

Option Explicit Private Sub Form_Load() With List1 ' habilitar el drag drop para este control Listbox .OLEDropMode = 1 End With MsgBox "Arrastrar un enlace o dirección URL desde una página web hacia el control listbox", vbInformation End Sub Private Sub List1_OLEDragDrop( _ Data As DataObject, _ Effect As Long, _ Button As Integer, _ Shift As Integer, X As Single, Y As Single) On Error GoTo error_handler With Data ' Comprobar el formato de los datos If .GetFormat(vbCFText) Then ' Agregar la dirección url que se está arrastrando List1.AddItem .GetData(vbCFText) End If End With ' errores Exit Sub error_handler: MsgBox Err.Description, vbCritical End Sub

Recursos visual basic - Enlaces relacionados

Ejemplos sobre Drag and Drop

Buscar en Recursos vb