2005年10月20日

VB6－设计模式点滴
摘要： 1、单件模式Class：SingletonClass Option ExplicitPublic Count As IntegerPrivate Sub Class_Initialize() If gSingleton Is Nothing Then Set gSingleton = Me End IfEnd SubPublic Function GetInstance(... 阅读全文
posted @ 2005-10-20 12:13 Duiker 阅读(1507) 评论(0) 推荐(0)

导航