小白用VB开发安卓程序_32views类型对象的妙用

所有的views类型可以看成是Views. 这样就可以方便的改变views的公共属性.

例如,下面的代码使 activity的所有直系子view 不可用:

For i = 0 To Activity.NumberOfViews - 1

    Dim v As View

    v = Activity.GetView(i)

    v.Enabled = False

Next

如果想禁用按钮，用如下代码::

For i = 0 To Activity.NumberOfViews - 1

    Dim v As View

    v = Activity.GetView(i)

    If v Is Button Then 'check whether it is a Button

        v.Enabled = False

    End If

Next