窗体之间传递数组

uestcwang
等级:

发表于：2008-05-12 21:14:44 楼主

有两个窗体： form1 form2

假设form1 为主窗体,窗体内有一按钮

单击按钮，出现form2

form2中有text控件，可以输入数据

在form2中输入数据后，单击form2中的确定按钮后，输入的数据存入一个数组中，同时

form2关闭，form1窗体出现

然后在FORM1窗体中调用 form2 中输入的数据(以数组形式)，进行运算

如何实现

谢谢

问题点数：30 回复次数：9 修改删除举报引用回复

tanjiunnya
tanjiunnyann
等级:

发表于：2008-05-12 21:30:211楼得分:0

Form1 内添加：

Dim str as string

Public Sub SetData(byval strTmp as string)
str = strTmp
End Sub

Form2 的按钮：

private sub command1_click

Call Form1.SetData(Text1)

end sub

修改删除举报引用回复

dbcontrols
泰山
等级:

发表于：2008-05-12 21:35:122楼得分:0

在模块里面用Public声明比较好

修改删除举报引用回复

Modest
塞北雪貂·偶最欣赏楼主的分
等级:

发表于：2008-05-12 21:38:103楼得分:0

Form2 内添加：

public str as string
.......相关赋值代码

Form1 的按钮：

private sub command1_click
Form2.Show 1
MsgBox Form2.str
end sub

修改删除举报引用回复

dbcontrols
泰山
等级:

发表于：2008-05-12 21:41:064楼得分:0

str是一个函数的名字,是一个保留字,不能当作变量名称使用.

引用 3 楼 Modest 的回复:
Form2 内添加：

public str as string
.......相关赋值代码

Form1 的按钮：

private sub command1_click
Form2.Show 1
MsgBox Form2.str
end sub

修改删除举报引用回复

ayalicer
小刀剜心
等级:

发表于：2008-05-12 21:44:125楼得分:0

添加个模块定义个全局数组变量和状态变量

form2关闭前置状态变量true

form1出现时load事件中检查状态变量根据变量值做相应操作
load 事件结束前把状态变量置false

修改删除举报引用回复

uestcwang
等级:

发表于：2008-05-12 22:05:166楼得分:0

模块中：Public a() As Double

form1中：
Dim a() As Double

Private Sub Command1_Click()
Form2.Show
End Sub

Private Sub Command2_Click()
Dim a(1) As Double
Text1.Text = a(1)
End Sub

form2中：

Dim a() As Double
Private Sub Command1_Click()
ReDim a(1) As Double
a(0) = Text1.Text
Form1.Show
Unload Form2
End Sub

结果在form2输入10，在form1中输出是: 0

请问错在哪里?

修改删除举报引用回复

dbcontrols
泰山
等级:

发表于：2008-05-12 22:07:517楼得分:0

a都被你dim烂了

引用 6 楼 uestcwang 的回复:

模块中：Public a() As Double

form1中：
Dim a() As Double

Private Sub Command1_Click()
Form2.Show
End Sub

Private Sub Command2_Click()
Dim a(1) As Double
Text1.Text = a(1)
End Sub

form2中：

Dim a() As Double
Private Sub Command1_Click()
ReDim a(1) As Double
a(0) = Text1.Text
Form1.Show
Unload Form2
End Sub

结果在form2输入10，在form1中输出是: 0

…

修改删除举报引用回复

zzyong00
阿勇
等级:

发表于：2008-05-12 22:10:518楼得分:0

貌似inputbox比较适合你

dim s
s=inputbox("请输入：")
if s <>"" then
debug.print s
end if

修改删除举报引用回复