1
Private Sub SetupToolStrip(ByVal ControlCollection As Control.ControlCollection)
        For Each aControl As Control In ControlCollection
            If TypeOf aControl Is System.Windows.Forms.ToolStrip Then
                Dim ToolBar As System.Windows.Forms.ToolStrip = DirectCast(aControl, System.Windows.Forms.ToolStrip)
                For Each Item As System.Windows.Forms.ToolStripItem In ToolBar.Items
                    If Item.ToolTipText = "Print Report" Then
                           AddHandler Item.Click, AddressOf VerificDacaPrintam
                    End If
                Next
           End If
          If Not aControl.Controls Is Nothing Then SetupToolStrip(aControl.Controls)
       Next
 End Sub

しかし、私が行う前にすべてのイベントを削除したいItem.Click:

AddHandler Item.Click, AddressOf VerificDacaPrintam

そして、以下は機能しません:

Item.Click = Nothing       

Dim del As [Delegate]() = Item.Click.GetInvocationList() 

「クリックはイベントであり、直接呼び出すことはできません。「RaiseEvent」ステートメントを使用してイベントを発生させます。

4

1 に答える 1

-1

これを使用できます:

RemoveHandler Obj.Ev_Event, AddressOf EventHandler

MSDN ドキュメント

于 2013-01-17T15:30:05.773 に答える