弱智的问题，求教

[dz08039]

有一个窗口，form1，上面有listbox1,怎么在Module里送数据显示。

Dim form1 As New Form1
form1.ListBox1.Items.Add(ok_string)

好象不行。

[hamadou]

Module Module1
Public Sub main()
Dim newform As New Form1()
newform.listbox1.items.add("11")
Application.Run(newform)
End Sub
End Module

[syeerzy]

有一个窗口，form1，上面有listbox1,怎么在Module里送数据显示。

Dim form1 As New Form1
form1.ListBox1.Items.Add(ok_string)

好象不行。



Dim form1 As New Form1()
form1.ListBox1.Items.Add(ok_string)

[dz08039]

没用啊，加（），会自动去掉的；还有那个form1已经显示了，Application.Run(newform)就出错了

[hamadou]

哦，你的意思是说form1显示后再调用函数来执行这种操作吧！
写一个函数，把form1的实例me传递过去，然后操作就可以了。
public sub a(byval sender as object)
dim c as form1=ctype(sender,form1)
c.listbox1.items.add("11")
end sub

////////////////////
调用时
a(me)就可以了。

[dz08039]

搞定，用惯vb6了，一时不能习惯，有更简单的方法吗？

[水如烟]

哈，最怕回答“弱智”的问题
万一答不对，自己岂不是更弱智了吗
所以碰到此类问题，答之要慎之又慎才是。

[JonasFeng]

hamadou(闵峰) :
很佩服你!
这个问题我之前也遇见过,后来我就是用同样的方法.但是费了我好长时间.而且最后还是问了别人啊
差距啊!

[hamadou]

呵呵，见笑了。可能刚开始都是一样的吧！互相帮助，互相学习！

[dz08039]

那每次显示都要送实例过去？好像比较麻烦。

[dz08039]

在问一下各位，以前6.0里的，debug.print xxx,在.net里怎么实现？谢谢

[dz08039]

求