'2003-11-3
'通过公共变量在两个窗体间传递参数
'或者通过传递窗体来取的变量
'Author:MeetWeb
Public Class Sample1Form1
    Inherits System.Windows.Forms.Form

    Private Sub Sample1Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Label1.Text = Form_Load.common_string
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        '方法一:直接把Form对象传递到Form2
        Dim f2 As Sample1Form2 = New Sample1Form2(Me)
        f2.Show() '显示Form2
        Me.Hide() '隐藏Form1
    End Sub

End Class

'2003-11-3
'通过公共变量在两个窗体间传递参数
'或者通过传递窗体来取的变量
'Author:MeetWeb
Public Class Sample1Form2
    Inherits System.Windows.Forms.Form
 Private f1 As Sample1Form1     '定义smapleform1
    Public Sub New(ByVal f1 As Sample1Form1)
        '把smapleform1当变量传递给smaple1form2
        MyBase.New()
        '该调用是 Windows 窗体设计器所必需的。
        InitializeComponent()
        Me.f1 = f1
    End Sub
    Private Sub Sample1Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Label1.Text = Form_Load.common_string
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.Close()
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        '改变公共变量
        Form_Load.common_string = "Form2'String"
        '改变Form1's Label显示
        f1.Label1.Text = Form_Load.common_string
        '直接操作Form1的所有控件或者是公共变量
        Me.Close()
        '重新显示Form1
        Me.f1.Show()
    End Sub
End Class

' 2003-7-1
' 窗体间相互传递变量应用实例2
'通过查询窗体改变主窗体的DataGrid查询
' Author MeetWeb
Public Class Sample2Form1
    Inherits System.Windows.Forms.Form
    Public myFormFather As Sample2Form2 '定义主窗体
    Private Sub Sample2Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        '主窗体实例
        myFormFather = Me.Owner
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim findstring As String = "CustName='" + Me.TextBox1.Text + "'"
        '直接引用主窗体的dataview对象进行数据查询
        myFormFather.dataview1.RowFilter = findstring
    End Sub
End Class

' 2003-7-1
' 窗体间相互传递变量应用实例2[如果需要源码,请留下Email]
' Author MeetWeb
Public Class Sample2Form2
    Inherits System.Windows.Forms.Form

 Private WithEvents myDataSet As DataSet
    Public dataview1 As DataView
    Public Binding1 As BindingManagerBase
    Private Sub Sample2Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        SetUp()
    End Sub

#Region "Get DataBase"
    Private Sub SetUp()
        MakeDataSet()
        '使用dataview绑定数据
        dataview1 = New DataView(Me.myDataSet.Tables(0))
        Binding1 = Me.BindingContext(dataview1)
        '致DataGrid数据源为DataView,目的是为了查询做准备工作
        myDataGrid.DataSource = Me.dataview1

        AddCustomDataTableStyle()
    End Sub

    Private Sub AddCustomDataTableStyle()
        '设置DataGrid样式,具体请查看帮助
        Dim ts1 As DataGridTableStyle
        ts1 = New DataGridTableStyle()
        ts1.MappingName = "Customers"
        ' Set other properties.
        ts1.AlternatingBackColor = Color.LightGray
        Dim boolCol As DataGridColumnStyle
        boolCol = New DataGridBoolColumn()
        boolCol.MappingName = "Current"
        boolCol.HeaderText = "IsCurrent Customer"
        boolCol.Width = 150
        ts1.GridColumnStyles.Add(boolCol)
        Dim TextCol As DataGridColumnStyle
        TextCol = New DataGridTextBoxColumn()
        TextCol.MappingName = "custName"
        TextCol.HeaderText = "Customer Name"
        TextCol.Width = 250
        ts1.GridColumnStyles.Add(TextCol)
        Me.myDataGrid.RowHeaderWidth = 50 'use if no tablestyle
        myDataGrid.TableStyles.Add(ts1)

    End Sub
    Private Sub MakeDataSet()
        '新建立DataSet对象,并把数据录入
        ' Create a DataSet.
        myDataSet = New DataSet("myDataSet")
        ' Create two DataTables.
        Dim tCust As DataTable
        tCust = New DataTable("Customers")
        ' Create two columns, and add them to the first table.
        Dim cCustID As DataColumn
        cCustID = New DataColumn("CustID", GetType(System.Int32))
        Dim cCustName As DataColumn
        cCustName = New DataColumn("CustName")
        Dim cCurrent As DataColumn
        cCurrent = New DataColumn("Current", GetType(System.Boolean))
        tCust.Columns.Add(cCustID)
        tCust.Columns.Add(cCustName)
        tCust.Columns.Add(cCurrent)
        ' Add the tables to the DataSet.
        myDataSet.Tables.Add(tCust)
        Dim newRow1 As DataRow
        Dim i As Integer
        i = 1
        Do While (i < 4)
            newRow1 = tCust.NewRow
            newRow1("custID") = i
            ' Add the row to the Customers table.
            tCust.Rows.Add(newRow1)
            i = (i + 1)
        Loop
        ' Give each customer a distinct name.
        tCust.Rows(0)("custName") = "Alpha"
        tCust.Rows(1)("custName") = "Beta"
        tCust.Rows(2)("custName") = "Omega"
        ' Give the Current column a value.
        tCust.Rows(0)("Current") = True
        tCust.Rows(1)("Current") = True
        tCust.Rows(2)("Current") = False
        'set topleft corner point so we can locate the toprow
    End Sub

#End Region
    Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim FormChild As Sample2Form1 = New Sample2Form1() '定义查询窗口
        FormChild.Owner = Me   '把主窗体赋予查询窗体的Owner对象
        FormChild.Show()       '显示查询窗体
    End Sub
End Class

up

呵呵，通常来说建议使用控制器来保持一些状态值。不推荐在窗体之间传递变量。

up

非常感謝!

snakeyin@sohu.com

呵呵，喜欢

收藏

使用控制器来保持一些状态值;

給個例子吧, 謝謝!

谢谢

meetweb (niky) ,我想要源码学习
dzj001@371.net
谢谢!

我很想要源代码，能传点过来吗？
sshhe@21cn.com

谢谢!

我很想要源代码，能传点过来吗？
kp_w@163.com

收藏.

bucher(无人永生)说得对,对于具体的程序而言,各个控件必有其意义,控件之间如果通过控件的属性来传递参数,会使项目既简捷又有生命的感觉.只不过这需要严密些的设计,也就是尽量避免后期的改动,否则可能牵一发而动全身,改起来相当麻烦.而用全局变量是最简单最省事也最没效率的一种懒人办法.

您的信件已经成功发送到snakeyin@sohu.com,dzj001@371.net,sshhe@21cn.com,kp_w@163.com。

邮件已受到,谢谢!
我想问这种情况:一个解决方案,包含两个项目,项目1,项目2,项目1要调用项目2中form2的用户所选的DateTimePicker.text。
菜鸟有菜鸟的思路：
我先在FORM2中：
  Public Property gtime1() As String
        Get
            Return DateTimePicker1.Text
        End Get
        Set(ByVal Value As String)
            DateTimePicker1.Text = Value
        End Set
    End Property


然后把项目2生成DLL，在项目1引用，接着在项目1中的FORM1添加如下：

  Private mainformf As 项目2.Form2

  textbox1.text=mainformf.gtime1
错在哪里？

Private mainformf As new 项目2.Form2

jacky.cui@yuantong.cn
谢谢！

meetweb，能不能写一个关于oracle数据库中的修改和删除功能的代码呢，就是要从当前的LISTVIEW表中选中某一行，然后弹出一个窗体，在另一个窗体中完成该行对应数据的修改或者删除？非常感谢！

up一个！

kerling@tom.com
万分感谢！

给ye_zhq@163.com一份

控制器的概念，出现于MVC模型中
MVC将界面设计抽象为控制器、数据逻辑和显示组件

简单的讲，就是把逻辑和显示分开。ASP.NET就是一个典型的例子。.aspx文件负责显示界面，.vb文件负责后台的逻辑处理。对于窗体，我们通常仅仅用于显示和接收数据。
建议搂主看看MS的UIApplicationBlock，很好的解释了这个概念。

up

还行

up 我也要一个窗口传递的源代码，谢谢了
sjtu_wsj@163.com

接分

mark

给俺一份!
snailguo@163.com

superhzq@163.com
thanks

给我一份，谢谢
seekafei@sina.com

要一份参考，谢谢
polarlm@163.com

对我很有帮助，能否发一份给我，谢谢！！！
zhuqp@jmie.com.cn

young@topsee.com

对我很有帮助，能否发一份给我，谢谢！！！
tmjszx@263.net

您的信件已经成功发送到tmjszx@263.net。

先MARK

thanks!
liutf@catv.net

我也要,多谢了
soho_andy@hotmail.com

wangyang@mainone.com.cn
多谢了

好！

zhxiongying@163.com
多谢了

给小弟也来一份吧，多谢了！

我认为窗体间传值一般在winfrm用的比较多，特别是查询的时候：弹出一个窗体来设置查询条件并按下“查询”按钮来返回一个sql语句，其他的时候应该用到比较少吧，如果需要应多考虑使用属性吧...

本人的一点拙见，请勿见笑。

谢谢！

lchGO_ON@eyou.com

感谢楼主这样的大虾

lchGO_ON@eyou.com