drag drop entre textbox

[Pegano]

Saludos a todos , estoy usando vb6 ,alguien me puede dar una mano estoy tratando de hacer que un textbox al ser arrastrado y luego soltarlo en otro textbox se intercambien sus contenidos , gracias de antemano

[pkj]

Solo pon la propiedad dragmode=1 en los textbox y pon algo asi en los eventos:

Código vb:

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
 

[Pegano]

Iniciado por pkj

Solo pon la propiedad dragmode=1 en los textbox y pon algo asi en los eventos:

Código vb:

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
 

Muchas gracias pkj es justo lo que queria y funciana a la perfeccion

[Pegano]

PKJ, como haria ahora poder editar el texto del textbox antes de hacerle un drag and drop, ya que al poner dragmode=1 el texto ya no queda editable como en el evento change, gracias de antemano