VB的控件结构概述(2)

http://www.itjxue.com  2015-07-17 21:29  来源:未知  点击次数: 

  在执行 For 循环时,Visual Basic

  1. 设置 counter 等于 start。

  2. 测试 counter 是否大于 end。若是的话,则 Visual Basic 退出循环。 (若 increment 为负,则 Visual Basic 测试 counter 是否小于 end。)

  3. 执行语句。

  4. counter 增加一,或者增加 increment(如果已指定的话)。

  5. 重复步骤 2 到步骤 4。

  以下代码打印出所有有效的屏幕字体名:

  Private Sub Form_Click ()

  Dim I As Integer

  For i = 0 To Screen.FontCount

  Print Screen.Fonts (i)

  Next

  End Sub

  在 VCR 示例应用程序中,HighlightButton 过程使用 For...Next 循环,一步步经过 VCR 窗体的控件集合,并显示适当的 Shape 控件:

  Sub HighlightButton (MyControl As Variant)

  Dim i As Integer

  For i = 0 To frmVCR.Controls.Count - 1

  If TypeOf frmVCR.Controls (i) Is Shape Then

  If frmVCR.Controls (i).Name = MyControl Then

  frmVCR.Controls (i).Visible = True

  Else

  frmVCR.Controls (i).Visible = False

  End If

  End If

  Next

  End Sub

  For Each...Next

  For Each...Next 循环与 For...Next 循环类似,但它对数组或对象集合中的每一个元素重复一组语句,而不是重复语句一定的次数。如果不知道一个集合有多少元素, For Each...Next 循环非常有用。

  For Each...Next 循环的语法如下:

  For Each element In group

  statements

  Next elementt

  例如,下面的子过程打开 Biblio.mdb,把每一个表的名字加到列表框中。

  Sub ListTableDefs ()

  Dim objDb As Database

  Dim MyTableDef as TableDef

  Set objDb = OpenDatabase("c:\vb\biblio.mdb", _

  True, False)

  For Each MyTableDef In objDb.TableDefs ()

  List1.AddItem MyTableDef.Name

  Next MyTableDef

  End Sub

(责任编辑:IT教学网)

更多

推荐编程综合文章