
文章插图
复制操作应该是复制当前选区而不是整个文本框内容,粘贴应该是将剪帖板内容插入到当前光标所在位置,而不是将文本框原有内容彻底覆盖,另外,通常当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)
If Butt Then
Command1.Enabled = Text1.SelLength > 0
End If
End Sub
比如Text1的内容为abc,而当前只选中了第一个字符a
那么Text1.text表示文本框的全部内容 , 即abc
【vb复制粘贴代码 vb怎么做复制粘贴】而Text1.SelText表示文本框中当前选中的内容,即a--selText是select text(选中文字)的缩写
推荐阅读
- 复制文字发朋友圈怎么能不被压缩 复制文字发朋友圈怎么能不被看到
- 高德地图如何复制具体地址 高德地图如何复制地址链接
- 广数980tdb编程教程 广数980tdb编程教程代码G76
- 矩阵键盘原理 矩阵键盘原理图及代码怎么修改
- 种子粘贴画怎么做 种子粘贴画怎么做成食物,A四纸 一张全部都有 种子
- h股etf和恒生etf区的区别 h股etf和恒生etf代码
- PS如何粘贴路径 ps粘贴路径怎么取消
- 深圳职业技术学院有什么专业 深圳职业技术学院有什么专业组代码
- ps如何旋转复制 ps怎样旋转复制
- 怎么样复制电话号码到手机卡 手机怎么电话号码复制到手机卡