发现了提升VB6速度的方法(只用VB6解决)

instemast

例如，假设有一个 OneManBand 类和一个 Cacophony 类，这二者都产生声音。希望把 Cacophony 类的功能添加到 OneManBand 类中，并重用 Cacophony 类方法的一些实现。

'OneManBand 实现 Cacophony 接口。
Implements Cacophony        class OneManBand : public _Cacophony {

'保存引用的对象变量。
Private mcac As Cacophony       private:  _Cacophony  * mcac;

Private Sub Class_Initialize()        OneManBand() {
   '创建对象。
   Set mcac = New Cacophony                mcac = ( _Cacophony * ) new Cacophony;
End Sub                                }

Private Sub Cacophony_Beep(xxx)          private: virtual void Beep(xxx) {  
   '委派给内部的 Cacophony 对象。
   Call mcac.Beep(Frequency, Duration)            mcac->Beep(xxx);
End Sub                                    }

游戏之家站长

instemast 没收到我短消息吗?

instemast

呵呵，收到了