'''''''Form1中没有相应控件保存数据的时候:
'================================
'Form1置顶写入以下(窗体Form1):
'----------------------------------------
Option Explicit
Public value_to_Form2 As String
'----------------------------------------
'将form1中计算出来的数据保存到 value_to_Form2 中。
'调用,例如要在Form2的Text1中显示数据(窗体Form2):
'----------------------------------------
Text1 = Form1.value_to_Form2
'----------------------------------------
'''''''Form1中有相应控件保存数据的时候:
'调用,例如数据在Form1的Label1控件中,Form2的Text1中显示数据(窗体Form2):
'----------------------------------------
Text1 = Form1.Label1
'----------------------------------------
================================================
计算出来的数据如果显示在text1.text中..
Form2.label1.Caption = text1.text
或者申明一个变量date = text1.text
Form2.label1.Caption = date
回答者:pridelsy - 初学弟子 一级 6-7 14:56
===============================================
对这位老兄的意见
你无聊嘛?复制给变量干什么?直接Form2.Label1.Caption = text1.text不就可以了
还有,你见过用date做变量的?date是什么你不知道?基本的常识都不懂也出来误导人
计算出来的数据如果显示在text1.text中..
Form2.label1.Caption = text1.text
或者申明一个变量date = text1.text
Form2.label1.Caption = date
补充楼上的。除了把数据赋值给Form2的对象只外,还要
From2.show
FORM2.TEXT1=FORM1.TEXT1