谢谢大家的回答。
我把我的问题写详细一点。
我有2个表单(form1,form2),form1中有一listview控件。然后在form1中:
代码:
在表单form1中:
public class form1
Private Sub butNewGroupID_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles butNewGroupID.Click
dim oForm as new form2
oForm.Show() '显示表单form2
End Sub
End class
然后在表单form2(注:此时form1,form2都是运行的,当然不能在form2中再建一个form1的实例)
public class form2
要在这里(表单form2)操作form1.listview的代码
end class
兄弟你不会照葫芦画瓢啊?
服!
----------------------------------------------------------
兄弟请听我道来:
--------------------------------
Public Class Form2
Inherits System.Windows.Forms.Form
Public frm1 As New Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
frm1.Show()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
frm1.Activate()
frm1.ListView1.Items.Add("XXX")
'frm1.ListView1.Items(0).SubItems.Add("xxx")
End Sub
这是在form2中操作form1
照这样是行。但没有满足我的要求。
------------------------------------
请看我的代码:
public class form1
Private Sub butNewGroupID_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles butNewGroupID.Click
Dim oForm As New form2()
oForm.Show()
End Sub
end class
public class form2
我要的是在这里操作form1.listview的代码
end class
Public Class Form2
Inherits System.Windows.Forms.Form
Public frm1 As New Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
frm1.Show()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
frm1.Activate()
frm1.ListView1.Items.Add("XXX")
'frm1.ListView1.Items(0).SubItems.Add("xxx")
回复人: Paradise_heida(学海无涯,回头是岸!)
Public Class Form1
Inherits System.Windows.Forms.Form
Public frm2 As New Form2
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
frm2.Show()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
frm2.Activate()
frm2.ListView1.Items.Add("XXX")
'frm2.ListView1.Items(0).SubItems.Add("xxx")
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
frm2.Show()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
frm2.Activate()
frm2.ListView1.Items.Add("XXX")
'frm2.ListView1.Items(0).SubItems.Add("xxx")
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button29.Click
frm2.Show()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button30.Click
frm2.Activate()
frm2.TreeView1.Width = 20
End Sub
Public Class Form1
Inherits System.Windows.Forms.Form
Dim frm As New Form3
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If frm.Visible = False Then
frm = New Form3
End If
frm.Activate()
frm.Show()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If frm.frm2.Visible = True Then
Me.TextBox1.Text = frm.frm2.TextBox1.Text
Else
Me.TextBox1.Text = "Form2 is not open"
End If
End Sub
End Class
Public Class Form3
Inherits System.Windows.Forms.Form
Public frm2 As New Form2
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If frm2.Visible = False Then
frm2 = New Form2
End If
frm2.Activate()
frm2.Show()
End Sub
End Class