Inumeration

[BuilderSoft]

всем привет

есть несколько Textbox хотелось бы знать какой из них был нажат

Private Sub TextBox_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TextBox1.MouseDown, TextBox2.MouseDown

If e.Button = MouseButtons.Left Then

TextBox.........SelectAll()

TextBox........DoDragDrop(TextBox........SelectedText, DragDropEffects.Move Or DragDropEffects.Copy)

End If

End Sub

[Ваня]

Очень просто Sender и есть объект вызвавший событие!

Код: Выделить всё

Private Sub TextBox_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TextBox1.MouseDown, TextBox2.MouseDown

If e.Button = MouseButtons.Left Then
    With  CType(sender, TextBox)
       .SelectAll()
       .DoDragDrop(.SelectedText, DragDropEffects.Move Or DragDropEffects.Copy)
    End With
End If

End Sub

[BuilderSoft]

спасибо

Очень просто Sender и есть объект вызвавший событие!

Код: Выделить всё

Private Sub TextBox_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TextBox1.MouseDown, TextBox2.MouseDown

If e.Button = MouseButtons.Left Then
    With  CType(sender, TextBox)
       .SelectAll()
       .DoDragDrop(.SelectedText, DragDropEffects.Move Or DragDropEffects.Copy)
    End With
End If

End Sub