ListBoxのDoubleClickメソッドでClickメソッドを呼び出す

Question

ダブルクリック用の特定のコードを実行した後に、リストボックスのセットのclickメソッドを呼び出そうとしています。

Private Sub ListBox1_Click(sender As Object, e As System.EventArgs) Handles ListBox1.Click 
    ' Do something 1 
End Sub 

Private Sub ListBox2_Click(sender As Object, e As System.EventArgs) Handles ListBox2.Click 
    ' Do something 2 
End Sub 

Private Sub ListBoxes_DoubleClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.DoubleClick, 
                             ListBox2.DoubleClick 
    ' Do something for doubleclick 

    ' Invoke Click method 
    Try 
     Dim result As Object = Me.GetType().InvokeMember(sender.name + "_Click", 
                 BindingFlags.Default Or BindingFlags.Public Or BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.InvokeMethod, 
                 Nothing, Nothing, New Object() {sender, Nothing}) 
    Catch ex As Exception 
    End Try 

End Sub 

結果が「MissingMethodException」例外

 
Method MyProject1.Form1.ListBox1_Click not found 

である。しかし、それはそこにある、VBを見て、それだけであり、上部に、あなたが見ることができませんか？

ありがとうございました。

Answer 1

あなたの質問には答えがありませんが、いくつかのリワークがあれば、どこかに行くことができます。

Actuallu、あなたはイベントを起こしたくありません。あなたは正しいロジックを呼びたいと思っています。

だから、これは（C＃で）私はこれを解決する方法である：ナトリウム - のコメントをもとに

private void listBox1_Click(object sender, EventArgs e) 
    { 
     DoSomething1(); 
    } 

    private void DoSomething1() 
    { 
     throw new NotImplementedException(); 
    } 

    private void listBox2_Click(object sender, EventArgs e) 
    { 
     DoSomething2(); 
    } 

    private void DoSomething2() 
    { 
     throw new NotImplementedException(); 
    } 

    private void listBox_DoubleClick(object sender, EventArgs e) 
    { 
     var listbox = sender as ListBox; 

     // some logic to find out which method to call here... 
     // DoSomething1(); 
     // or 
     // DoSomething2() 
    } 

Answer 2

最終結果、：

Private Sub ListBox1_Click(sender As Object, e As System.EventArgs) Handles ListBox1.Click 
    ListBox1Process() 
End Sub 

Private Sub ListBox2_Click(sender As Object, e As System.EventArgs) Handles ListBox2.Click 
    ListBox2Process() 
End Sub 

Private Sub ListBox1Process() 
    ' Do something 1 
End Sub 

Private Sub ListBox2Process() 
    ' Do something 2 
End Sub 

Private Sub ListBoxes_DoubleClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.DoubleClick, 
                             ListBox2.DoubleClick 
    ' Do something for doubleclick 

    ' Invoke "Click" method 
    Try 
     Dim result As Object = Me.GetType().InvokeMember(sender.name + "Process", 
                 BindingFlags.Default Or BindingFlags.Public Or BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.InvokeMethod, 
                 Nothing, Me, Nothing) 
    Catch ex As Exception 
    End Try 

End Sub