如何将list1中的值赋给text1?

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

如何将list1中的值赋给text1?[已结贴,结贴人:cqheshuang]

发表于：2008-01-21 00:58:28 楼主

如何将list1中的值双击后赋给text1?　　　并且不让text1中原来的值清除，直接把list1中的值加到text1值的最后？

发表于：2008-01-21 01:20:201楼得分:1

随手写的，楼主自己调试下：
sub list1_doubleclick（)
text1.text=text1.text & chr（13) & list1.list（list1.listindex)
end sub

发表于：2008-01-21 02:15:022楼得分:2

text1.text=text1.text & vbcrlf & list1.list（list1.listindex)

发表于：2008-01-21 08:56:363楼得分:2

vbscript code


text1.text = text1.text & list1.list（list1.listindex)

发表于：2008-01-21 13:25:304楼得分:0

2 楼正解

发表于：2008-01-21 13:39:495楼得分:0

谢谢

其他资讯