VB6 AddressOf和VS 2008中的回調

Question

嘿，我想通過它的自動化VB6代碼轉換器將一些VB6代碼轉換爲VS 2008。大多數都做得很好，但有一些需要改進。

一說觸摸起來是這段代碼：

InitializeGrCap = GrCapInitialize(AddressOf GrCapStatusEventHandler) 

而且GrCapInitialize是這樣的：

Public Declare Function GrCapInitialize Lib "GrFinger.dll" Alias "_GrCapInitialize@4" (ByVal StatusEventHandler As Integer) As Integer 

而且GrCapStatusEventHandler是：

Public Sub GrCapStatusEventHandler(ByVal pidSensor As Integer, ByVal eventRaised As Integer) 
    While fireStatus = True 
     System.Windows.Forms.Application.DoEvents() 
    End While 

    myPIdSensor = pidSensor 
    myEventRaised = eventRaised  
    fireStatus = True 

    While fireStatus = True 
     System.Windows.Forms.Application.DoEvents() 
    End While 
End Sub 

我上午不知道該如何去重新編寫，以解決問題：

錯誤44「AddressOf」表達式無法轉換爲「整型」，因爲「整數」不是委託類型。

第二個說的潤色是這一段代碼：

GrCapStartCapture(myIdSensor, AddressOf GrCapFingerEventHandler, AddressOf GrCapImageEventHandler) 

周而復始，AddressOf ...是在這一個錯誤：

的GrCapFingerEventHandler：

Public Sub GrCapFingerEventHandler(ByVal pidSensor As Integer, ByVal eventRaised As Integer) 
    While fireFinger = True 
     System.Windows.Forms.Application.DoEvents() 
    End While 

    myPIdSensor = pidSensor 
    myEventRaised = eventRaised 
    fireFinger = True 

    While fireFinger = True 
     System.Windows.Forms.Application.DoEvents() 
    End While 
End Sub 

And GrCapImageEventHandler：

Public Sub GrCapImageEventHandler(ByVal pidSensor As Integer, ByVal width As Integer, ByVal height As Integer, ByVal pRawImage As Integer, ByVal res As Integer) 
    While fireImage = True 
     System.Windows.Forms.Application.DoEvents() 
    End While 

    myPIdSensor = pidSensor 
    myWidth = width 
    myHeight = height 
    myRes = res 
    myRawImage = pRawImage 
    fireImage = True 

    While fireImage = True 
     System.Windows.Forms.Application.DoEvents() 
    End While 
End Sub 

再次，該錯誤是：

錯誤44 'AddressOf' 表達不能被轉換爲 '整數'，因爲 '整數' 不是委託類型。

任何人都可以幫助我將這2個代碼區域轉換爲.net嗎？

Answer 1

在VB6中，您傳遞給您的非託管函數的那個​​Integer將是一個函數指針。 VB.NET不做函數指針。 .NET使用委託，而這些委託是引用方法的對象。這意味着您需要一個委託類型，其簽名與託管方法相匹配，然後您可以將該非託管函數的參數聲明爲該類型，並在調用該函數時傳遞該類型的實例。您可以聲明自己的委託類型，例如

Public Delegate Sub GrCapStatusCallback(ByVal pidSensor As Integer, ByVal eventRaised As Integer) 

聲明外部函數使用該類型：

Public Declare Function GrCapInitialize Lib "GrFinger.dll" Alias "_GrCapInitialize@4" (ByVal StatusEventHandler As GrCapStatusCallback) As Integer 

，然後你應該工作的呼叫，也可以明確地創建一個委託實例：或者

InitializeGrCap = GrCapInitialize(New GrCapStatusCallback(AddressOf GrCapStatusEventHandler)) 

，您可以使用現有的Action和Func代表，分別代表Subs和Functions和ca n支持0到16個參數：

Public Declare Function GrCapInitialize Lib "GrFinger.dll" Alias "_GrCapInitialize@4" (ByVal StatusEventHandler As Action(Of Integer, Integer)) As Integer