怎样用VB复制字符
昨天考试有一道题不会做,题是这样的,画两个文本框 ,两个按钮,假定文本框名为TXT1,TXT2,按钮caption为复制,删除
要求是你在TXT1中输入一些字符,并用鼠标拖动选中其中的一部分字符,点击复制按钮,可以把你所选中的字符复制到TXT2中,点击删除则是删除你选中的字符,请问应该怎样实现啊,谢谢~~~
问题点数：20、回复次数：10Top
1 楼YaDa（）回复于 2005-04-01 18:35:31 得分 20
示意程序
sub 复制_click()
text2.text = text1.seltext
end sub
sub 删除_click()
text1.seltext = ""
text2.seltext = ""
end sub
Top
2 楼ffrija（禹少）回复于 2005-04-01 19:43:09 得分 0
不是这样的,我说的复制只是复制选被选中部分的字符,而不是整个文本框中的字符,删除也一样,只删除被选中的Top
3 楼lirujian（孤浪无痕）回复于 2005-04-01 19:49:10 得分 0
text2.text=text1.SelText
若是删除就自己再想办法了，利用一些函数很容易实现的
Top
4 楼Featured（我握着爱情的门票静静排队……）回复于 2005-04-01 19:50:12 得分 0
text1.seltext
不是text1.text
楼主看清楚Top
5 楼suolong123（JJ掉了不过碗大个疤）回复于 2005-04-01 19:52:02 得分 0
靠！代码总是记不住
只好给你说思路了！
有人看的懂我说的
请写代码：
先找到光标在text1中的位置，好象是text1.sets...什么的，记不清了，返回一个integer数
然后text2.text=right(text1.text,len(text1.text)-text1.sets...)
好象是text1.setstort
Top
6 楼suolong123（JJ掉了不过碗大个疤）回复于 2005-04-01 19:52:33 得分 0
text1.setstart
就是他了！
呵呵
还有可能不对！Top
7 楼YaDa（）回复于 2005-04-01 20:23:56 得分 0
text2.text = text1.seltext
------------------------------
抱歉。笔误。正确的就象Featured所说是：
text2.seltext = text1.seltextTop
8 楼YaDa（）回复于 2005-04-01 20:26:11 得分 0
我搞糊涂了。楼主说：“点击复制按钮,可以把你所选中的字符复制到TXT2中”，什么意思啊？Top
9 楼YaDa（）回复于 2005-04-01 20:31:34 得分 0
楼主有没有运行过我的代码（应该很容易变成实际代码的），再加上被大家一讨论，我有点不明白了：如果楼主的目的就是：Text2的内容就是Text1选中的部分。那么我第一次的回答就是正解。Top
10 楼ffrija（禹少）回复于 2005-04-01 20:50:38 得分 0
to YaDa:
抱歉,我运行的时候把代码输入错了,呵呵,OK了
谢谢大家Top
