文本框内容复制到剪贴板
来源：网络收集 责任编辑：栏目编辑 发表时间:2013-07-01 04:32 点击:次
Private Sub Command1_Click()
'这段代码实现将文本框中的数据剪切(或复制)到剪贴板
Clipboard.SetText Text1.Text '将文本框内容复制剪贴板
Text1.Text = "" '如复制则不要这条语句
End Sub
Private Sub Command2_Click()
'这段代码实现将剪贴板内容重新赋给文本框
Dim str As String
str = Clipboard.GetText '从剪贴板得到数据存入变量str
Text1.Text = str
End Sub
相关新闻>>
- Javascript 兼容 IE6、IE7、FF 的“加入收藏”“设为首页”
- 好好学一遍JavaScript 笔记(一)——基础中的基础
- 好好学一遍JavaScript 笔记(二)——encode、数组、对象创建
- 好好学一遍JavaScript 笔记(三)——StringBuffer、prototype
- 好好学一遍javaScript 笔记(四)——Attribute、HTML元素、文档碎
- 好好学一遍JavaScript 笔记(五)——正则表达式基础
- 好好学一遍JavaScript 笔记(六)——正则表达式基础二
- 好好学一遍JavaScript 笔记(七)——RegExp对象与常用正则
- 好好学一遍JavaScript 笔记(八)——冒泡型事件、捕获型事件
- JavaScript详解
最新推荐更多>>>
- 发表评论
-
- 最新评论 更多>>
