VB剪切板应用.doc

VB剪切板应用.docVB剪切板应用今天发现了一个不错的剪贴板的应用可以让VB写出一个不错的个性以下是转载文字有时候大家看到在某些程序复制出的东西不能被粘贴在其他的地方(粘贴为灰色)。。。在VB中也可以实现这种效果。。即使用自己的剪切板格式刚才***找到了一段读剪切板的代码。。。于是我仿照着写出了写剪切板的代码。。。用法如下:SetClipboardIDForCustomFormatLyer's'双引号中字符串为你定义的剪切板格式说明写剪切板:SetCBData往剪切板中写啥呢?读剪切板:Lyer=GetCBData判断剪切板中是否有自己格式的数据:ifIsCBMyFormatthen'.......endif'======================================================'Lyer[]'-Aug07,2010-'======================================================'(ByValhWndAsLong)AsLongPrivateDeclareFunctionSetClipboardDataLibuser32(ByValwFormatAsLong,ByValhMemAsLong)AsLongPrivateDeclareFunctionCloseClipboardLibuser32()AsLongPrivateDeclareFunctionGetClipboardDataLibuser32(ByValwFormatAsLong)AsLongPrivateDeclareFunctionIsClipboardFormatAvailableLibuser32(ByValwFormatAsLong)AsLongPrivateDeclareFunctionRegisterClipboardFormatLibuser32AliasRegisterClipboardFormatA(ByVallpStringAsString)AsLongPrivateDeclareFunctionGlobalAllocLibkernel32(ByValwFlagsAsLong,ByValdwBytesAsLong)AsLongPrivateDeclareFunctionGlobalLockLibkernel32(ByValhMemAsLong)AsLongPrivateDeclareFunctionGlobalUnlockLibkernel32(ByValhMemAsLong)AsLongPrivateDeclareFunctionGlobalSizeLibkernel32(ByValhMemAsLong)AsLongPrivateDeclareSubCopyMemoryLibkernel32AliasRtlMoveMemory(lpvDestAsAny,lpvSourceAsAny,ByValcbCopyAsLong)PrivateDeclareFunctionEmptyClipboardLibuser32()AsL