我模块中的函数是这样写的,希望控件能通过函数动态的加到各个窗体中
public sub getinfo(byval sqlstr as string,byref label1() as label,byref text1() as textbox)
for i=0 to 10
load label1(i)
load text1(i)
label1(i).caption=.......
.........................
next
end sub我在窗体上是先手工加上去了一个label1和一个text1,index都定为20,表示定义了一个label和text数组
在窗体的代码中是这样写的
private sub form_load()
getinfo(sqlstr,label1(),text1())
end sub程序运行时老是报错,它好像不认我手工加上去的控件数组,我如果在窗体中重新定义数组,如 dim label1(20) as string,
它又不能用load的方法将我想要其他成员自动添加到界面上,请各位高手指点一下,不胜感激!
public sub getinfo(byval sqlstr as string,byref label1() as label,byref text1() as textbox)
for i=0 to 10
load label1(i)
load text1(i)
label1(i).caption=.......
.........................
next
end sub我在窗体上是先手工加上去了一个label1和一个text1,index都定为20,表示定义了一个label和text数组
在窗体的代码中是这样写的
private sub form_load()
getinfo(sqlstr,label1(),text1())
end sub程序运行时老是报错,它好像不认我手工加上去的控件数组,我如果在窗体中重新定义数组,如 dim label1(20) as string,
它又不能用load的方法将我想要其他成员自动添加到界面上,请各位高手指点一下,不胜感激!
解决方案 »
- 怎么将一个窗口查询到的一条记录,传给另一个窗体
- 关于向文本框中模拟输入数据的问题
- 设置qq2009登录界面的设置文件在哪儿啊?
- 微软已经决定不在对VB提供技术支持,不知道大家怎么看这个问题?
- 全局变量问题!
- 请各位大哥,帮一下小弟吧!如何实现数据批量录入呀!我把每个字段对应一个文本框,但一次只能存入数据库中一条记录
- 请教高手VB6 中如何实现结构异常处理(SEH)?
- 怎么添加ADO控件到组件面板里面呢
- 各位高手,看看我的工资软件价值如何?
- 文本框的问题
- monthview控件的值如何返回给文本框?(text1.text=monthview1.value)触发什么样的事件?即在哪个事件中放置这个代码??谢了!!!
- 急!!!怎么在asp中实现关机
dim label1(20) as string
类型不对
dim label1(20) as label 好象也不行,不知道有没有其他的办法?