Comment recuperer le nom du textbox qui est actif

Public Class Form1 Dim montexte As Decimal Dim t As TextBox Private Sub PastToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles PastToolStripMenuItem.Click If TypeOf t Is TextBox Then End If If Clipboard.GetDataObject().GetDataPresent(DataFormats.Text) = True Then If t.Text <> "" Then If MessageBox.Show("Voulez vous ecraser la valeur actuelle ?", "Que voulez-vous faire?", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.No Then t.Text = t.SelectedText + Clipboard.GetText.ToString End If End If t.Paste() End If End Sub Private Sub TextBox2_GotFocus(sender As Object, e As System.EventArgs) Handles TextBox2.GotFocus t = TextBox2 End Sub End Class

et bien j'ai trouvé la solution avec " CType(ActiveControl, TextBox) "
le code devient

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Public Class Form1
Dim t As New TextBox
 Private Sub PastToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles PastToolStripMenuItem.Click
        If TypeOf t Is TextBox Then
            t = CType(ActiveControl, TextBox)
        End If
        If Clipboard.GetDataObject().GetDataPresent(DataFormats.Text) = True Then
            If t.Text <> "" Then
                If MessageBox.Show("Voulez vous ecraser la valeur actuelle ?", "Que voulez-vous faire?", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.No Then
                    t.Text = t.SelectedText + Clipboard.GetText.ToString
                End If
            End If
            t.Paste()
        End If
    End Sub
End Class

ainsi plus besoin de passer par le sub

Code:

1
2
3
 Private Sub TextBox2_GotFocus(sender As Object, e As System.EventArgs) Handles TextBox2.GotFocus
        't = TextBox2
    End Sub

Puisque le textbox actif sera automatiquement defini comme par defaut
Trop fort:king: