Winform中对话框回传调用窗体一个值。

　　  单击一个按钮，显示一个对话框，单击确定后从对话框中传回调用窗体一个值。

可以在对话框中放一个textbox1，并将其visible属性设置为false,用来作为中间存放所要传的值。例：调用窗体Form1中一个Button,一个名为Fke5m的textbox控件，要显示的对话框窗体为all_huyuan,在all_huyuan中放一个名为textbox1的textbox控件。用来作为中间存放所要传的值。代码如下：

Code
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim allhyform As New all_huyuan
    If allhyform.ShowDialog() = Windows.Forms.DialogResult.OK  Then
         Me.FKe5m.Text = allhyform.TextBox1.Text.ToString
End if 
End sub

 

以上代码中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事件中利用传过来的值进行一系列你想要的操作。

转载于:https://www.cnblogs.com/chybin500/archive/2009/04/12/1434076.html