不使用模块，怎样将一个变量从一个form1传递到另一个form2内??????

Question

////////form2/////////////
Private sub form_load()
label1.caption=form1.var1
End sub

Answer 1

dim var1 as string
/////////form1/////////////
Private sub form_load()
var1="hello!"

Answer 2

/////////form1/////////////
Private sub form_load()
dim var1 as string
var1="hello!"
form2.Label1.Caption=var1
form2.show
End sub

Answer 3

定义一个public变量不就可以了吗

Answer 4

在Form1中
Public Var1 as String在Form2中引用
label1.caption=from1.var1注意引用之前不要关闭from1（即 Unload from1)
可以Hind (即 form2.hind)

Answer 5

///form1///
Private sub form_load()
dim var1 as string
var1="ok!"
form2.Label1.Caption=var1
form2.show
End sub
这样就万事OK了！
给不给分呀！

Answer 6

///form1///
Private Sub Form_Load()
Dim var1 As String
var1 = "hello!"
Label1.Caption = var1
Form1.Hide
Form2.Show
End Sub///form2///
Private Sub Form_Load()
Label1.Caption = Form1.Label1.Caption
End Sub
这样也能搞电！
给分呀！

Answer 7

////////form2/////////////
Private sub form_load()
label1.caption=form1.var1
End sub

Answer 8

/////////form1/////////////
Private sub form_load()
dim var1 as string
var1="hello!"
form2.show
form2.label1.caption=var1
End sub

Answer 9

/////////form1/////////////
public var1 as string
Private sub form_load()
var1="hello!"
form2.show
End sub////////form2/////////////
Private sub form_load()
label1.caption=form1.var1
End sub  

Answer 10

在form里定义public或private的变量

Answer 11

为什么不用PUBLIC定义个全局变量

Answer 12

复贴子： 
回复人：　Jneu(沧海桑田)　(2001-9-28 13:18:54)  得0分 
////////form2/////////////
Private sub form_load()
label1.caption=form1.var1
End sub
 
回复人：　Jneu(沧海桑田)　(2001-9-28 13:19:44)  得0分 
dim var1 as string
/////////form1/////////////
Private sub form_load()
var1="hello!"
 
回复人：　Jneu(沧海桑田)　(2001-9-28 13:20:55)  得0分 
一定要给分哦！！！  
回复人：　T2(無藥可救)　(2001-9-28 13:22:33)  得0分 
把var1在Form1中定義為Public  
回复人：　ozw(沧浪客)　(2001-9-28 13:44:32)  得0分 
/////////form1/////////////
Private sub form_load()
dim var1 as string
var1="hello!"
form2.Label1.Caption=var1
form2.show
End sub 
回复人：　czang(czang)　(2001-9-28 13:44:35)  得0分 
定义全局变量  
回复人：　lihonggen()　(2001-9-28 14:20:21)  得0分 
同意ozw(沧浪客)  
回复人：　win911(☆洋☆)　(2001-9-28 14:26:52)  得0分 
定义一个public变量不就可以了吗  
回复人：　cuiyxy(沧海鲨鱼)　(2001-9-28 14:34:05)  得0分 
在Form1中
Public Var1 as String在Form2中引用
label1.caption=from1.var1注意引用之前不要关闭from1（即 Unload from1)
可以Hind (即 form2.hind)
 
回复人：　kangxin(天马星空)　(2001-9-28 14:39:40)  得0分 
同意楼上，是form1.hide吧？  
回复人：　piao616(飘)　(2001-9-28 15:16:54)  得0分 
///form1///
Private sub form_load()
dim var1 as string
var1="ok!"
form2.Label1.Caption=var1
form2.show
End sub
这样就万事OK了！
给不给分呀！
 
回复人：　piao616(飘)　(2001-9-28 15:26:41)  得0分 
///form1///
Private Sub Form_Load()
Dim var1 As String
var1 = "hello!"
Label1.Caption = var1
Form1.Hide
Form2.Show
End Sub///form2///
Private Sub Form_Load()
Label1.Caption = Form1.Label1.Caption
End Sub
这样也能搞电！
给分呀！
 
回复人：　piao616(飘)　(2001-9-28 15:29:17)  得0分 
一定要给分吆！否则嫁不出去！  
回复人：　siyuan79(荔枝（我是荔枝，你想吃荔枝吗？）)　(2001-9-28 15:36:49)  得0分 
////////form2/////////////
Private sub form_load()
label1.caption=form1.var1
End sub  
回复人：　xyk21(理想)　(2001-9-28 16:08:47)  得0分 
form2中这样调用:form1.变量  
回复人：　Random(随便)　(2001-9-28 16:12:54)  得0分 
/////////form1/////////////
Private sub form_load()
dim var1 as string
var1="hello!"
form2.show
form2.label1.caption=var1
End sub
 
回复人：　Random(随便)　(2001-9-28 16:15:16)  得0分 
/////////form1/////////////
public var1 as string
Private sub form_load()
var1="hello!"
form2.show
End sub////////form2/////////////
Private sub form_load()
label1.caption=form1.var1
End sub  
 
回复人：　itjune(小鱼儿)　(2001-9-28 16:19:46)  得0分 
在form里定义public或private的变量  
回复人：　ryuer(鱼)　(2001-9-29 11:32:43)  得0分 
为什么不用PUBLIC定义个全局变量  
回复人：　crystal2000(靠VB吃饭)　(2001-9-29 14:44:04)  得0分 
同意Random(随便)   

Answer 13

global var1 as string

Answer 14

使用Public Property Let 

Answer 15

To 山人
不能再使用Global了！

Answer 16

在FORM1中定义一个窗体属性：
PUBLIC VAR1 AS VARIANT
在FORM2中直接访问FORM1的这个属性就行了。
例：FORM2.CAPTION=FROM1.VAR1
OK；
也可对FORM1的属性VAR1写数据，作为窗体接口使用

Answer 17

/////////form1/////////////
Private sub form_load()
dim var1 as string
var1="hello!"
form1.tag=var1
form2.show
End sub////////form2/////////////
Private sub form_load()
label1.caption=form1.tag
End sub

Answer 18

var1 必须是public 然后才能在form2中调用