求VB编个程序

来源：百度知道 编辑：UC知道 时间：2024/06/30 05:21:40
Clipboard.Clear
Clipboard.SetText ("2008")
我要做个VB文件,2008是我要复制的内容,怎么样双击这个VB文件 2008就复制到粘贴板上了,
能把程序写出来,运行没问题更好哦.

str="2008"
Set IE = CreateObject("InternetExplorer.Application")
IE.Navigate("about:blank")
IE.document.parentwindow.clipboarddata.setdata "text",str
这个,复制,粘贴到文本文档里,文件--另存为---a.vbs 文件类型 所有文件
然后双击就行,随便找个文档点粘贴看看效果

你在某个控件，或者窗体的dblclick事件中加入你上面的两段代码就可以了

前面是双击事件

pint

pint "2008"

只需这样就行：
Private Sub Form_Load()
Clipboard.Clear
Clipboard.SetText ("2008")
End
End Sub