1,VB怎么动态添加控件组?

我想通过循环添加一组安纽控件,可是做了半天总有错


说是数组下标错误,我已经先定义好了一个很大的数组(比如a(100) as command......吧)
如果有朋友知道这个问题,不妨指点一下我(最好写下来全部的步骤,本人从昨天开始研究VB的,虽然以前学过......)
我做的时候没有redim,是不是一定要redim呢?


2,VB中的RS有没有一个属性返回当前游标的位置(就是搜索结果的记录集中的第多少行数列)?
RS指的是recordset

3,VB中的rs怎么来判断当前的记录是否是第一条记录或最后一条记录?




如果有什么属性能直接解决问题2和问题3的话,希望大家不要吝啬,多多关照一下哦!~

[此贴子已经被作者于2006-3-15 4:01:43编辑过]

我回答第一个问题:要使用孔件族,就拉出一个孔件,然后用复制-粘贴就可以了.你可以看到在属性中有象TEXT1(0),TEXT1(1)这个就是孔件族了.
第二个问题和第三个问题等我想好了再给你.

问题一：
可先手工画一个按钮作为母控件，把它的Index设置为0
代码如下：
Dim i As Integer

For i = 1 To 5
Load Command1(i)
Command1(i).Top = Command1(i - 1).Top
Command1(i).Left = command1(i - 1).Left + command1(i - 1).Width
command1(i).Visible = True
Next

问题二：
rs.AbsolutePosition 用来判断当前游标指针的位置，不过这方法不是很方便，

问题三：

rs.Bof 判断是否处于首记录
IF rs.BOF = TRUE Then
如果处于首记录，则。。。。
End IF

rs.EOF 判断是否处于尾记录
IF rs.EOF = True Then
如果处于尾记录，则。。。。
End IF

版主说的比较准,要强调把Index设成0,不然不能建控件组

呵呵...控件数组要求名称属性要一致...而且是同类型的控件...

前两个问题没什么好说的了．可是第三个问题我不同意三楼斑竹的意见哦！

首先我认为：　BOF属性指示当前记录位于RS对象的第一个记录之前

　　　　　　　EOF属性指示当前记录位于RS对象的最后一个记录之后

所以　当rs.BOF＝true　时不能判断当前记录是首记录，它的下一条记录才是首记录

最后一条记录也是同理喽

感谢斑竹回答的问题
第一个问题我是缺少了load command(i)其他地方和斑竹的一样,但是就是编译不过去

关于第二个问题
我用rs.AbsolutePosition 来判断过,也许是我操作错误,当游标上移或者下移时候rs.AbsolutePosition 的属性的值是不变的,我做的时候的值是2

关于第三个问题

rs.bof应该是第一行的前面,而不是第一行,如果判断的话不容易,比如用if rs.bof then 来判断是不是第一行如果不是则上移,这样容易引起错误


关于第二个问题和第三个问题,如果没有直接的属性的话,是可以通过其他方法来实现的,不过我想如果有直接属性可以操作则最好,免得站用资源,现在看来只有用其他方法来实现了



还是谢谢大家对这些问题的解答



我还有一个问题就是文本框有没有属性可以限制输入的东西必须是数字?

如果有,请大家说一下
我知道在onchange事件中加正则判断可以做到,不过还是如果有属性能判断的话最好了.


谢谢大家