10.PaintPicture方法处理动画时无动感 如果使用PaintPicture方法处理动画，由于处理时间较长，可能看不到动感效果。为了 能形成动感，需要在该方法使用后立即调用DoEvents方法，将控制权交给Windows,再返 回程序，此时可刷新图形对象内的画面。 5.4典型例题 例5-1编程实现将学生学过的单词在列表框中显示出来。用户界面如下图5-1所示，要 求界面控件属性设置用代码实现，并实现(1)单击“增加单词”按钮，将文本框Txtl.Text 中的单词添加到列表框中并更新列表框中的单词数显示：(2)单击“删除单词”按钮，别除 列表框中被选中的项并更新列表框中的单词数显示：(3)单击“全部清除”按钮，删除列表 框的全部选择项并更新列表框中的单词数显示：(4)单击“退出”按钮，结束程序。 6单词记录本 -▣x 请输入单词 stuent 增加单词 单词数 册除单词 单词表： apple park 全部清除 people 退出 图5-1例5-1程序界面 解答： (1)新建工程，在窗体上添加3个标签框，2个文本框，1个列表框，4个命令按钮。 (2)为窗体的装载事件，编写事件过程，参照上图设置相关属性。 Private Sub Form Load() Labell.Caption="请输入单词" Label2.Caption="单词数" Command1.Caption="增加单词" Command2.Caption="删除单词" Command.3.Caption="全部清除" Command4.Caption="退出" List1.AddItem"china" List1.AddItem "child" List1.AddItem"apple" List1.AddItem "park" List1.AddItem"people" Textl.Text="m Text2.Text=Str(List1.ListCount)%$$ 97ef6g €% 5 5 & Õ‘0µGÕ!¿WÚ0:~Ûg岄&2¨ ~$Ÿ²0ÒS*Q % |½o 3$' 0©ÜÝÖ " #D'0îi jwô0»!:Þ[#$-./‘¼&
   §
8 ªwÁ¡©¡Ð¡Ôß*FTR h& šÎ¼€#
8 ŠR0S àμ kl DEÁ¡0¤Á¡78Ά&߇0©VW 99 Fß8&åF¤Œ[FßJTR78Ά‘߇0‘ FxF¤Œ[FßJTR78Άf6B‘‡0‘ f6›¤Œ[FßJTR7 8Ά᠇0›œwô& #
8 §
8 wôμ ½â5 78[Zvw0*+,¯8&  ?·0 ?VW0 ?0 ?¸¹& 782+,Eã0ªÓÔw0Ãį#kl_¶ & 5 *&%E#67   % AGäK<ßG   % AGßJG   # AG&ßG   # AG‘ßG   # AGf6B‘G   #  AGá G    ' ##,G! G    ' ##,G! #G    ' ##,GG    ' ##,GG    ' ##,GG   99AGG   99A*6 ' '&7