下载本文示例代码
髡咧饕常?傻儿VB园 作者信箱:王文涛
作者在写《傻瓜打表》部件时，原本想提供打印预览功能，因当时眼界较窄，所知道的只有一个方法实现打印预览： 定义一个 Object 变量（如：ObjPrn），用该变量替换程序中的与打印有关的语句中的
Printer 对象，打印时，首先设置
Set ObjPrn = Printer
预览时设置
Set ObjPrn = frmPreV.Picture1
用上述方法虽然可以实现打印和预览，但是，显然对打印机和实现预览的图像控件的访问都是后期邦定的，这在效率上是不高的。打算使用多态技术，可是 Printer
对象和 Picturebox控件不是从一个类（VB中可引用的）派生的。因无法实现打印和预览的前期绑定，故没有提供打印预览功能。
一天，当再次阅读VB帮助中的多态章节时，突然想到了一个方法，使用该方法，只要两个类具有相同的部分接口（方法、属性及参数），即便这两个类毫不相干，也可以通过变相用多态技术提供对这两个类的前期绑定。
多态是干什么的？
MSDN说：多态意味着许多类可以提供同样的属性或者方法，而且调用者在调用这些属性或方法之前，不必知道某个对象属于什么类。
多态的意义之一就是，通过多态接口，对多个不同类的访问可以获得高效的前期绑定。
一般来说，如果几个类具有部分相同的属性、方法，但却不是用多态接口实现的（例如Printer和Form），将不能提供类似多态的性能。
但是，“软件”正如其名字中的“软”，是一个灵活的、可塑的东西，我们可以改变思维模式，换一个角度：没有多态接口的两个类（如Printer、Picturebox）如同两个人不同父，不是兄弟；但我们可以让其子同娶一家之女（另外具有多态接口的两个类），其子为连襟，其儿媳为姐妹，而通过其儿媳访问其本人具有相同的路径。
还以上例，其中的关键是：添加三个类，分别Printer之妻、Picturebox之妻、二女之父（在二女中要实现的、Printer和Picturebox共有的部分接口）。下面就用打印和预览为例，介绍该方法：
第一步、添加一个抽象类，在该类中定义共同的方法和属性。
如果方法名称是VB关键字，可以修改（如Line方法，本例中改为pLine方法）；如果参数形式不符合VB语法，也可作相应修改（如本例中Line方法的参数，应为"(X1, -(X2,Y2),Forcolor,BF"，显然，在VB中的参数不能用这种形式；还有Print方法，打印参数之间、后面可以跟逗号、分号等，也要相应改变，并且不能提供全部原来Print方法功能）
：
类名：IMyPrinter，为简化，示例中仅包含作为示例的接口。
Public Property Get CurrentX() As Single
End Property
Public Property Let CurrentX(ByVal RHS As Single)
End Property
Public Sub EndDoc()
End Sub
Public Property Get Font() As stdole.Font
End Property
Public Property Set Font(ByVal RHS As stdole.Font)
End Property
Public Sub PLine(ByVal X1 As Single, ByVal Y1 As Single, ByVal X2 As Single,
_
ByVal Y2 As Single, Optional ByVal HasB As Boolean = False, _
Optional ByVal HasF As Boolean = False)
End Sub
Public Function ScaleX(ByVal Width As Single, Optional ByVal FromScale As Variant,
_
Optional ByVal ToScale As Variant) As Single
End Function
Public Function TextWidth(ByVal Str As String) As Single
End Function
Public Property Let Width(ByVal RHS As Long)
End Property
Public Property Get Width() As Long
End Property
Public Sub PPrint(Optional ByVal F0D1H2 As Integer = 0, Optional PrnInfo)
End Sub
第二步、添加两个类，实现该接口，并分别提供Printer对象和Picturebox控件相应的功能。
下面仅以在Picturebox控件上实现该接口的类的部分代码作为示例：还需要添加一个实现预览的窗体（frmPreView），在上面添加一个Picturebox控件（pic）
类名：MyPic
Implements IMyPrinter
Dim frm As frmPreview
Private pic As PictureBox
Private Sub Class_Initialize()
Set frm = New frmPreview
Load frm
Set pic = frm.pic
End Sub
Private Sub Class_Terminate()
Set pic = Nothing
Unload frm
Set frm = Nothing
End Sub
Private Property Let IMyPrinter_CurrentX(ByVal RHS As Single)
pic.CurrentX = RHS
End Property
Private Property Get IMyPrinter_CurrentX() As Single
IMyPrinter_CurrentX = pic.CurrentX
End Property
Private Sub IMyPrinter_EndDoc()
frm.Show vbModal
End Sub
Private Property Get IMyPrinter_Font() As StdFont
Dim F As StdFont
Set F = New StdFont
With pic.Font
F.Size = .Size
F.Name = .Name
F.Size = .Size
F.Bold = .Bold
F.Italic = .Italic
F.Strikethrough = .Strikethrough
F.Underline = .Underline
F.Weight = .Weight
End With
Set IMyPrinter_Font = F
End Property
Private Property Set IMyPrinter_Font(ByVal RHS As StdFont)
With pic.Font
.Size = RHS.Size
.Name = RHS.Name
.Size = RHS.Size
.Bold = RHS.Bold
.Italic = RHS.Italic
.Strikethrough = RHS.Strikethrough
.Underline = RHS.Underline
.Weight = RHS.Weight
End With
End Property
Private Sub IMyPrinter_PLine(ByVal X1 As Single, ByVal Y1 As Single, ByVal
X2 As Single, ByVal Y2 As Single, Optional ByVal HasB As Boolean = False, Optional
ByVal HasF As Boolean = False)
If HasF Then "本例中没有提供颜色选项
pic.Line (X1, Y1)-(X2, Y2), , BF
ElseIf HasB Then
pic.Line (X1, Y1)-(X2, Y2), , B
Else
pic.Line (X1, Y1)-(X2, Y2)
End If
End Sub
Private Sub IMyPrinter_PPrint(Optional ByVal F0D1H2 As Integer = 0, Optional
PrnInfo As Variant)
Select Case F0D1H2 "该参数为0:跟分号;1:跟逗号;2:无符号
Case 0
If Not IsMissing(PrnInfo) Then
pic.Print PrnInfo;
End If
Case 1
If Not IsMissing(PrnInfo) Then
pic.Print PrnInfo,
End If
Case 2
If Not IsMissing(PrnInfo) Then
pic.Print PrnInfo
Else
pic.Print
End If
End Select
End Sub
Private Function IMyPrinter_ScaleX(ByVal Width As Single, Optional ByVal FromScale
As Variant, Optional ByVal ToScale As Variant) As Single
IMyPrinter_ScaleX = pic.ScaleX(Width, FromScale, ToScale)
End Function
Private Function IMyPrinter_TextWidth(ByVal Str As String) As Single
IMyPrinter_TextWidth = pic.TextWidth(Str)
End Function
Private Property Get IMyPrinter_Width() As Long
IMyPrinter_Width = pic.Width
End Property
Private Property Let IMyPrinter_Width(ByVal RHS As Long)
pic.Width = RHS
End Property
第三步、在主类模块定义如下变量
Private cIMyPrn As IMyPrinter
Private cPic As MyPic
Private cPrn As MyPrn
在主类模块Class_Initialize事件中，添加：
Set cPrn As New MyPrn
Set cIMyPrn = cPrn
在主类模块中，将原来有关打印语句中的Printer替换为cIMyPrn。在实现预览的方法中，添加：
Set cPic = New MyPic
Set cIMyPrn = cMyPic
修改特殊类型的语句（如Line、Print，方法名和参数形式已经改变，将其改为符合cIMyPrn语法的语句）
预览结束后：
Set cIMyPrn = cPrn
Set cPic = Nothing
通过上面的方法，就可以用一个IMyPrinter变量，实现打印和预览的前期绑定当然，该方法未必是实现打印、预览的首选，还可以使用API方法，直接操纵设备场景来实现打印预览，但该方法的意义不在于此，其意义在于该方法拓展了VB中提供的多态技术的应用范围。
本文副标题中的所谓“高层次”不是作者层次高，而是编程方法和思路，不是面向底层、面向Win核心，而是在对象的高层、在编程语言和方法的较高层上实现多态。
髡咧饕常?傻儿VB园 作者信箱:王文涛
作者在写《傻瓜打表》部件时，原本想提供打印预览功能，因当时眼界较窄，所知道的只有一个方法实现打印预览： 定义一个 Object 变量（如：ObjPrn），用该变量替换程序中的与打印有关的语句中的
Printer 对象，打印时，首先设置
Set ObjPrn = Printer
预览时设置
Set ObjPrn = frmPreV.Picture1
用上述方法虽然可以实现打印和预览，但是，显然对打印机和实现预览的图像控件的访问都是后期邦定的，这在效率上是不高的。打算使用多态技术，可是 Printer
对象和 Picturebox控件不是从一个类（VB中可引用的）派生的。因无法实现打印和预览的前期绑定，故没有提供打印预览功能。
一天，当再次阅读VB帮助中的多态章节时，突然想到了一个方法，使用该方法，只要两个类具有相同的部分接口（方法、属性及参数），即便这两个类毫不相干，也可以通过变相用多态技术提供对这两个类的前期绑定。
多态是干什么的？
MSDN说：多态意味着许多类可以提供同样的属性或者方法，而且调用者在调用这些属性或方法之前，不必知道某个对象属于什么类。
多态的意义之一就是，通过多态接口，对多个不同类的访问可以获得高效的前期绑定。
一般来说，如果几个类具有部分相同的属性、方法，但却不是用多态接口实现的（例如Printer和Form），将不能提供类似多态的性能。
但是，“软件”正如其名字中的“软”，是一个灵活的、可塑的东西，我们可以改变思维模式，换一个角度：没有多态接口的两个类（如Printer、Picturebox）如同两个人不同父，不是兄弟；但我们可以让其子同娶一家之女（另外具有多态接口的两个类），其子为连襟，其儿媳为姐妹，而通过其儿媳访问其本人具有相同的路径。
还以上例，其中的关键是：添加三个类，分别Printer之妻、Picturebox之妻、二女之父（在二女中要实现的、Printer和Picturebox共有的部分接口）。下面就用打印和预览为例，介绍该方法：
第一步、添加一个抽象类，在该类中定义共同的方法和属性。
如果方法名称是VB关键字，可以修改（如Line方法，本例中改为pLine方法）；如果参数形式不符合VB语法，也可作相应修改（如本例中Line方法的参数，应为"(X1, -(X2,Y2),Forcolor,BF"，显然，在VB中的参数不能用这种形式；还有Print方法，打印参数之间、后面可以跟逗号、分号等，也要相应改变，并且不能提供全部原来Print方法功能）
：
类名：IMyPrinter，为简化，示例中仅包含作为示例的接口。
Public Property Get CurrentX() As Single
End Property
Public Property Let CurrentX(ByVal RHS As Single)
End Property
Public Sub EndDoc()
End Sub
Public Property Get Font() As stdole.Font
End Property
Public Property Set Font(ByVal RHS As stdole.Font)
End Property
Public Sub PLine(ByVal X1 As Single, ByVal Y1 As Single, ByVal X2 As Single,
_
ByVal Y2 As Single, Optional ByVal HasB As Boolean = False, _
Optional ByVal HasF As Boolean = False)
End Sub
Public Function ScaleX(ByVal Width As Single, Optional ByVal FromScale As Variant,
_
Optional ByVal ToScale As Variant) As Single
End Function
Public Function TextWidth(ByVal Str As String) As Single
End Function
Public Property Let Width(ByVal RHS As Long)
End Property
Public Property Get Width() As Long
End Property
Public Sub PPrint(Optional ByVal F0D1H2 As Integer = 0, Optional PrnInfo)
End Sub
第二步、添加两个类，实现该接口，并分别提供Printer对象和Picturebox控件相应的功能。
下面仅以在Picturebox控件上实现该接口的类的部分代码作为示例：还需要添加一个实现预览的窗体（frmPreView），在上面添加一个Picturebox控件（pic）
类名：MyPic
Implements IMyPrinter
Dim frm As frmPreview
Private pic As PictureBox
Private Sub Class_Initialize()
Set frm = New frmPreview
Load frm
Set pic = frm.pic
End Sub
Private Sub Class_Terminate()
Set pic = Nothing
Unload frm
Set frm = Nothing
End Sub
Private Property Let IMyPrinter_CurrentX(ByVal RHS As Single)
pic.CurrentX = RHS
End Property
Private Property Get IMyPrinter_CurrentX() As Single
IMyPrinter_CurrentX = pic.CurrentX
End Property
Private Sub IMyPrinter_EndDoc()
frm.Show vbModal
End Sub
Private Property Get IMyPrinter_Font() As StdFont
Dim F As StdFont
Set F = New StdFont
With pic.Font
F.Size = .Size
F.Name = .Name
F.Size = .Size
F.Bold = .Bold
F.Italic = .Italic
F.Strikethrough = .Strikethrough
F.Underline = .Underline
F.Weight = .Weight
End With
Set IMyPrinter_Font = F
End Property
Private Property Set IMyPrinter_Font(ByVal RHS As StdFont)
With pic.Font
.Size = RHS.Size
.Name = RHS.Name
.Size = RHS.Size
.Bold = RHS.Bold
.Italic = RHS.Italic
.Strikethrough = RHS.Strikethrough
.Underline = RHS.Underline
.Weight = RHS.Weight
End With
End Property
Private Sub IMyPrinter_PLine(ByVal X1 As Single, ByVal Y1 As Single, ByVal
X2 As Single, ByVal Y2 As Single, Optional ByVal HasB As Boolean = False, Optional
ByVal HasF As Boolean = False)
If HasF Then "本例中没有提供颜色选项
pic.Line (X1, Y1)-(X2, Y2), , BF
ElseIf HasB Then
pic.Line (X1, Y1)-(X2, Y2), , B
Else
pic.Line (X1, Y1)-(X2, Y2)
End If
End Sub
Private Sub IMyPrinter_PPrint(Optional ByVal F0D1H2 As Integer = 0, Optional
PrnInfo As Variant)
Select Case F0D1H2 "该参数为0:跟分号;1:跟逗号;2:无符号
Case 0
If Not IsMissing(PrnInfo) Then
pic.Print PrnInfo;
End If
Case 1
If Not IsMissing(PrnInfo) Then
pic.Print PrnInfo,
End If
Case 2
If Not IsMissing(PrnInfo) Then
pic.Print PrnInfo
Else
pic.Print
End If
End Select
End Sub
Private Function IMyPrinter_ScaleX(ByVal Width As Single, Optional ByVal FromScale
As Variant, Optional ByVal ToScale As Variant) As Single
IMyPrinter_ScaleX = pic.ScaleX(Width, FromScale, ToScale)
End Function
Private Function IMyPrinter_TextWidth(ByVal Str As String) As Single
IMyPrinter_TextWidth = pic.TextWidth(Str)
End Function
Private Property Get IMyPrinter_Width() As Long
IMyPrinter_Width = pic.Width
End Property
Private Property Let IMyPrinter_Width(ByVal RHS As Long)
pic.Width = RHS
End Property
第三步、在主类模块定义如下变量
Private cIMyPrn As IMyPrinter
Private cPic As MyPic
Private cPrn As MyPrn
在主类模块Class_Initialize事件中，添加：
Set cPrn As New MyPrn
Set cIMyPrn = cPrn
在主类模块中，将原来有关打印语句中的Printer替换为cIMyPrn。在实现预览的方法中，添加：
Set cPic = New MyPic
Set cIMyPrn = cMyPic
修改特殊类型的语句（如Line、Print，方法名和参数形式已经改变，将其改为符合cIMyPrn语法的语句）
预览结束后：
Set cIMyPrn = cPrn
Set cPic = Nothing
通过上面的方法，就可以用一个IMyPrinter变量，实现打印和预览的前期绑定当然，该方法未必是实现打印、预览的首选，还可以使用API方法，直接操纵设备场景来实现打印预览，但该方法的意义不在于此，其意义在于该方法拓展了VB中提供的多态技术的应用范围。
本文副标题中的所谓“高层次”不是作者层次高，而是编程方法和思路，不是面向底层、面向Win核心，而是在对象的高层、在编程语言和方法的较高层上实现多态。
下载本文示例代码
改变思路，从另一个角度使用多态改变思路，从另一个角度使用多态改变思路，从另一个角度使用多态改变思路，从另一个角度使用多态改变思路，从另一个角度使用多态改变思路，从另一个角度使用多态改变思路，从另一个角度使用多态改变思路，从另一个角度使用多态改变思路，从另一个角度使用多态改变思路，从另一个角度使用多态改变思路，从另一个角度使用多态改变思路，从另一个角度使用多态改变思路，从另一个角度使用多态改变思路，从另一个角度使用多态改变思路，从另一个角度使用多态
