包括

Question

我有一个简单的ActiveX控件有4个属性和8个方法Set和Get，问题是我无法在运行时访问它们，在设计时它们工作正常下面是我在Visual Basic中编写程序时出现的错误消息和我的ActiveX控件的file.idl一起调度映射。在Visual C ++中，我有一条消息＆＃34;未找到成员＆＃34;当访问属性或方法时。有谁可以帮我解决这个问题。提前谢谢。

未处理的类型＆＃39; System.Runtime.InteropServices.COMException＆＃39;发生在mscorlib.dll中附加信息：灾难性故障（例外HRESULT：0x8000FFFF（E_UNEXPECTED））

CSliderCtrl1.cpp文件有调度图

BEGIN_DISPATCH_MAP（CSliderCtrl1，COleControl） DISP_PROPERTY_EX_ID（CSliderCtrl1，＆＃34; backgroundColor＆＃34;，1，GetbackgroundColor，SetbackgroundColor，VT_I4） DISP_PROPERTY_EX_ID（CSliderCtrl1，＆＃34; backColor＆＃34;，2，GetbackColor，SetbackColor，VT_I4） DISP_PROPERTY_EX_ID（CSliderCtrl1，＆＃34; foreColor＆＃34;，3，GetforeColor，SetforeColor，VT_I4） DISP_PROPERTY_EX_ID（CSliderCtrl1，＆＃34; positionBar＆＃34;，4，GetpositionBar，SetpositionBar，VT_I4） END_DISPATCH_MAP（）

Slider.idl文件

包括

[uuid（F9248E73-F5AD-43B1-815B-91817E91B537），版本（1.0），对照] 库SliderLib { 导入库（STDOLE_TLB）;

//  Primary dispatch interface for CSliderCtrl1
[ uuid(093C2CB6-C812-4B91-84CB-1C508439DBFD) ]
dispinterface _DSlider 
{
    properties:
        [id(1)] COLORREF backgroundColor;
        [id(2)] COLORREF backColor;
        [id(3)] COLORREF foreColor;
        [id(4)] unsigned long positionBar;
    methods:
        [id(5)] COLORREF GetbackgroundColor();
        [id(6)] void SetbackgroundColor([in] COLORREF color );
        [id(7)] COLORREF GetbackColor();
        [id(8)] void SetbackColor([in] COLORREF color);
        [id(9)] COLORREF GetforeColor();
        [id(10)] void SetforeColor([in] COLORREF color);
        [id(11)] unsigned long GetpositionBar();
        [id(12)] void SetpositionBar([in] unsigned long position);


};

//  Event dispatch interface for CSliderCtrl1

[ uuid(9113AA84-629F-4C34-88A3-EBFFF0F94B2E) ]
dispinterface _DSliderEvents
{
    properties:
        //  Event interface has no properties

    methods:
};

//  Class information for CSliderCtrl1
[ uuid(FA933E84-1B30-4283-9A2A-9CC1E8D99408), control ]
coclass Slider
{
    [default] dispinterface _DSlider;
    [default, source] dispinterface _DSliderEvents;
};

};

Answer 1

最后我找到了方法，Visual Basic中的代码必须是

Dim slider As New Object

slider = AxSlider1。 GetOcx

slider.SetbackgroundColor（100000）

BEGIN_DISPATCH_MAP(CSliderCtrl1, COleControl)
    DISP_FUNCTION_ID(CSliderCtrl1, "GetbackgroundColor",1, GetbackgroundColor,VT_UI4,VTS_NONE)
    DISP_FUNCTION_ID(CSliderCtrl1, "SetbackgroundColor",2, SetbackgroundColor, VT_EMPTY,VTS_UI4 )
    DISP_FUNCTION_ID(CSliderCtrl1, "GetbackColor",3, GetbackColor, VT_UI4, VTS_NONE)
    DISP_FUNCTION_ID(CSliderCtrl1, "SetbackColor", 4,SetbackColor, VT_EMPTY, VTS_UI4)
    DISP_FUNCTION_ID(CSliderCtrl1, "GetforeColor",5, GetforeColor,VT_UI4, VTS_NONE)
    DISP_FUNCTION_ID(CSliderCtrl1, "SetforeColor", 6,SetforeColor, VT_EMPTY, VTS_UI4)
    DISP_FUNCTION_ID(CSliderCtrl1, "GetPositionBar",7, GetPositionBar,VT_UI4, VTS_NONE)
    DISP_FUNCTION_ID(CSliderCtrl1, "SetPositionBar", 8,SetPositionBar, VT_EMPTY, VTS_UI4)
 DISP_PROPERTY_EX_ID(CSliderCtrl1, "backgroundColor", dispidBackgroundColor, GetbackgroundColor, SetbackgroundColor, VT_UI4)
 DISP_PROPERTY_EX_ID(CSliderCtrl1, "backColor", dispidBackColor, GetbackColor, SetbackColor, VT_UI4)
 DISP_PROPERTY_EX_ID(CSliderCtrl1, "foreColor", dispidForeColor, GetforeColor, SetforeColor, VT_UI4)
 DISP_PROPERTY_EX_ID(CSliderCtrl1, "PositionBar", dispidPositionBar, GetPositionBar, SetPositionBar, VT_UI4)
END_DISPATCH_MAP()

Visual Basic ActiveX控件无法在运行时访问属性和方法

包括

包括

1 个答案: