复制操作应该是复制当前选区而不是整个文本框内容,粘贴应该是将剪帖板内容插入到当前光标所在位置,而不是将文本框原有内容彻底覆盖,另外,通常当Text1没选中文字时,要使复制按钮Command1不可用
Private Sub Command1_Click()
Clipboard.SetText Text1.SelText
End Sub
Private Sub Command2_Click()
If Len(Clipboard.GetText) Then
Text1.SelText = Clipboard.GetText
End If
End Sub
Private Sub Form_Load()
Command1.Enabled = False
End Sub
Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
Command1.Enabled = Text1.SelLength > 0
End Sub
Private Sub Text1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
【vb复制粘贴代码 vb如何复制粘贴代码】 If Butt Then
Command1.Enabled = Text1.SelLength > 0
End If
End Sub
比如Text1的内容为abc,而当前只选中了第一个字符a
那么Text1.text表示文本框的全部内容,即abc
而Text1.SelText表示文本框中当前选中的内容,即a--selText是select text(选中文字)的缩写
推荐阅读
- 如何复制百度文库 怎样复制百度文库
- 安卓门禁卡复制到手机 安卓门禁卡复制到手机的方法
- 手机视频复制到u盘里怎么不能播放 解决方法看这里
- coreldrawx6激活代码
- 众新zhongxinK-1000万能空调遥控器的代码表,找一下。
- Python画等高线的代码是什么?Python怎么绘制等高线图
- 虚拟机安装过程中出现“ezboot kernel notfound。”求有经验的回答,不要胡乱复制网上的答案。如下图
- 怎么复制照片链接 百度空间复制图片链接
- 门禁卡复制到手机华为 怎么将门禁卡复制到手机华为手机
- 部落冲突升满王代码 一般人都不知道