我现在有一个需求,想用vb6.0实现。
我把我的操作阐述一下,希望有高人指点一下。
1)打开记事本,输入“testaaaaaaaa”,再ctrl+a,ctrl+c,现在testaaaaaaaa应该在剪贴板里了。2)现在想写一个vb程序,把剪贴板的内容输出到一个指定的文件里。找了很多资料,就是没能实现,希望谁能给完成一下。谢谢~~!
我把我的操作阐述一下,希望有高人指点一下。
1)打开记事本,输入“testaaaaaaaa”,再ctrl+a,ctrl+c,现在testaaaaaaaa应该在剪贴板里了。2)现在想写一个vb程序,把剪贴板的内容输出到一个指定的文件里。找了很多资料,就是没能实现,希望谁能给完成一下。谢谢~~!
解决方案 »
- Office插件问题:可以将接口实现代码放在ActiveX控件中吗?
- 关于CNN的一段程序代码,请朋友们来完善一下,分少才100分
- 多步OLEDB操作产生错误
- TDBGRID如何根据某一列的值不同而设置行的颜色?急急急~~~~
- 好象vb不能动态加载带参数的dll中的函数,是吗?
- VB中的打印问题,高分求解
- 急求select count 语句的用法
- 关于sql查询
- 如果说PowerHTML0.1版是拿来看的,那0.2版就是拿来用的,加了很多实用的功能,再麻烦大家帮忙测试
- how to split a form into several section?
- jmail 无发送@sina.com的邮件
- 比较伤脑筋的一个随机排序
Write #1, str
Close #1
*****************************************************************************
欢迎使用CSDN论坛专用阅读器 : CSDN Reader(附全部源代码)
http://feiyun0112.cnblogs.com/
str = My.Computer.Clipboard.GetText()
If My.Computer.Clipboard.ContainsText = True Then
Try
Dim sw As New StreamWriter("C:\Documents and Settings\forest23\桌面\1.txt")
sw.Write(str)
sw.Close()
Catch ex As Exception
MsgBox(e.ToString)
End Try
End If