Uso del DragOver y Y DragDrop en los TExt
Manuel Acosta Aceves 13 de Abril del 2004
Un saludo al foro, como hago para pasar lo escrito en un text a un label jalandolo y poniendolo donde yo quiera suponiendo que lo escrito de un text puedo poner lo en alguno de los 20 labels
tencho 13 de Abril del 2004
En este codigo coloka un TextBox y un Label
Private Sub Form_Load()
Text1.DragMode = 1
End Sub
Private Sub Label1_DragDrop(Source As Control, X As Single, Y As Single)
If TypeOf Source Is TextBox Then
Label1.Caption = Source.Text
End If
End Sub