语言转换下

zyrr159487 2011-03-15 10:19:02

以下代码是C#中实现了调用COM组件的接口ICAMenu，然后调用它的两个函数AddMenu和doFunction,
求转换为VB语言的





    //[InterfaceType(ComInterfaceType.InterfaceIsDual)]

    public interface Cshaddmen : ICAMenu//接口继承

    {

         void AddMenu(out object pMenuIndex, out string pName);//函数声明

         void doFunction(object para);

    }

 





    [Guid("5CAE1D52-83BC-4ad4-AC6D-AEB2E357C886")]

    [ProgId("ClbMenu.CSetMen")]

    public class CSetMen :Cshaddmen  //使用继承后的接口Cshaddmen 

    {

        public CSetMen()

        {

         

        }

        public void AddMenu(out object pMenuIndex, out string pName)

        {

            short[] aa = new short[2] { 5, 0};

            pMenuIndex = aa;

            pName = "c# menu";

        }

        public void doFunction(object para)

        {



        }

    }

...全文

125 11 打赏收藏转发到动态举报

写回复

用AI写文章

11 条回复

切换为时间正序

请发表友善的回复…

发表回复

zyrr159487 2011-03-15

打赏
举报



Public Interface Css : Interface ICAMenu '接口继承

        Sub AddMenu(ByRef pMenuIndex As Object, ByRef pName As String)

        Sub doFunction(ByVal para As Object)

    End Interface

End Interface



Public Class Class1



    Public Sub New()

        MsgBox("ss")



        Dim Test As Css

        Dim iIndex As Integer

        iIndex = 1

        Dim str As String

        str = "ss"

        Test.AddMenu(iIndex, str) '函数调用

    End Sub

End Class