摘要:
请先看下边得代码: 'Interface CommandPublic Sub Execute(): End Sub'TestCommandImplements VB6DPFrameWork.CommandPublic Count As IntegerPrivate Sub Command_Execute() Count = 1End Sub'CommandWrapperPrivate mSe... 阅读全文
摘要:
在进行测试驱动开发的过程中,编写测试用例是比较繁琐的,但是更繁琐的是使用ComUnit框架进行测试的过程中,需要在频繁进行测试用例名称的注册,如下边的代码: ' Return the name of the different test case methods in this test containerPublic Property Get ITestContainer_TestCaseNam... 阅读全文
摘要:
1、单件模式Class:SingletonClass Option ExplicitPublic Count As IntegerPrivate Sub Class_Initialize() If gSingleton Is Nothing Then Set gSingleton = Me End IfEnd SubPublic Function GetInstance(... 阅读全文