VB实例(设计模式能够自举的基类)

最近开发中正好有这么一个需求，就是需要一个基类，这个基类将在另外一些类里被运用；但是这个基类的实例最后会是哪一个派生类，调用者是不知道的。倘若要让调用者知道具体的派生类，就是在前端代码里创建一个派生类的实例并且传递给调用者，可能是不妥当的，因为调用者是分散而不确定的，即使它们有着的入口点。如果我话说得特不明白，您还是没法子理解，那还是举一个例子来说吧。其实您可以把它想成是 XmlDocument 和 XmlReader，因为 XmlReader 是有两个派生实例的，它和我这个场景很大程度上是比较类似的。
　　我们都知道，XmlReader 的创建不一定要直接用 New XmlTextReader() 完成，其实也可以用 XmlReader.Create()。但是，我今天并不是想探究 XmlReader 它的创建原理，因为我们可以去看 .Net Framework 的源代码，无论是官方的还是 Reflector 给出的。我的构想是，让基类能够自举，就意味着它是自己的工厂。但是，基类是不会知道派生类是什么的，也不知道运行时将选择的派生类；我希望最终的调用代码可以在使用前设置将被使用的派生类。
　　看代码了：
　　简化示例: 能够自举的基类
　　/**/’’’

　　’’’ XHtml => WikiText 基础转换器。
　　’’’

　　Public MustInherit Class XHtmlParserClass XHtmlParser
　　实例创建器#Region \" 实例创建器 \"
　　/**/’’’

　　’’’ 当前的实例创建器。
　　’’’

　　Private Shared Creater As Func(Of XHtmlParser) = Function (()Function() Nothing
　　/**/’’’

　　’’’ 创建一个 XHtml => WikiText 转换器。
　　’’’

　　Public Shared Function CreateInstance()Function CreateInstance() As XHtmlParser
　　SyncLock Creater
　　 Return Creater.Invoke()
　　End SyncLock
　　End Function
　　/**/’’’

　　’’’ 注册一个 XHtml => WikiText 转换器。
　　’’’

　　Public Shared Sub RegisterCreater()Sub RegisterCreater(ByVal NewCreater As Func(Of XHtmlParser))
　　SyncLock Creater
　　 Creater = NewCreater
　　End SyncLock
　　End Sub
　　#End Region
　　End Class