vb复制粘贴代码
复制操作应该是复制当前选区而不是整个文本框内容,粘贴应该是将剪帖板内容插入到当前光标所在位置,而不是将文本框原有内容彻底覆盖,另外,通常当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
而Text1.SelText表示文本框中当前选中的内容,即a--selText是select text(选中文字)的缩写
![](/images/zang.png)
![](/images/jiucuo.png)
猜你喜欢
怎样使蛋糕组织细腻有弹性
做法蛋黄蛋白分开打在两个盆里,面粉提前过筛,糖油牛奶称量好。...手机sd卡无法读取原因是什么
卡内存太大,超过手机要求的最大内存卡容量。我们插入卡的时候,...三进制化为二进制算法
将三进制数整除以注意是三进制除法,得到商和余数,记下余数,这...关于除夕的心得小学范文
除夕的心得。全文爆竹声声一岁除,春风送暖入屠苏我们在欢乐喜悦...有什么好看的校园恋爱喜剧的动漫
全金属狂潮,讲述一个年代设定为年代,背景为冷战的架空世界,铁...抖音什么是快乐星球
快乐星球相信很多后小伙伴的都看过,近日在网上很流行的一个梗是...什么叫三相交流电
三相交流电是由三个频率相同电势振幅相等相位差互差度角的交流电...适合给老婆发的简单的信息
水在流,鱼在游,想你总是没理由风在吹,雨在下,很想和你打电话...南孚电池真假如何鉴别
正极假冒南孚虽然从包装到电池都仿造的比较到位,但是假货毕竟是...骑行装备中青蛙灯什么作用
青蛙灯是安装在自行车上的一种安全警示灯。适用范围车把坐管车架...严重糊锅怎么去掉
用山里红可去糊锅底。如果锅底糊了,可把几个山里红放锅里,加少...阳台装修铺防腐木地板还是地砖
防腐木好。防腐木是将木头进行过防腐处理的,并且现在的防腐木环...106厘米腰围是多少尺
厘米的腰围是尺。腰围,指的是经脐部中心的水平围长,也指肋最低...什么情况下可以不交物业费
服务不到位。服务是大问题,一般缴费还有星级划分,如果业主没有...孕妇能用bb霜吗
首先可以肯定的是怀孕期间最好不要使用霜,特别是在没有指明孕妇...