标题制作剪贴板查看程序

　　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