Public Class FormB
Inherits System.Windows.Forms.Form
......
Public frmA As FormA'这里不是得变成FormC了,可它不会自已变呀?
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.TextBox1.Text= frmA.TextBox1.Text'这里呢?
End Sub
End Class
在FormA中
Public Class FormA
Inherits System.Windows.Forms.Form
...
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim frmB As New FormB
frmB.frmA = Me'这里传递实例
frmB.ShowDialog()
End Sub
End Class
在FormB中,
Public Class FormB
Inherits System.Windows.Forms.Form
......
Public frmA As FormA
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.TextBox1.Text= frmA.TextBox1.Text
End Sub
End Class
Protected Overrides Function ProcessCmdKey(ByRef msg As System.Windows.Forms.Message, ByVal keyData As System.Windows.Forms.Keys) As Boolean
If keyData = Keys.F9 Then
MessageBox.Show("asdf")
End If
End Function