VB基础学习:VB 6 中的多态

下一页 1 2 3 

　　 　　最近在写一个MDI窗体的程序，每调用一个子窗体时都要对其做一些操作。于是我就用一个SUB 来做显示子窗体的操作
　　
　　Private Sub showFrm(ByRef tFrm As Form)
　　
　　{代码。。。。。。}
　　
　　tFrm.show
　　
　　End Sub
　　

　　假设有两个子窗体 frmProduct产品列表，和frmUser用户列表，那么要在显示这两个窗体的地方就用
　　
　　call showFrm(frmProduct)
　　
　　call showFrm(frmUser)
　　
　　frmProduct 是系统自动生成的Form类的对象（实体）。
　　
　　当然系统中还有一个frmProduct类。他们两个只是名字一样。
　　
　　这样在显示子窗体的时候调用的所有相关操作都放在showFrm中，在{代码。。。。。}中可以对tFrm的图标啊，前景色，大小啊什么的做想要的操作，以后修改起来也方便。我始终相信把实现相同功能的代码放不同的地方，或不用一个函数，或类什么的封装起来，以后会给自己带来更多的麻烦。
　　
　　但是如果在showFrm中我要对frmProduct 中的一个变量 Public strA as String操作，那么现在的showFrm 是做不到的。因为他只处理Form类，而strA是属于frmProduct类的。于是把showFrm改动一下
　　
　　Private Sub showFrm(ByRef tFrm As frmProduct)
　　

原文转自：http://www.ltesting.net