我模块中的函数是这样写的,希望控件能通过函数动态的加到各个窗体中
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的方法将我想要其他成员自动添加到界面上,请各位高手指点一下,不胜感激!
解决方案 »
- CB_SHOWDROPDOWN问题
- 如何将picturebox里的图片分割成几个小的图片并保存
- 求jpeg解码的原代码!!!!!!
- 各位大侠求救:ftp问题!为什么我用VB的Inet1控件连不上我本地的FTP UNix服务器
- 物联网--生产力的变革
- 帮我一下啦!
- InstallShield 6.30拿分(2)
- 哪里有出色的数据库站点吗???
- 江湖告急!!!!!!!!!!!!!!!!!!
- 如果我用open的方法去打开一个图象文件.怎么知道文件已经打开.急
- monthview控件的值如何返回给文本框?(text1.text=monthview1.value)触发什么样的事件?即在哪个事件中放置这个代码??谢了!!!
- 急!!!怎么在asp中实现关机
dim label1(20) as string
类型不对
dim label1(20) as label 好象也不行,不知道有没有其他的办法?