visual_basic编程教学系列100例

《visual_basic编程教学系列100例》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、VisualBasic编程教学100例控件及技巧利用VB三维面板控件设计流动条2000-09-1500:00:00-王金柱yeskyVB提供了一个三维面板控件，利用这个控件可设计图形效果的立体界面，从而使应用程序的界面显得更生动、美观，该控件还可以设置各种形式的背景，然后在背景上显示各种形式的字符，令人感兴趣的是，使用三维面板控件，还可设计我们经常在安装程序中看到的表示安装进程的流动条，并可显示进程百分比，改变流动条的颜色等。一、介绍属性FloodColor：确定流动条的颜色，缺省为蓝色。FloodPe

2、rcent：显示当前过程如流动条进行的百分比，参数改变时显示的百分数和流动条的面积改变，设为一整型值，取值范围是0〜100。FloodShowpct：决定是否在三维面板控件上显示百分比，是一个逻辑值。为True时显示，为False时不显示。FloodType：表示用户对三维面板控件的使用方式。可取值有6个，如下所示：0缺省设置1表示流动条方向从左到右2表示流动条方向从右到左3表示流动条方向从上到下4表示流动条方向从下到上5表示使用指定的颜色从圆心向外画圆二、流动条设计如果在Windows3?X下，工具箱

3、中不存在三维面板控件,可选择File菜单中的“AddFile…”进行添加，在弹出的对话框中找到WindowsSystemH录，然后选定Threed?vbx文件即可,如果使用VB4.0,需在Tools菜单中选择CustomControls命令,选定Sheridan3dControls项，按OK按钮，可在工具箱中增加三维面板控件。启动VB3?0,在窗体中画一水平方向的长方形三维面板控件，按F4,在属性窗口中设置其Name为P3d、Bevellnner为2—Raised>FloodType为1>Floods

4、howPct为True,再在窗体中画一个按钮Commandl,双击该按钮，键入下面的代码：SubCommand1_Click()P3d?floodpercent=0ForN%=1To100IfN%$#@62;100THENExitSubEndIfP3d?FloodPercent二N%NextI%EndSub按F5,运行该程序，点击Command按钮，即可看到流动条效果。巧用VisualBasic的Timer控件2000-09-04--郑海波-VB编程乐园VisualBasic提供一个Timer控件，其本

5、质上是一个具有间隔时间设置所触发的时间程序，使我们可以将其隐藏在系统屮，以某一时间间隔触发相关程序。灵活地运用它可以取得很巧妙的效果。下面，我们举一个例子。我们可以在界面设计中设计出这样一种效果：一行文字在窗体中自左向右逐渐滚动，从右边“滚”出窗体的文字，又在左边逐渐出现。如此循环下去。类似电视上的滚动信息。这样可使你设计的软件显得很生动，极易引起用户的兴趣。其实，使用VisualBasic的Timer控件就可很容易地实现它。首先，我们在窗体中设置两个Label控件LabelKLabel2o这两个控件中

6、除Left属性外，其他属性设置成完全一样。这主要是为了实现循环滚动的效果。它们的Caption属性设置为要滚动显示的文字。另外再调整好其字体、大小和颜色等。在Form-Load过程中设置Label2.Left=-6240(窗体宽度)，Labell.Left=O。这样可保证La?bell的一-部分“滚”出窗体，则Label2的一部分就进入窗体。而形成循环滚动在窗体屮设置?/FONT$#@62;Timer控件。Timer控件的Interval属性决定滚动的速度，单位是毫秒。例如，我们设置成300,则每隔0.

7、3秒滚动一次。然后，在Time"—Timer()过程中加入如下程序：PrivateSubTimerl—Timer()Labell.Left=Label1.Left+50Label2.Left=Label2.Left+50IfLabell・Left>=6240ThenLabell.Left=-6240EndIfIfLabel2.Left>=6240ThenLabel2.Left=6240EndIfEndSub滚动效果就形成了，感兴趣的读者可以试试看。只要灵活运用Timer控件，我们还可以设计出更有趣的效果

8、。如用Timer控件控制按钮控件的Visible属性，形成闪烁按钮。用Timer控件控制显示不同的图象，形成简单的动画。VB的OPEN对话框控件图示功能扩充2000-08-1700:00:00••吠涯风铃p>VisualBasicForW泊dows(VB)提供了丰富的控件，但其提供的公用对话框控件在打开文件时(例如*.Bmp和*.Pcx等)不能显示文件内容即图像，本文给出了一个实例，可以模拟一些图形软件包在打开文件的同时显示图像，模拟和扩充