Question

VB Form1.List1.Text中的内容在Form2.Text1.Text中修改，如何写回到Form1.List1.Text中？请能者指教。谢谢

VB Form1.List1.Text中的内容在Form2.Text1.Text中修改，如何写回(替换或覆盖)到Form1.List1.Text中？请能者指教。谢谢！
因为没有足够的积极分，我不能使用追问，所以在此回应“damyzl”网友。
Form1没有撤销。Form1的显示方法不用我说，Form2是用“show”显示的，Form1自始至终存在，选中Item的蓝色亮条也始终存在，……
这个问题我已经将解决，我是使用“跳板”解决的，是实用主义的有效办法，但肯定不会是最佳的办法。
谢谢你的悉心帮助，我相信你一定有比我更好更多的办法，为此，也为表示我的谢意，我采纳你的方案为最佳方案。我认为你的方案包含了各种最佳方案的要素，精神要素，算是广义的最佳方案吧。谢谢！

Answer 1

首先，list1.Text 表示当前选择项的文本，是不能改写的。要在 form2 里改写 form1.list1的某一项，要这么写：
form1.list1.list(i)=Text1.Text
其次，在 form2 要改写 form1里控件的内容（比如list1） ，要确保 form1 没有被Unload，改写方式如上。

追问

我能在Form2.Text1中修改，也能“添加”回Form1.List1中，但是不知道怎么替换或覆盖。我需要的是在Form2.Text1中修改后再写回Form1.List1中去，实现替换或覆盖一样的效果。希望能得到你的帮助。谢谢！

追答

说实话没看懂你什么意思
list是一张列表，文本框是一行，你的“写回”、“替换”、“覆盖”什么意思呢？

追问

“写回”、“替换”、“覆盖”什么意思呢？---处理Form1.List中的一个条目，一个我鼠标选中后想修改的条目。比如Form1.List1列表中有一条“2012”，我把它转移到Form2.Text1中修改为“2011”后再写回去，让Form1.List1中的“2012”变成“2011”。“替换”、“覆盖”是对“写回去”的补充描述。没说清楚，抱歉！如果兄弟有解决办法，不妨告诉我，免去我瞎摸索。谢谢！

追答

list1的属性 list 保存了列表的各项，要改写某一项：
list1.list(i)="asf"
当前选择项是：
list1.list(list1.listindex)
在form2“写回”就是这样：
form1.list1.list(list1.listindex)=text1.text

追问

这正是我失败的语句：“实时错误424，要求对象”，不知道要求什么对象？如果是往Form1.List1添加一个条目，类似语句可以执行成功，但修改则失败。或者，在Form1中修改也能成功。请指点谢谢！

追答

说到现在你还没说两个窗体是怎么显示的？在 Form2 编辑时 Form1 是不是已经 unload 了？？

Answer 2

可以建个Module 在里面定义全局变量来传值

追问

请问具体的代码怎么写？