'假设position已经有了
类CCommand:
Public Sub RButtonDown(pPos As Position)
End Sub类Ccreateline:
Implements CCommand
Private Sub CCommand_LButtonDown(pPos As Position)
Dim pTempLine As CLine
...
end sub'然后
Dim pCommand As CCommand
Dim pCreateLine As New CCreateLine'再然后
set pcommand=pcreateline'问题1:在那里能找到msdn中文版下载
'问题2:这个set pcommand=pcreateline起到了什么作用????传递变量??这两个类都没有读写变量的属性啊
'问题3:Implements 是什么意思,呜呜,买不到msdn.大家多多帮忙了

解决方案 »

  1.   

    Implements CCommand是要求CcreateLine类实现CCommand接口
    set pcommand=pcreateline是请求CcreateLine类的一个实例pCreateLine返回CCommand接口给pcommand
      

  2.   

    更正:第一贴中CComand类中  Public Sub RButtonDown(pPos As Position)中的RButtonDown应改为LButtonDown
    先感谢bdhh(Silent) ,但是还请问:implements  只包含成员过程的声明部分  
    那个CCommand类中的Public Sub RButtonDown(pPos As Position)是不是声明啊?还有这个CCommand_LButtonDown是不是必须要这么写啊格式是:     引用的类_被引用的函数名(这是习惯还是一个固定的格式???)"set pcommand=pcreateline是请求CcreateLine类的一个实例pCreateLine返回CCommand接口给pcommand"是什么意思??在这个例子中返回了什么???msdn我已经找到,只要这三个问题回答完了就结贴.多谢多谢
      

  3.   

    //那个CCommand类中的Public Sub RButtonDown(pPos As Position)是不是声明啊?
    对只是声明 ,接口类里不用实现 在实现类(使用implements  的类)里实现
    //还有这个CCommand_LButtonDown是不是必须要这么写啊格式是:     引用的类_被引用的函数名(这是习惯还是一个固定的格式???)
    这个是固定的格式 在VB代码上面又个下拉框可以选择相应的函数,另外事件不能多态//"set pcommand=pcreateline是请求CcreateLine类的一个实例pCreateLine返回CCommand接口给pcommand"是什么意思??在这个例子中返回了什么???
    这是多态的标准写法,因为 类CCommand 也可以被别的类实现 譬如另一个类 Ccreateline2 也使用Implements CCommand 来创建接口,这样使用set pcommand=pcreateline 来选择到底由哪个类来实现