Saludos muchachos estoy creando 2 textbox para hacer un dragdrop entre ellos e intercambien sus contenidos tengo este code
Private Sub Text1_DragDrop(Source As Control, X As Single, Y As Single)
Dim Texto As String
Texto = Text1.Text
Text1.Text = Source.Text
Source.Text = Texto
End Sub
Private Sub Text2_DragDrop(Source As Control, X As Single, Y As Single)
Dim Texto As String
Texto = Text2.Text
Text2.Text = Source.Text
Source.Text = Texto
End Sub
el problema viene que para que funcione tengo que poner para cada textbox la propiedad dragmode =1 lo cual hace que el texto no se a selecionable el evento click ya no tiene efecto, mi pregunta si existe alguna forma de dejar el texto selecionable para ser editado como cuando tiene el valor dragmode=0, gracias de antemano
Si utilizas OLEDrag&Drop en su lugar?
De ultima te tocara lidiar con eventos del mouse :xD