剪贴版的问题

Question

请问怎样把剪贴板里面的字符内容（如“aaa”）保存到一个字符类型的变量呢

Answer 1

Option ExplicitPrivate Sub Command1_Click()
    ' 设置剪贴板中的内容(字符)
    Clipboard.Clear
    Clipboard.SetText ("这是剪贴板中的字符串")    ' 获得剪贴板中的内容(字符)
    Dim s As String
    s = Clipboard.GetText()
    Debug.Print s
End Sub

Answer 2

当然还有API函数可以用：
ChangeClipboardChain  
CloseClipboard  
CountClipboardFormats  
EmptyClipboard  
EnumClipboardFormats  
GetClipboardData  
GetClipboardFormatName  
GetClipboardOwner  
GetClipboardSequenceNumber  
GetClipboardViewer  
GetOpenClipboardWindow  
GetPriorityClipboardFormat  
IsClipboardFormatAvailable  
OpenClipboard  
RegisterClipboardFormat  
SetClipboardData  
SetClipboardViewer  但在VB中还是上面的代码方便。  :D

Answer 3

Clipboard 对象
            提供对系统 Clipboard 的访问。语法Clipboard说明Clipboard 对象用于操作剪贴板上的文本和图形。它使用户能够复制、剪切和粘贴应用程序中的文本和图形。在复制任何信息到 Clipboard 对象中之前，应使用 Clear 方法清除 Clipboard 对象中的内容，例如 Clipboard.Clear。注意所有 Windows 应用程序共享 Clipboard 对象，因此当切换到其它应用程序时，剪贴板内容会改变。Clipboard 对象可包含多段数据，只要每段数据的格式不同。例如，可用 SetData 方法把位图以 vbCFDIB 格式放到 Clipboard 中，接着再用 SetText 方法以 vbCFText 格式将文本放到 Clipboard 中。然后用 GetText 方法检索文本或用 GetData 方法检索图形。当用代码或菜单命令把另一段数据放到 Clipboard 中时，原 Clipboard 中相同格式的数据会丢失。

Answer 4

字符串变量=clipboard.gettext这一句就行了

Answer 5

GetText 方法
      用于返回 Clipboard 对象中的文本字符串。不支持命名参数。语法object.GetText (format)GetText 方法的语法包含下列部分：部分 描述 
object 必需的。一个对象表达式，其值为“应用于”列表中的一个对象。 
format  可选的。一个数值或常数，如“设置值”中所描述的，它指定 Clipboard 对象的格式。必须用括号将常数或数值括起来。 
设置值format 的设置值有： 常数 值 描述 
vbCFLink &HBF00 DDE 对话信息  
vbCFText 1 （缺省值）文本 
vbCFRTF &HBF01 RTF（.rtf 文件） 
说明上述常数在 Visual Basic (VB)对象浏览器中的对象库里列出。如果 Clipboard 对象中没有与期望的格式相匹配的字符串，则返回一个零长度字符串 ("")。

Answer 6

原来是有可用的对象，现在才知道原来把VC的代码转为VB的也不是一件容易的事情啊

Answer 7

当然了，这和translator是不一样的。  :D

Answer 8

还要请问楼上和zyl910有在VB里面用过ISHELLFOLDER吗

Answer 9

//还要请问楼上和zyl910有在VB里面用过ISHELLFOLDER吗http://www.vbaccelerator.com/home/VB/Type_Libraries/IShellFolder/article.asp
http://www.mvps.org/btmtz/ishellex/