首页 > 学院 > 开发设计 > 正文

VisualBasic控件结构概述

2019-11-18 17:43:35
字体:
来源:转载
供稿:网友

    循环结构
    循环结构允许重复执行一行或数行代码。VisualBasic支持的循环结构有:
    1.Do...Loop
    2.For...Next
    3.ForEach...Next

    Do...Loop
    用Do循环重复执行一语句块,且重复次数不定。Do...Loop语句有几种演变形式,但每种都计算数值条件以决定是否继续执行。如同If...Thencondition必须是一个数值或者值为True(非零)或False(零)的表达式。在下面的Do...Loop循环中,只要condition为True就执行statements。
    DoWhilecondition
       statements

    Loop
    当VisualBasic执行这个Do循环时会首先测试condition。如果condition为False(零),则跳过所有语句。如果condition为True(非零),则VisualBasic执行语句,然后退回到DoWhile语句再测试条件。
    因此,只要condition为True或非零,循环可以随意执行多少次。如果condition一开始便为False,则不会执行语句。例如,以下过程将计算某一目标字符串在另一字符串中出现的次数,只要发现目标串就执行循环:
    FunctionCountStrings(longstring,target)
        Dimposition,count
        position=1
        DoWhileInStr(position,longstring,target)
           position=InStr(position,longstring,target)_
             1
            count=count 1
        Loop
        CountStrings=count
    EndFunction
    如果目标字符串未出现在另一个字符串中,则InStr返回0,而且不再执行循环。
    Do...Loop语句的另一种演变形式是先执行语句,然后在每次执行后测试condition。这种形式保证statements至少执行一次:
    Do
       statements
    LoopWhilecondition
    其它两种演变形式类似于前两个,所不同的是,只要condition为False而不是True,它们就执行循环。

    For...Next000
    在不知道循环内需要执行多少次语句时,宜用Do循环。但是,在知道要执行多少次时,则最好使用For...Next循环。与Do循环不同,For循环使用一个叫做计数器的变量,每重复一次循环之后,计数器变量的值就会增加或者减少。For循环的语法如下:
    Forcounter=startToend[Stepincrement]
      statements
    Next[counter]
    参数Counter、Start、end和increment都是数值型的。
    注意increment参数可正可负。如果increment为正,则Start必须小于等于end,否则不能执行循环内的语句。如果increment为负,则Start必须大于等于end,这样才能执行循环体。如果没有设置Step,则increment缺省值为1。
    在执行For循环时,VisualBasic
    1.设置counter等于start。
    2.测试counter是否大于end。若是的话,则VisualBasic退出循环。(若increment为负,则VisualBasic测试counter是否小于end。)
    3.执行语句。
    4.counter增加一,或者增加increment(如果已指定的话)。
    5.重复步骤2到步骤4。
    以下代码打印出所有有效的屏幕字体名:
    PRivateSubForm_Click()
       DimIAsInteger
       Fori=0ToScreen.FontCount
         PrintScreen.Fonts(i)
       Next
    EndSub
    在VCR示例应用程序中,HighlightButton过程使用For...Next循环,一步步经过VCR窗体的控件集合,并显示适当的Shape控件:
    SubHighlightButton(MyControlAsVariant)
       DimiAsInteger
       Fori=0TofrmVCR.Controls.Count-1
          IfTypeOffrmVCR.Controls(i)IsShapeThen
            IffrmVCR.Controls(i).Name=MyControlThen
               frmVCR.Controls(i).Visible=True
            Else
               frmVCR.Controls(i).Visible=False
            EndIf
          EndIf
       Next
    EndSub

    ForEach...Next
    ForEach...Next循环与For...Next循环类似,但它对数组或对象集合中的每一个元素重复一组语句,而不是重复语句一定的次数。如果不知道一个集合有多少元素,ForEach...Next循环非常有用。
    ForEach...Next循环的语法如下:
    ForEachelementIngroup
      statements
    Nextelementt
    例如,下面的子过程打开Biblio.mdb,把每一个表的名字加到列表框中。
    SubListTableDefs()
      DimobjDbAsDatabase
      DimMyTableDefasTableDef
      SetobjDb=OpenDatabase("c:/vb/biblio.mdb",_
      True,False)
      ForEachMyTableDefInobjDb.TableDefs()
        List1.AddItemMyTableDef.Name
        NextMyTableDef
      EndSub
    请记住使用ForEach...Next时的几点限制:
    1.对集合,element只能是Variant变量,或一般的Object变量,或“对象浏览器”中列出的对象。
    2.对数组,element只能是Variant变量。
    3.ForEach...Next不能与用户自定义类型的数组一起使用,因为Variant不可能包含用户自定义类型。

    使用控制结构
    嵌套控制结构可以把控制结构放入另一个控制结构之内(例如在For...Next循环中的If...Then块)。一个控制结构内部包含另一个控制结构叫做nest(嵌套)。在VisualBasic中,控制结构的嵌套层数没有限制。按一般习惯,为了使判定结构和循环结构更具可读性,总是用缩排方式书写判定结构或循环的正文部分。
    例如,下面的过程要把打印机和屏幕共有的字体名全部打印出来:
    PrivateSubForm_Click()
       DimSFont,PFont
       ForEachSFontInScreen.Fonts()
         ForEachPFontInPrinter.Fonts()
           IfSFont=PFontThen
             PrintSFont
           EndIf
         NextPFont
       NextSFont
    EndSub
    注意,第一个Next关闭了内层的For循环,而最后一个For关闭了外层的For循环。同样,在嵌套的If语句中,EndIf语句自动与最靠近的前一个If语句配对。嵌套的Do...Loop结构的工作方式也是一样的,最内圈的Loop语句与最内圈的Do语句匹配。

    退出控制结构
    用Exit语句可以直接退出For循环、Do循环、子过程或函数过程。Exit语句的语法很简单:ExitFor在For循环中出现的次数没有限制,ExitDo在Do循环中出现的次数也没有限制。
    Forcounter=startToend
      [Stepincrement]
      [statementblock]
      [ExitFor]
      [statementblock]
    Next[counter[,counter][,...]]
    Do[{While|Until}condition]
      [statementblock]
      [ExitDo]
      [statementblock]

    Loop
    ExitDo语句可以在Do循环语法的所有版本中使用。
    ExitFor和ExitDo非常有用,因为它有时适于立即退出循环,而且不再执行循环中的任何进一步迭代或者语句。例如,在前面的打印屏幕和打印机共有字体的例子中,程序不断将打印机字体和给定的屏幕字体作比较,甚至在已经找到了一个相符的打字机字体后还在继续寻找。对这个函数有一个效率更高的改进版,在此,只要找到相匹配的字体后就立即退出循环:
    PrivateSubForm_Click()
      DimSFont,PFont
      ForEachSFontInScreen.Fonts()
        ForEachPFontInPrinter.Fonts()
          IfSFont=PFontThen
            PrintSfont
            ExitFor        '退出内圈循环。
          EndIf
        NextPFont
      NextSFont
    EndSub
    正如此例所表明的,Exit语句几乎总是出现在If语句或SelectCase语句内部,而If语句或SelectCase语句在循环内嵌套。
    用Exit语句中断循环时,计数器变量的值会因退出循环的方式而不同:
    1.在完成循环时,计数器的值等于上限值加上步进值。
    2.在提前退出循环时,计数器变量保持其值,并遵从有关取值范围的一般规则。
    3.在集合之外叠代时,如果计数器变量为Object类型,则其值为Nothing;如果计数器变量为Variant类型,则其值为Empty。

    退出子过程或函数过程
    也可从控制结构内部退出过程。ExitSub和ExitFunction的语法,和上一节“退出控制结构”中的ExitFor和ExitDo相似。ExitSub可以出现在子过程主体内的任何地方,出现的次数随需要而定。
    当过程已完成每个任务并可直接返回时,ExitSub和ExitFunction是非常有用的。例如,如果想改动前面的例子,使得对查找到的打印机和屏幕的共有字体,只打印其中的第一个,则可用ExitSub:
    PrivateSubForm_Click()
       DimSFont,PFont
       ForEachSFontInScreen.Fonts()
         ForEachPFontInPrinter.Fonts()
           IfSFont=PFontThen
              PrintSfont
              ExitSub          '退出过程。
           EndIf
         NextPFont
       NextSFont
    EndSub

->


发表评论 共有条评论
用户名: 密码:
验证码: 匿名发表