关闭

针对vb中scriptcontrol 数组调用另类解决思路

标签: vbintegerstring
1041人阅读 评论(0) 收藏 举报
分类:

对于scriptcontrol的数组问题,网上的文章很少,有的用addobject添加类模块,这个觉得繁琐还是,其他的方法什么窗体的属性函数,我也没弄懂,那个大侠只顾自己,也没详细说,于是自己创立了一个方法如下,其实也很简单:

首先,定义数组 dim arr(3) as integer

                              arr(0)=0
                              arr(1)=1
                              arr(2)=2
                              arr(3)=3

然后用字符串将其复制进去 dim expStr as string
                                  expstr="dim arr(" & ubound(arr) &")" & vbcrlf  注意后面不要加as.....不然后面出错

                                 for i = 0 to ubound(arr)
                                      expstr=expstr & "arr(" & i ")=" & arr(i) & vbcrlf
                                 next i

这样把数组全部放到字符串变量中的,然后在调用数组的时候就不用说来直接最前面加上这个,然后用

                                 scriptcontrol1.addcode expstr

就可以了,想是想这样的,明天再试一下就知道了,应该没问题 

0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:134666次
    • 积分:1883
    • 等级:
    • 排名:千里之外
    • 原创:40篇
    • 转载:50篇
    • 译文:0篇
    • 评论:27条
    文章分类
    最新评论
    网络相关信息