Visual_Basic编程教学系列100例.docVIP

Visual Basic编程100例控件及技巧利用VB三维面板控件设计流动条2000-09-15 00:00:00· 王金柱·yesky 　　VB提供了一个三维面板控件，利用这个控件可设计图形效果的立体界面，从而使应用程序的界面显得更生动、美观，该控件还可以设置各种形式的背景，然后在背景上显示各种形式的字符，令人感兴趣的是，使用三维面板控件，还可设计我们经常在安装程序中看到的表示安装进程的流动条，并可显示进程百分比，改变流动条的颜色等。 　　一、介绍属性 　　FloodColor：确定流动条的颜色，缺省为蓝色。 　　FloodPercent：显示当前过程如流动条进行的百分比，参数改变时显示的百分数和流动条的面积改变，设为一整型值，取值范围是0～100。 　　FloodShowpct：决定是否在三维面板控件上显示百分比，是一个逻辑值。为 True时显示，为False时不显示。 　　FloodType：表示用户对三维面板控件的使用方式。可取值有 6个，如下所示： 　　0　缺省设置 　　1　表示流动条方向从左到右 　　2　表示流动条方向从右到左 　　3　表示流动条方向从上到下 　　4　表示流动条方向从下到上 　　5　表示使用指定的颜色从圆心向外画圆 　　二、流动条设计 　　如果在Windows3？X下，工具箱中不存在三维面板控件，可选择File菜单中的“Add File…”进行添加，在弹出的对话框中找到Windows\System目录，然后选定Threed？vbx文件即可，如果使用VB4.0，需在Tools菜单中选择 Custom Controls命令，选定Sheridan 3d Controls项，按OK按钮，可在工具箱中增加三维面板控件。 　　启动VB3？0，在窗体中画一水平方向的长方形三维面板控件，按F4，在属性窗口中设置其Name为P3d、Bevellnner为2－Raised、FloodType为1、FloodshowPct为True，再在窗体中画一个按钮Command1，双击该按钮，键入下面的代码： 　　Sub Command1_Click() 　　P3d？floodpercent=0 　　For N％=1 To 100 　　If N％$#@62;100 THEN 　　Exit Sub 　　End If 　　P3d？FloodPercent=N％ 　　Next I％ 　　End Sub 　　按F5，运行该程序，点击Command按钮，即可看到流动条效果。 巧用Visual Basic的Timer控件 2000-09-04· ·郑海波··VB编程乐园 Visual Basic提供一个Timer控件，其本质上是一个具有间隔时间设置所触发的时间程序，使我们可以将其隐藏在系统中，以某一时间间隔触发相关程序。灵活地运用它可以取得很巧妙的效果。下面，我们举一个例子。　　我们可以在界面设计中设计出这样一种效果：一行文字在窗体中自左向右逐渐滚动，从右边“滚”出窗体的文字，又在左边逐渐出现。如此循环下去。类似电视上的滚动信息。这样可使你设计的软件显得很生动，极易引起用户的兴趣 。其实，使用Visual Basic的Timer控件就可很容易地实现它。　　首先，我们在窗体中设置两个Label控件Label1、Label2。这两个控件中除Left属性外，其他属性设置成完全一样。这主要是为了实现循环滚动的效果。它们的Caption属性设置为要滚动显示的文字。另外再调整好其字体、大小和颜色等。在Form－Load过程中设置Label2．Left＝－6240（窗体宽度），Label1．Left＝0。这样可保证La？bel1的一部分“滚”出窗体，则Label2的一部分就进入窗体。而形成循环滚动在窗体中设置?/FONT$#@62;Timer控件。Timer控件的Interval属性决定滚动的速度，单位是毫秒。例如，我们设置成300，则每隔0．3秒滚动一次。然后，在Timer1－Timer（）过程中加入如下程序：Private Sub Timer1－Timer（）Label1．Left＝Label1．Left＋50Label2．Left＝Label2．Left＋50If Label1．Left＞＝6240 ThenLabel1．Left＝－6240End IfIf Label2．Left＞＝6240 ThenLabel2．Left＝6240End IfEnd Sub　　滚动效果就形成了，感兴趣的读者可以试试看。只要灵活运用Timer控件，我们还可以设计出更有趣的效果。如用Timer控件控制按钮控件的Visible属性，形成闪烁按钮。用Timer控件控制显示不同的图象，