输入在form1中的text1中,显示在form2中的text1中,
关键代码,在form2窗体中
text1.text=form1.text1.text
画两个textbox控件,Form1 画text1 用于输入 Form2画text2,用于显示
Private Sub Text1_Change()
Form2.Text2.Text = Text1.Text '窗体名.控件名.属性
End Sub
;
定义一个模块
public pubStr as string
Private Sub Text1_Change()
pubSub= Text1.Text
End Sub
画一个时钟控件
Private Sub Timer1_Timer()
Text2.Text = pubStr
End Sub
Private Sub Command1_Click() ‘给第一个窗体的命令按钮加代码
Form2.Show ‘显示窗体2
Form2.Text1.Text = Form1.Text1.Text ’显示输入的内容
End Sub
这有什么烦恼,不是很简单嘛?有变化就触发显示,前提是你的两个窗体都LOAD在内存中。