实现属性必须具有匹配的“ReadOnly”或“WriteOnly”说明符

时间:2012-11-20 06:38:28

标签: vb.net com vb6 vb6-migration idl

我在idl文件中定义了一个接口,并尝试将vb6项目转换为vb.net。

转换从此idl的tlb创建了interop,在vs2010中,它抱怨该属性未实现(如下所示)。有谁知道为什么?我甚至删除了实现并让vs2010重新生成了存根,但仍然存在错误。

idl中的示例接口..

[   uuid(...),
    version(2.0),
    dual,
    nonextensible,
    oleautomation
]
interface IExampleInterface : IDispatch
{
 ...
    [id(3), propget]
    HRESULT CloseDate ([out, retval] DATE* RetVal);
    [id(3), propput]
    HRESULT CloseDate ([in] DATE* InVal);
}

VB.Net类......

<System.Runtime.InteropServices.ProgId("Project1_NET.ClassExample")>
Public Class ClassExample
    Implements LibName.IExampleInterface

    Public Property CloseDate As Date Implements LibName.IExampleInterface.CloseDate
        Get
            Return mDate
        End Get
        Set(value As Date)
            mDate = value
        End Set
    End Property

1 个答案:

答案 0 :(得分:2)

DATE参数类型是问题所在。 是DateTime或Date,它是 Double 。该声明在WTypes.h SDK头文件中给出,第725行为v7.1:

 typedef double DATE;

因此,通过将其声明为Double并根据需要来回转换来修复您的属性:

Public Property CloseDate As Double Implements LibName.IExampleInterface.CloseDate
    Get
        Return mDate.ToOADate
    End Get
    Set(value As Date)
        mDate = DateTime.FromOADate(value)
    End Set
End Property