Pasar datos de un control a otro Arrastrando mouse

[pepino]

quisiera intercambiar los tiempos de las cabinas en caso de que estuvieran activadas con solo arrastrar el mouse de una cabina a otra. espero y me ayuden
o si alguien tiene un simple ejemplo de como pasar datos de un textbox a otro tan solo arrastrando me serviria, muchas gracias.

[Albertomi]

Estimado pepino

Tienes que hacer uso de lo que se conoce como Drag and Drop, para casos de ejemplo adiciona en formulario 2 TextBox y a la propiedad DragMode asígnales el valor de 1 - Automatic

Adiciona el siguiente código

Código: [Seleccionar]

Private Sub Text1_DragDrop(Source As Control, X As Single, Y As Single)
  Text1.Text = vbNullString
  Text1.Text = Source.Text
End Sub
 
Private Sub Text2_DragDrop(Source As Control, X As Single, Y As Single)
  Text2.Text = vbNullString
  Text2.Text = Source.Text
End Sub

Este es solo un ejemplo ya que el código se puede mejorar más.
 
Saludos, desde algún lugar de lima-Perú

[pepino]

Estimado pepino

Tienes que hacer uso de lo que se conoce como Drag and Drop, para casos de ejemplo adiciona en formulario 2 TextBox y a la propiedad DragMode asígnales el valor de 1 - Automatic

Adiciona el siguiente código

Código: [Seleccionar]

Private Sub Text1_DragDrop(Source As Control, X As Single, Y As Single)
  Text1.Text = vbNullString
  Text1.Text = Source.Text
End Sub
 
Private Sub Text2_DragDrop(Source As Control, X As Single, Y As Single)
  Text2.Text = vbNullString
  Text2.Text = Source.Text
End Sub

Este es solo un ejemplo ya que el código se puede mejorar más.
 
Saludos, desde algún lugar de lima-Perú

Exalente albertomi muchas gracias.