vb.net addressof 问题 Addressof "表达式不能转换为 "Integer ",因为 "Integer "不是委托类型。
Private Function FnPtr(ByVal lngFnPtr As Integer) As Integer
FnPtr = lngFnPtr
End Function
Private Sub WriteSCL(ByRef ctxt As i2c_callback, ByVal val_Renamed As Integer)
KPCI3108.PWrite(Keithley_Includes.portNum.Port1, Keithley_Includes.P1_PCI3108.SCL, val_Renamed)
End Sub
Public Sub InitKPCIDrivers()
i2c_cbs.set_sda = FnPtr(AddressOf WriteSDA)
End Sub
Public Structure i2c_callback
Dim set_sda As Integer
Dim set_scl As Integer
Dim get_sda As Integer
End Structure
Public i2c_cbs As i2c_callback