判别剪贴板上所有可用的格式

判别剪贴板上所有可用的格式(2) Case CF_DIF
FormatName = "Software Arts' Data Interchange information."
Case CF_TIFF = 6
FormatName = "Tagged Image File Format (TIFF) Picture"
Case CF_OEMTEXT
FormatName = "Text (OEM)"
Case CF_DIB
FormatName = "DIB Bitmap Picture"
Case CF_PALETTE
FormatName = "Colour Palette"
Case CF_PENDATA
FormatName = "Pen Data"
Case CF_RIFF
FormatName = "RIFF Audio data"
Case CF_WAVE
FormatName = "Wave File"
Case CF_UNICODETEXT
FormatName = "Text (Unicode)"
Case CF_ENHMETAFILE
FormatName = "Enhanced Meta-File Picture"
Case CF_HDROP
FormatName = "File List"
Case CF_LOCALE
FormatName = "Text Locale Identifier"
End Select
Else
'对于自定义格式，我们可以向剪贴板要注册过的名字：
lSize = 255
sBuf = String$(lSize, 0)
lR = GetClipboardFormatName(lFormatId, sBuf, lSize)
If (lR <> 0) Then
FormatName = Left$(sBuf, lR)
End If
End If
End Property

Private Sub Command1_Click()
Dim lR As Long
Dim iCount As Long

List1.Clear
If (OpenClipboard(Me.hWnd)) Then
lR = EnumClipboardFormats(0)
If (lR <> 0) Then
Do
iCount = iCount + 1
List1.AddItem FormatName(lR)
List1.ItemData(List1.NewIndex) = lR
lR = EnumClipboardFormats(lR)
Loop While lR <> 0
End If
End If
CloseClipboard
End Sub

当你点击Command后，ListBox将被可用的数据格式列表填充。列表区被设为格式名，每一格的数据被设为剪贴板格式的ID。要在列表中看到自定义格式，试试在点击Command之前，从Word、写字板或Internet EXPlorer中复制一些东西。