高考问答怎么练胸肌和腹肌:VB 变量 问题
来源：百度文库 编辑：高考问答 时间：2024/04/28 18:34:54
image1
image2
...
...
image3
我怎麽用循环 操作这组变量呢？
thx
就是类似flash的
for(i=0;i<10;i++){
this["image"+i].text=xxxxx
}
想 顺序更改 image1的内容
image2的内容
image3的内
....
do until i=10
image[i].text=asdasdas
i=i+1
Loop
这里的image[i]是错误的，反正是那个意思。
正确怎麽写呢？
谢谢阿。
=====
在VB的 form 裏有10个checkbox 分别是
check1
check2
...
...check100
如何同时选中？
如何循环读取每个check的值？
可以利用控件数组来帮忙：
可新建一个image1，然后复制，再粘贴，系统提示“image1已经存在，是否建立控件数组”，选择“是”，可建立N个相同的控件，名字都是image1，这时只要：image1(i).xxx=xxx,即可改变你想要改变控件的属性了。如想要改变第一个控件的属性就输入：
image1(0).xxx =xxx
(不是吧，我开了这个页面，去聊QQ了，没刷新就回答了，怎么有人回答在我前面，晕死！)
Do Until Rs.Eof
'判断前六个字符是不是Dv_bbs
'再判断第Dv_bbs后面（即第7个字符）开始是不是数字
If Left(Rs("Table_Name"),6)="Dv_bbs" and IsNumeric(Mid(Rs("Table_Name"),7)) Then
'进行操作
Loop
IsNull 函数
返回 Boolean 值，指出表达式是否不包含任何有效数据 (Null)。
IsNumeric 函数
返回 Boolean 值，指出表达式的运算结果是否为数。
IsEmpty 函数
返回 Boolean 值，指出变量是否已经初始化
比如：
本示例使用 IsNull 函数检查变量值是否为 Null。
Dim MyVar, MyCheck
MyCheck = IsNull(MyVar) ' 返回 False。
MyVar = ""
MyCheck = IsNull(MyVar) ' 返回 False。
MyVar = Null
MyCheck = IsNull(MyVar) ' 返回 True。
Image变量就用数组来做啊，image（1），image（2），image（3）………………image（10）
循环就可以了。
如果是变量的话，可以归入一个数组
先定义这10个变量image1,image2,……iamge10
赋值时：
array(image1,image2,……iamge10)
或者你就写一个Sub，Function也可以