C＃定義的委託作爲功能，如何將它轉化成在VB.NET

Question

我有這個類，定義委託作爲函數老鄉

<br /> 

using System;<br /> 
using System.Collections.Generic;<br /> 
using System.Linq;<br /> 
using System.Text;<br /> 
using System.ComponentModel;<br /> 
using System.Collections;<br /><br /> 
namespace ClassLibrary1<br /> 
{<br /> 
    public delegate bool DrillDownHandler(IComponent control);<br /> 
    public delegate void ComponentLoadedHandler(IComponent control); 

     public interface interface1 
    { 
     event DrillDownHandler DrillDown; 
     event ComponentLoadedHandler ComponentLoaded; 
    } 


    public class Class1 : interface1 
    { 
     public Class1() 
     { 
      DrillDown += new DrillDownHandler(DrillDownDefault); 
     } 

     private ArrayList drillList = new ArrayList(); 
     public event DrillDownHandler DrillDown 
     { 
      add 
      { 
       drillList.Add(value); 
      } 
      remove 
      { 
       drillList.Remove(value); 
      } 
     } 
     public event ComponentLoadedHandler ComponentLoaded; 

     private bool DrillDownDefault(IComponent control) 
     { 
      return false; 
     } 
    } 
} 

---

時轉換爲VB.Net下面的代碼中，我們得到的， ,,但不行

<br /><br /> 
Imports System<br /> 
Imports System.Collections.Generic<br /> 
Imports System.Linq<br /> 
Imports System.Text<br /> 
Imports System.ComponentModel<br /> 
Imports System.Collections<br /> 
<br /> 
Namespace ClassLibrary1<br /> 
    Public Delegate Function DrillDownHandler(control As IComponent) As Boolean<br /> 
    Public Delegate Sub ComponentLoadedHandler(control As IComponent)<br /> 


    Public Interface interface1 
     Event DrillDown As DrillDownHandler 
     Event ComponentLoaded As ComponentLoadedHandler 
    End Interface 


    Public Class Class1 
     Inherits interface1 
     Public Sub New() 
      DrillDown += New DrillDownHandler(DrillDownDefault) 
     End Sub 

     Private drillList As New ArrayList() 
     Public Custom Event DrillDown As DrillDownHandler 
      AddHandler(ByVal value As DrillDownHandler) 
       drillList.Add(value) 
      End AddHandler 
      RemoveHandler(ByVal value As DrillDownHandler) 
       drillList.Remove(value) 
      End RemoveHandler 
     End Event 
     Public Event ComponentLoaded As ComponentLoadedHandler 

     Private Function DrillDownDefault(control As IComponent) As Boolean 
      Return False 
     End Function 
    End Class 
End Namespace 

任何一個可以幫助

Answer 1

在VB.Net事件不能與具有一個委託聲明返回類型。只有帶有「委託」的事件纔有可能。改用'ByRef'參數來使用'Sub'委託。

Public Delegate Sub DrillDownHandler(control As IComponent, ByRef bReturnVal As Boolean) 

欲瞭解更多信息，請訪問http://social.msdn.microsoft.com/Forums/en/vblanguage/thread/f1141545-6ef5-49df-8c16-ad27ee41a3bc

希望它應該工作。