- 浏览: 244537 次
文章分类
- 全部博客 (395)
- Tech (0)
- [随笔分类]心情 (95)
- [随笔分类]技术 (112)
- [随笔分类]管理心得 (13)
- [随笔分类]Code SOP (5)
- [随笔分类]望图知意 (11)
- [网站分类]1.首页原创精华.NET区(包含架构设计、设计模式)(对首页文章的要求:原创、高质量、经过认真思考并精心写作) (8)
- [随笔分类]重构代码 (1)
- [随笔分类]童童 (2)
- Program (1)
- [随笔分类]看你知道不知道 (1)
- [网站分类]4.其他技术区 (31)
- [网站分类]3.非技术区(技术之外的文章,但不要涉及任何政治内容) (21)
- [网站分类]9.求职招聘区(个人求职、企业招聘) (0)
- [随笔分类]昨日关注 (15)
- [网站分类]6.读书区(技术书籍阅读心得、书籍推荐) (3)
- [随笔分类]一步一个脚印 (2)
- [网站分类]网站管理区(网站管理方面的疑问、建议、意见, 寻求管理员帮助) (1)
- [网站分类]2..NET新手区(用于发表不合适发表在首页的.NET技术文章,包括小经验、小技巧) (3)
最新评论
1、单件模式
Class:SingletonClass
模块声明
3:工厂模式:
CreateObject
4:ComUnit的一个设计模式
使用TestCaseNames向外暴露自身扩展的成员。
使用类似于TestString的方法(接口参数一致),来扩展自身功能。
借助TestResult来贯穿类处理的总线。
使用TestRunner来处理符合ITestContainer接口的类。
5:观察者模式
Class:SingletonClass
Option Explicit
Public Count As Integer
Private Sub Class_Initialize()
If gSingleton Is Nothing Then
Set gSingleton = Me
End If
End Sub
Public Function GetInstance() As SingletonClass
Set GetInstance = gSingleton
End Function
Public Count As Integer
Private Sub Class_Initialize()
If gSingleton Is Nothing Then
Set gSingleton = Me
End If
End Sub
Public Function GetInstance() As SingletonClass
Set GetInstance = gSingleton
End Function
模块声明
Public gSingleton As SingletonClass
2、方法继承
Class:IMethod
Public Function SetName(Name As String)
SetName = Trim(UCase(Name))
End Function
SetName = Trim(UCase(Name))
End Function
Class:NewMethod
Implements IMethod
Private Base As IMethod
Private Sub Class_Initialize()
Set Base = New IMethod
End Sub
Private Sub Class_Terminate()
Set Base = Nothing
End Sub
Private Function IMethod_SetName(Name As String) As Variant
IMethod_SetName = Base.SetName(Name)
IMethod_SetName = IMethod_SetName & "0001"
End Function
Private Base As IMethod
Private Sub Class_Initialize()
Set Base = New IMethod
End Sub
Private Sub Class_Terminate()
Set Base = Nothing
End Sub
Private Function IMethod_SetName(Name As String) As Variant
IMethod_SetName = Base.SetName(Name)
IMethod_SetName = IMethod_SetName & "0001"
End Function
3:工厂模式:
CreateObject
4:ComUnit的一个设计模式
Implements ITestContainer
Public Property Get ITestContainer_TestCaseNames() As Variant()
ITestContainer_TestCaseNames = Array("TestString")
End Property
Public Sub ITestContainer_RunTestCase(oTestCase As ITestCase, oTestResult As TestResult)
CallByName Me, oTestCase.Name, VbMethod, oTestResult
End Sub
Public Sub TestString(oTestResult As TestResult)
End Sub
Public Property Get ITestContainer_TestCaseNames() As Variant()
ITestContainer_TestCaseNames = Array("TestString")
End Property
Public Sub ITestContainer_RunTestCase(oTestCase As ITestCase, oTestResult As TestResult)
CallByName Me, oTestCase.Name, VbMethod, oTestResult
End Sub
Public Sub TestString(oTestResult As TestResult)
End Sub
使用TestCaseNames向外暴露自身扩展的成员。
使用类似于TestString的方法(接口参数一致),来扩展自身功能。
借助TestResult来贯穿类处理的总线。
使用TestRunner来处理符合ITestContainer接口的类。
5:观察者模式
Option Explicit
'Ineteface Subject
Public Sub Register(obs As Observer)
End Sub
'Ineteface Subject
Public Sub Register(obs As Observer)
End Sub
Option Explicit
'Interface Observer
Public Sub Notify(msg As String)
End Sub
'Interface Observer
Public Sub Notify(msg As String)
End Sub
'frmMain
Implements Subject
Dim cc As Collection
Private Sub Command1_Click()
Dim c As Observer
For Each c In cc
c.Notify InputBox("Caption:")
Next
End Sub
Private Sub Form_Load()
Set cc = New Collection
Dim o As frm1
Set o = New frm1
o.Ini Me
o.Show
Dim oo As frm2
Set oo = New frm2
oo.Ini Me
oo.Show
End Sub
Private Sub Subject_Register(obs As Observer)
cc.Add obs
End Sub
'frm1
Implements Observer
Public Sub Ini(s As Subject)
s.Register Me
End Sub
Private Sub Observer_Notify(msg As String)
Me.Caption = msg
End Sub
'frm2
Implements Observer
Public Sub Ini(s As Subject)
s.Register Me
End Sub
Private Sub Observer_Notify(msg As String)
Me.Caption = msg
End Sub
Implements Subject
Dim cc As Collection
Private Sub Command1_Click()
Dim c As Observer
For Each c In cc
c.Notify InputBox("Caption:")
Next
End Sub
Private Sub Form_Load()
Set cc = New Collection
Dim o As frm1
Set o = New frm1
o.Ini Me
o.Show
Dim oo As frm2
Set oo = New frm2
oo.Ini Me
oo.Show
End Sub
Private Sub Subject_Register(obs As Observer)
cc.Add obs
End Sub
'frm1
Implements Observer
Public Sub Ini(s As Subject)
s.Register Me
End Sub
Private Sub Observer_Notify(msg As String)
Me.Caption = msg
End Sub
'frm2
Implements Observer
Public Sub Ini(s As Subject)
s.Register Me
End Sub
Private Sub Observer_Notify(msg As String)
Me.Caption = msg
End Sub
发表评论
-
启动NDuiker项目
2005-01-20 17:05 427今天是进驻博客园的第一天,在这里安家真的很不错,十分感谢DuD ... -
NDuiker项目第2天总结
2005-01-21 08:53 623昨天晚上基本上实现了 ... -
NDuiker项目第3天
2005-01-22 22:50 559今天是周六了,原本以为是很轻松的一天,结果只有到了这个时 ... -
NDuiker项目第6天
2005-01-25 16:50 546这几天好忙,也好累呀,这几天是公司项目收尾的阶段,忙的都透不过 ... -
对.Net 类库的一点思索
2005-02-02 09:29 577这些天主要在测试GDI+的 ... -
测试一个网站的想法
2005-02-05 17:07 524由于项目的需要,测试了一下“上海研发公共服务平台” 登录:ht ... -
项目建议书编写总结
2005-02-25 15:46 744昨天完成了项目建议书的编写工作,整个春节期间的工作到今天全部完 ... -
MyIE 增加了RSS功能
2005-02-28 09:54 544今天更新了MyIE,发现MyIE增加了RSS功能,试用了一下, ... -
www.beihua.edu.cn计划摘录
2005-02-28 14:11 756www.beihua.edu.cn工作计划 1:网站后期制作计 ... -
网站调研资料记录
2005-03-01 15:56 602资料整理备忘 1:内外网IP确认 ... -
静静的看书
2005-03-08 17:18 547这几天还是很忙,但是似乎好了很多,因为目前主要是写一个基于Sm ... -
我的Smart Client 的学习笔记
2005-03-09 15:35 1649User Interface Process (UIP) Ap ... -
研发、开发、运营
2005-03-25 12:15 612这些天很忙,网络也不争气,才刚刚好一点。 ... -
当需求变更来临
2005-04-30 14:26 514昨晚已经和老婆安排好5 ... -
重新登录Window2003的域
2005-05-12 09:58 662今天公司要求重新登录Windows2003的域,记录一下,以后 ... -
当不愿意写字得时候
2005-05-16 15:36 674做项目得前期分析得时候,我还是比较喜欢在本子上写写、画画得,通 ... -
远离技术的时候
2005-06-20 11:05 395这一个月一直在忙一个项目,现在项目的可研报告也 ... -
Asp.Net 中使用客户端Activex控件需要注意的事情
2005-08-13 12:57 923案例:Asp.Net +VB制作的Activex控件 操作系统 ... -
Office开发中的测试的与众不同之处
2005-08-22 14:29 673今天修改了一下自己以 ... -
大家确实都很忙
2005-08-27 08:20 705先谈几个技术问题: 1 ...
相关推荐
VB6-Sirk Mini 安装版 最新版 包含插件 增强版 包含 Addins
RTL8211E-VB-CG-原理图参考设计
Vb6-生成python代码插件(金色羽毛),设计窗体可通过插件生成代码
VB6-Mini 安装程序,比VB6企业版 使用起来简洁的多,其中重要的是该安装程序打包了很多控件,开发人员可以根据需要添加控件进行项目开发。
VB6 - DirectShow WebCam Minimal Code-VBForums
用Visual Basic 6.0编写的OCR识别程序,对数字的识别率高
VB----经典小程序设计-猜数字游戏
VB----经典小程序设计-拼图游戏
vb6-mini安装包
VB----经典小程序设计-贪吃蛇
VB----经典小程序设计-学生成绩管理
vb6-Theme+UAC
VB----经典小程序设计-俄罗斯方块
VB6-AES加密算法源码,无错,可直接运行。密钥长度支持128 Bit,192 Bit,256 Bit。支持字符串加密和文件加密。
这是一个vb6.0的mini版安装包,不需要填写任何东西,安装方便,内存小但是功能齐全,保证可以安装
VB----经典小程序设计-扫雷游戏
vb6-c#-vb.net 开发包,包含各自实例
VB-PowerWrap 允许开发者在发布他们的程序时不需要再加入一大堆 的 OCX 与 DLL 文件。该程序可以帮助 Visual Basic 程序员在发布他们 的可执行文件时不需要再担心关于其他链接库与 OCX 的问题了。VB-Powe rWrap 允许...
VB6-0环境下的语音识别程序开发方法VB6-0环境下的语音识别程序开发方法.
VB6-API注册表操作模块。可以轻松“建立/删除/修改/注册键值”