Access交流中心

北京 | 上海 | 天津 | 重庆 | 广州 | 深圳 | 珠海 | 汕头 | 佛山 | 中山 | 东莞 | 南京 | 苏州 | 无锡 | 常州 | 南通 | 扬州 | 徐州 | 杭州 | 温州 | 宁波 | 台州 | 福州 | 厦门 | 泉州 | 龙岩 | 合肥 | 芜湖 | 成都 | 遂宁 | 长沙 | 株洲 | 湘潭 | 武汉 | 南昌 | 济南 | 青岛 | 烟台 | 潍坊 | 淄博 | 济宁 | 太原 | 郑州 | 石家庄 | 保定 | 唐山 | 西安 | 大连 | 沈阳 | 长春 | 昆明 | 兰州 | 哈尔滨 | 佳木斯 | 南宁 | 桂林 | 海口 | 贵阳 | 西宁 | 乌鲁木齐 | 包头 |

Me.Controls.Item(i).Visible = True中"Item(i)“意思是什么

阿坤  发表于:2014-04-30 09:53:12  
复制

Me.Controls.Item(i).Visible = True中"Item(i)“意思是什么,特别这个"i"代表什么,如何应用?

 

Top
一杯绿茶 发表于:2014-04-30 14:38:05
你要把代码补全才能给你解释,这个应该是个变量。

阿坤 发表于:2014-04-30 18:32:59

设置控件可见性

Dim i, ii As Integer

For ii = 3 To 10

     Me.Controls.Item(ii).Visible = True

Next

For i = 11 To 22

 

     Me.Controls.Item(i).Visible = False

Next

按特殊名在VBA中设置控件的可见性:

For i = 27 To 47

  If Me.Controls.Item(i).Name Like "A*" Then

     Me.Controls.Item(i).Visible = False

  End If

    

Next

这里的"Item(i)"意思是什么,特别这个"i"代表什么,如何应用?



小赵 发表于:2014-04-30 21:46:57

第一句dim i as integer   定义i为整型。 如:数字1,2,3,



蟹仔 发表于:2014-04-30 22:04:48
这个太简单了,他就是一个控件数组

vb Form容器的控件集合来使用控件数组:
在Form1中添加三个TextBox控件,名称分别为:TextBox1、TextBox2、TextBox3,一个Button控件。
双击Button,输入如下代码:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ‘下面的语句是通过数组元素的下标来访问Form中的每一个元素。
        Me.Controls.Item(0).Text = "集合中的第一个元素"
        Me.Controls.Item(1).Text = "集合中的第二个元素"
        Me.Controls.Item(2).Text = "集合中的第三个元素"
        Me.Controls.Item(3).Text = "集合中的第四个元素"
End Sub
运行项目后,点击Button,看到的结果是:Form1中的所有控件(包括Button自己)的Text属性都被修改了,同时还发现,最后加入的的控件变成了集合中的第一个元素(下标为0)。这个结果说明:
Form1中的所有控件已经自动构成了一个控件集合(控件数组),这个特点使得建立控件数组变得非常简单。
在访问这些控件时,除了可以通过控件名称直接访问外,还可以通过Contro.Item(n)属性按下标访问集合中的每一个控件


复制百度搜索。


阿坤 发表于:2014-05-02 10:14:22

什么是下标,在窗体属性里是指哪个属性



阿坤 发表于:2014-05-02 10:59:38

上面的例子在窗体中报错:

有没示例?



煮江品茶 发表于:2014-05-08 16:04:37

不是所有控件都有Text属性的


你可以这样玩:


dim ctrl as contrl

dim i as long

i=0

for each ctrl in me.controls  

     msgbox  "me.Controls.Item(" & i & ")的控件名称:" & ctrl.name  & " 控件类型:" & ctrl.controltype

    i=i+1

next


或者这样玩:

dim i as long

for i=0 to me.controls.count-1

     msgbox "me.Controls.Item(" & i & ")的控件名称:" & me.Controls.Item(i).name & " 控件类型:" &  me.Controls(i).controltype   '注意: me.Controls(i)=me.Controls.Item(i)

next


关于此问题的更多理解,请参见:http://www.accessoft.com/article-show.asp?id=7655



总记录:7篇  页次:1/1 9 1 :