单击一个按钮,显示一个对话框,单击确定后从对话框中传回调用窗体一个值。
可以在对话框中放一个textbox1,并将其visible属性设置为false,用来作为中间存放所要传的值。例:调用窗体Form1中一个Button,一个名为Fke5m的textbox控件,要显示的对话框窗体为all_huyuan,在all_huyuan中放一个名为textbox1的textbox控件。用来作为中间存放所要传的值。代码如下:
![](/Images/OutliningIndicators/ContractedBlock.gif)
以上代码中Dim allhyform As New all_huyuan 为定义一个新all_huyuan窗体,用allhyform.ShowDialog()使all_huyuan以对话框的形式显示出来,等待用户操作,当用户操作完,关闭all_yuhuan窗体前将要传回的值赋予all_yuhuan窗体的TextBox1.Text,并且设置窗体的DialogResult属性为Windows.Forms.DialogResult.OK,如下:
Me.DialogResult = Windows.Forms.DialogResult.OK
然后执行Me.FKe5m.Text = allhyform.TextBox1.Text.ToString就将要传的值赋给了 调用窗体的FKe5m。
如果要在打开对话框窗体(all_huyuan)时,同时传给all_huyuan一个值,可以在定义一个新all_huyuan后将要传的值赋予新all_huyuan的textbox1.text属性。然后在all_huyuan的textbox1的TextBox1_TextChanged事件中利用传过来的值进行一系列你想要的操作。