Question

vb 要将form1的Combo1值，在它unload前传到form2的Combo1上。

有下列程序：
form1的load:
AAA = Combo1
from2.Show

在form2的load中：
from2.Text4 = AAA
AA = from2.Text4
from2.Combo1.additem=AA
以上的运行不起来嘛，请求帮助，成功者给分，不食言。

Answer 1

AAA的变量范围没有定义,不可能传送到另一模块中.
你可以这样编程:
private sub form1_load()
from2.show
end sub

from2中的代码
private sub form2_load()
me.combo1.additem form1.combo1.text '指定加载窗口一中combo1的当前显示内容.

Answer 2

Form见传值可以用模块，在模块里声明变量。

模块1
dim AAA as string

form1_load()
{
AAA = Combo1
form2.Show
}

form2_load()
{
dim AA as string

form2.Text4 = AAA
AA = form2.Text4
form2.Combo1.additem=AA
}

Answer 3

你也太想当然了吧！

假如已经在form1中生成了combo1（已有列项）
将其传递到form2的combo1中

在form2的load事件中，添加如下代码：

Private Sub Form_Load()

Dim i As Integer
For i = 0 To Form1.Combo1.ListCount - 1
Form2.Combo1.AddItem Form1.Combo1.List(i)
Next i

End Sub