Private Sub DataGridView1_EditingControlShowing(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewEditingControlShowingEventArgs) Handles DataGridView1.EditingControlShowing If TypeOf e.Control Is TextBox Then With DirectCast(e.Control, TextBox) .ContextMenuStrip = ContextMenuStrip2 End With End If End Sub
Dim TB As TextBox
Private Sub DataGridView1_EditingControlShowing(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewEditingControlShowingEventArgs) Handles DataGridView1.EditingControlShowing 'Menu pour l'édition de texte If TypeOf e.Control Is TextBox Then TB = CType(e.Control, TextBox) AddHandler TB.MouseUp, AddressOf Me.tb_TextChanged With DirectCast(e.Control, TextBox) .ContextMenuStrip = ContextMenuStrip2 End With End If End Sub
Private Sub tb_TextChanged(ByVal sender As Object, ByVal e As EventArgs) ' End Sub
Private Sub MenuEditCopier_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles MenuEditCopier.Click 'Copier Clipboard.Clear() Clipboard.SetText(TB.SelectedText, TextDataFormat.Text) End Sub Private Sub MenuEditColler_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles MenuEditColler.Click 'Coller TB.SelectedText = Clipboard.GetText End Sub
AddHandler TB.MouseUp, AddressOf Me.tb_TextChanged
Private Sub tb_TextChanged(ByVal sender As Object, ByVal e As EventArgs) ' End Sub
TB = CType(e.Control, TextBox)
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionAddHandler TB.MouseUp, AddressOf Me.tb_TextChangedne servait à rien parce que sans çà il n'y a pas non plus de problème,la copie se fait sans problème par contre j'aimerai bien savoir à quoi sert le "AddHandler ,AddressOf "?