时间: 2021-07-31 作者:daque
余鑫铭 因为连年来计划机运用在书院的普遍,cai软硬件格外时髦。很多培养工作家在初尝进修vb的便宜后,也蠢蠢欲动,急于把本人的熏陶体味形成软硬件,普及熏陶功效。 大局部熏陶软硬件都有一个“机动/手动”按钮,进修者不妨采用体例机动一步一步往下实行,也可由本人手动遏制能否加入到下一步。同声,还该当供给进取向下翻页功效,以使进修者不妨自在遏制进修过程。 底下先谈一谈还好吗使系一致步一步机动运转。 开始要将熏陶进程领会为几何步,每一步由一段步调遏制。设一整型变量(如stepcount),在窗体承载时赋初值为0,用来指明将运转哪一段步调。在窗体中另设确定时器(如timer—step),在预订功夫后爆发一触发事变,使步调转入下一步。 主步调安排成如次方法: private sub run—step(bz as integer) select case bz case 1 timer—step.interval=20000 ′这一步中断的功夫 timer—step.enabled=true (本步的熏陶进程遏制步调) case 2 …… case 3 …… end select end sub private sub timer—step.timer() ′计时器事变 stepcount=stepcount+1 run—step stepcount ′挪用主步调 end sub 如许,计时器timer—step每触发一次,将使变量stepcount的值增1,在挪用进程run—step时加入下一步进修,而timer—step的触发功夫可在上一步的步调中设定,简直的interval值须要按照本质情景决定。 如要实行“机动/手动”切换,只需在窗体中符合场所放上一按钮,并在步调中设置一论理变量(如auto,其值为true时机动运转,为false时手动操纵),将上头的timer—step中事变窜改如次: private sub timer—step.timer() if auto then ′变量值为真时机动实行,要不计时器作废 stepcount=stepcount+1 run—step stepcount else timer—step.enable=false endif end sub 如许,只有在该按钮的click事变中实行语句:auto=not auto,鼠圈点击时,将对应的论理变量值取反,即可在“机动/手动”间切换。 有了上述功效还不够,由于进修者不确定一步一步举行究竟,有大概须要归来到上一步,或是跳过某一步。因为咱们在步调安排中运用了select case语句来确定运转哪一步,使遏制变得格外精巧。只需树立“上一步”按钮,在其click事变中使变量stepcount的值减1,并挪用run—step进程,即可归来至上一步:加入下一步可仿造处置,不过应将stepcount的值加1。固然,简直实行时要提防上一步的当场与下一步之间有什么各别,再不在步调中获得灵验遏制,如窗体中各控件的属性、场所等。