要想frm1上的button1的名字与frm2上的textbox1.text上的时时一样就要先启动frm2
把frm2设置为启动项
窗体2
Load事件
dim f1 as new frm1
f1.show
再用frm2的textbox1_textchanged事件
f1.button1.text=textbox1.text
或者先启动模块,把模块设置为启动项
再模块中写入
public f1 as new frm1
sub Main()
Application.Run(f1)
end sub
Public WriteOnly Property MyText()
Set(ByVal Value)
Button1.Text = Value
End Set
End Property
在f2的代码中,Inherits System.Windows.Forms.Form下面写入
Dim Myf1 As f1
修改f2_Load
Private Sub f2_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
Myf1 = New f1
Myf1.Show()
End Sub
f2中加入代码
Private Sub TextBox_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
Try
f1.MyText = TextBox.Text
Catch
End Try
End Sub