1.6w+
社区成员
- 全部
- VBS
- .NET技术
- VBA
- VB网络编程
- VB多媒体
- VB数据库
- VB控件
- VB COM/DCOM
- VB基础类
- VB API
- 问答
弱智的问题，求教
有一个窗口，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)
好象不行。
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
dz08039 2005-04-07
求
dz08039 2005-04-04
在问一下各位，以前6.0里的，debug.print xxx,在.net里怎么实现？谢谢
dz08039 2005-04-04
那每次显示都要送实例过去？好像比较麻烦。
hamadou 2005-04-04
呵呵，见笑了。可能刚开始都是一样的吧！互相帮助，互相学习！
JonasFeng 2005-04-04
hamadou(闵峰) :
很佩服你!
这个问题我之前也遇见过,后来我就是用同样的方法.但是费了我好长时间.而且最后还是问了别人啊
差距啊!
很佩服你!
这个问题我之前也遇见过,后来我就是用同样的方法.但是费了我好长时间.而且最后还是问了别人啊
差距啊!
水如烟 2005-04-04
哈，最怕回答“弱智”的问题
万一答不对，自己岂不是更弱智了吗
所以碰到此类问题，答之要慎之又慎才是。
万一答不对，自己岂不是更弱智了吗
所以碰到此类问题，答之要慎之又慎才是。
dz08039 2005-04-04
搞定，用惯vb6了，一时不能习惯，有更简单的方法吗？
hamadou 2005-04-03
哦，你的意思是说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)就可以了。
写一个函数，把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 2005-04-03
没用啊，加（），会自动去掉的；还有那个form1已经显示了，Application.Run(newform)就出错了
syeerzy 2005-04-02
有一个窗口，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)
Dim form1 As New Form1
form1.ListBox1.Items.Add(ok_string)
好象不行。
Dim form1 As New Form1()
form1.ListBox1.Items.Add(ok_string)
hamadou 2005-04-02
Module Module1
Public Sub main()
Dim newform As New Form1()
newform.listbox1.items.add("11")
Application.Run(newform)
End Sub
End Module
Public Sub main()
Dim newform As New Form1()
newform.listbox1.items.add("11")
Application.Run(newform)
End Sub
End Module
