如何在函数间传递对象

编号：QA002250
建立日期: 1999年12月14日 最后修改日期：1999年12月14日
所属类别：

Visual Basic - 其他方面

WangChunjun:
    操作系统 : win97
    编程工具 : vb6
    问题 :
    两个函数
    EXMP1 ()
    PRINTER.PRINT "1234"
    end sub
    
    EXMP2()
    PICTURE1.PRINT "1234"
    end sub
    
    如何用一个函数把这两者统一起来。比方说
    EXMP3(*这里应该写什么* object )
    OBJECT.PRINT "1234"
    end sub

回答:

    你可以这样定义函数：
    Sub EXMP3(obj As Object)
     obj.Print "1234"
    End Sub
    调用时使用：
    Exmp3 Picture
    Exmp3 Printer

此问题由李海回答。

把这个问题推荐给朋友         您的意见类别 更好的答案 希望得到进一步解释 我有有关代码可以提供给网友 链接错误 文字错误 其他 您的名字 您的电子邮件 您的建议(请尽可能详细)