制作剪贴板查看程序

Author: 刘玉锋 Date: 1998年第43期 13版

　　Win95的用户都知道，在Win95中很难找到剪贴板查看程序，那是因为Win95默认为选择典型安装。用不着再去安装剪贴板查看程序，其实用VB5可以很简单地制作出Win95的剪贴板查看程序。
　　在这里使用剪贴板对象的GetFormat、GetText和GetData方法判断和显示剪贴板的内容。
　　程序如下：
　　′picClip为一图片框，Visible属性为False、Autosize属性为True
　　′txtClip为一文本框，Visible属性为False、MultiLine属性为True、ScrollBars属性为Both
　　′Label1为标签框数组，Caption可分别设为Link、Text、Bitmap、Metafile、DIB、Palette
　　Option Explicit
　　Private InitValue（） As Integer
　　′Disp为一子程序，判断和显示剪贴板的内容
　　Sub Disp（）
　　Dim i As Integer
　　For i=0 To Label1.UBound
　　If Clipboard.GetFormat（InitValue（i）） Then
　　Label1（i）.ForeColor=＆HFF＆
　　Else
　　Label1（i）.ForeColor=vbBlack
　　End If
　　Next i
　　′是否文本类型
　　If Clipboard.GetFormat（vbCFText） Then
　　txtClip.Text=Clipboard.GetText
　　txtClip.Visible=True
　　Else
　　txtClip.Visible=False
　　End If
　　′是否图形类型
　　If Clipboard.GetFormat（vbCFBitmap） Then
　　picClip.Picture=Clipboard.GetData（vbCFBitmap）
　　picClip.Visible=True
　　Else
　　picClip.Visible=False
　　End If
　　End Sub
　　Private Sub Command1_Click（）
　　′调用Disp子程序显示剪贴板的内容
　　Disp
　　End Sub
　　Private Sub Form_Load（）
　　ReDim InitValue（0 To Label1.UBound）
　　InitValue（0）=vbCFLink
　　InitValue（1）=vbCFText
　　InitValue（2）=vbCFBitmap
　　InitValue（3）=vbCFMetafile
　　InitValue（4）=vbCFDIB
　　InitValue（5）=vbCFPalette
　　End Sub
　　′调整文本框的大小使之与剪贴板的大小相适应
　　Private Sub Form_Resize（）
　　Dim Width1，Height1 As Single
　　Width1=ScaleWidth － txtClip.Left
　　If Width1<120 Then Width1=120
　　Height1=ScaleHeight
　　txtClip.Move _
　　txtClip.Left，0，Width1，Height1
　　End Sub