如何使文本内容叠加起来！

pyk

有1列表框
有1文本框
想在列表框这边双击某条记录
文本框里显示内容

第一次在列表框里双击某条记录，文本框里的值就是这条记录的值。（如这条记录的内容是 ”第一次“）

第二次在列表框里双击另外一条记录，文本框里的值就是上次的记录＋这次记录的值。（上次的内容是”第一次“，这次双击记录内容是”第二次“）那么就应该在文本框里显示
”第一次第二次““

……

谢谢！

竹笛

提供一个思路：
文本框值=[第一次] & [第二次]

[此贴子已经被作者于2003-4-17 12:57:27编辑过]

pyk

p1=list0.value '第一次双击的记录的值，以后每次双击的值也就赋给P1
p2=list0.value '第二次双击的记录的值
p3= p2 & p1 ' P3的值就等于 第一次 & 第二次
p2 = p3 ' 把第一次和第二次合并的内容给P2 ，下次如果P1的内容是“第三次”，那么P3的值就是 第一次第二次 & 第三次
文本框.value= p3

这样对吗？不过反正我还是写不代码来？谁能告诉我啊！

pyk

我用3个文本框来实现了这个功能，但如果用变量的话，变样写代码呢？
Private Sub List0_AfterUpdate()
Text4.Value = Text6.Value
End Sub

Private Sub List0_BeforeUpdate(Cancel As Integer)
Text4.Value = 文字变化.Value
End Sub

Private Sub List0_DblClick(Cancel As Integer)
文字变化.Value = List0.Value
Text6.Value = Text4.Value & 文字变化.Value
Text1.Value = "字数(含标点):" & Len(Text6.Value)
End Sub


注：Text6为最终显示的内容！

Roadbeg

就一行程序就可以了.
private sub lstSelect_DblClick(Cancel as integer)
    txtSum.value=txtSum.value & lstSelect.Value
end sub

pyk

唉，真好！（自己还搞得那样复杂）
谢谢！