代码如下:(谨以参考)
Private Sub Command1_Click()
'复制
If Text1.SelText <> "" Then Clipboard.SetText Text1.SelText
'理解:如果Text1文本框选定的文字不是空则把剪切板的内容设置为Text1选中的文字
End Sub
Private Sub Command2_Click()
'剪切
If Text1.SelText <> "" Then Clipboard.SetText Text1.SelText: Text1.SelText = ""
'理解:如果Text1文本框选定的文字不是空则把剪切板的内容设置为Text1选中的文字:并用空字符代替文本框选中的文字
End Sub
Private Sub Command3_Click()
'粘贴
If Clipboard.GetText <> "" Then
If Text1.SelText <> "" Then
Text1.SelText = Clipboard.GetText
'如果剪切板的文字内容不为空则把文本框选中的内容用它来代替(把剪切板文字内容粘贴到光标处)
Else
'文本框没有选中文字,粘贴时直接把剪切板文字内容粘贴到文本框当前的输入光标处
'Text1.SelStart就是输入光标的位置,下句代码的原理就是把光标前的文字取出,然后加上要粘贴入的文字,再然后加上光标后面的文字。
Text1.Text = Mid$(Text1.Text, 1, Text1.SelStart) & Clipboard.GetText & Mid$(Text1.Text, Text1.SelStart + 1, Len(Text1.Text) - 1)
End If
End If
End Sub
★VB部分相关文章推荐:★
※vb中line的用法[转]
※画图工具的VB实现
※VB 一个获得自己外网 IP 地址的程序代码
※VB程序中实现IP地址子网掩码网关DNS的更改 [转]
※在 VB 中应用 FSO 对象模型介绍(摘自网络)
※[转] Vb中FSO 对象的介绍
※VB 画坐标轴
※VB 二进制文件的操作
※[VB]BMP转JPGVB中KeyCode常数用法
※vb实时曲线的绘制和保存
※VB操作EXCEL
※vb初学回顾:最大公约数最小公倍数素数求取
※vb 关于窗口样式的API以及处理文本的API参考
※【引用】在VB6.0中实现弹出式菜单的几种方法
※【引用】URLDownloadToFile_VB下载文件!
※利用WinRar压缩和解压缩文件
※VB 剪切板
※VB实现指示窗口中拖动方框的程序
※VB绘制走动的表针
※如何用VB制作DLL文件
※【引用】VB修改IP地址
※VB多窗体退出代码
※[转]VB:如何检测到U盘的插拔(源代码)
※巧用SendMessage函数扩展Treeview功能
※vb中如何在任务管理器里面隐藏应用程序进程
※如何实现VB与EXCEL的无缝连接
※一个API方式存取日志文件的模块[VB]
※VB用记录集填充表格函数
※VB打开文本文件各种方法
※vb ClipBoard 剪切板应用(复制剪切粘贴)
※【引用】窗口处理技巧大全 vb(窗体控件)
※【转】 Md rd命令之VB
※vb:读写文本文件
※在vb中实现真正锁定的带自定义菜单的文本控件
※【引用】使用CommonDialog的ShowSave后如何判断是保存还是※取消?
※vb 关于commondialog的多选VB获取Windows操作系统所有版本
※vb UTF文本文件访问
※VB编程中的Unicode vs Ansi
※VB编PiView4注册机
※VB获取超过2G文件的大小
※比CopyMemory还要快的函数SuperCopyMemory
※VB:编程效率快步提高之:十七种可用一行代码完成的技巧
※VB画出来的五星红旗
※Qt第一印象——Qte与Qt
更多精彩>>>