大橙子网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
先设计好Form1和Form2。在
创新互联建站一直通过网站建设和网站营销帮助企业获得更多客户资源。 以"深度挖掘,量身打造,注重实效"的一站式服务,以成都网站设计、网站建设、移动互联产品、成都全网营销服务为核心业务。10余年网站制作的经验,使用新网站建设技术,全新开发出的标准网站,不但价格便宜而且实用、灵活,特别适合中小公司网站制作。网站管理系统简单易用,维护方便,您可以完全操作网站资料,是中小公司快速网站建设的选择。
Private Class Form2中输入
Public Event ChangeValue(ByVal value As String) '是string还是其它的看你需要了
在Form2的Closed事件:
Private Sub Form2_Closed() Handles Me.Closed
RaiseEvent ChangeValue(TextBox1.Text)'如果是数值类型的话用下面这个渣圆:
'RaiseEvent ChangeValue(Val(TextBox1.Text))
End Sub
在Form中定义x:
Dim x As String '是String还是数值类型看你需要了,要和上如消塌桥烂面的统一
在Form1中写一个处理值的函数。值哪来?别管它
Private Sub ProcessValue(ByVal value As String) '记得统一
x = value
End Sub
在Form1中Button1的Click事件中:
Private Sub Button1_Click() Handles Button1.Click
Dim f2 As New Form2
AddHandler f2.ChangeValue,AddressOf ProcessValue
f2.Show()
End Sub
楼下的更简单啦
把Form2中Timer1的Modifiers设为腔告蠢Public
然友大后在点伍陪击事件里面写:
Dim
f2
As
New
Form2
f2.Show()
f2.Timer1.Enabled
=
True
再看看别人怎么说的。
在模块中引用到窗体中的控件,必须在该控件名之前由相应的窗体名作为前导,例如判竖:
1,要明罩引用窗体Form1中的控件TextBox1
MsgBox(Form1.TextBox1.Text)
2,要引用窗体掘槐大Form2中的控件TextBox1
MsgBox(Form2.TextBox1.Text)
给Form2增加一个自颂侍败定义属性试一下
在这个属性记录值
然野颤后在FORM1中给FORM2的这个属谈滚性写值不就行了