原错误代码:
以下是引用片段：
/////////form1/////////////
Private sub form_load()
dim var1 as string
var1="hello!"
form2.show
End sub
////////form2/////////////
Private sub form_load()
label1.caption=var1
End sub
程序执行后为什么form2的label1.caption是空白。
|
各种解答方式:
1、
////////form2/////////////
Private sub form_load()
label1.caption=form1.var1
End sub
2、/////////form1/////////////
Private sub form_load()
dim var1 as string
var1="hello!"
form2.Label1.Caption=var1
form2.show
End sub
3、
在Form1中
Public Var1 as String
在Form2中引用
label1.caption=from1.var1
注意引用之前不要关闭from1（即 Unload from1)
可以Hind (即 form2.hind)
4、
///form1///
Private sub form_load()
dim var1 as string
var1="ok!"
form2.Label1.Caption=var1
form2.show
End sub
