金沙澳门登陆网站-注册地址

金沙澳门登陆
设为金沙澳门登陆网站 | 加入收藏 | 网站地图
 学校金沙澳门登陆网站 | 学校先容 | 资讯中心 | 金沙管理 | 党建工作 | 师生园地 | 金沙部门 | 招生就业 | 专题网站 | 对外交流 
师生园地
 名师风采 
 课堂内外 
 班级网站 
 心理健康 
 优秀学子 
当前位置: 学校金沙澳门登陆网站>>师生园地>>课堂内外>>计算机世界>>正文
利用VB三维面板控件设计流动条
2014-04-28 17:00     (阅读次数:)

VB提供了一个三维面板控件,利用这个控件可设计图形效果的立体界面,从而使应用程序的界面显得更生动、美观,该控件还可以设置各种形式的背景,然后在背景上显示各种形式的字符,令人感兴趣的是,使用三维面板控件,还可设计大家经常在安装程序中看到的表示安装进程的流动条,并可显示进程百分比,改变流动条的颜色等。  一、先容属性   FloodColor:确定流动条的颜色,缺省为蓝色。   FloodPercent:显示当前过程如流动条进行的百分比,参数改变时显示的百分数和流动条的面积改变,设为一整型值,取值范围是0~100。   FloodShowpct:决定是否在三维面板控件上显示百分比,是一个逻辑值。为 True时显示,为False时不显示。   FloodType:表示用户对三维面板控件的使用方式。可取值有 6个,如下所示:    0 缺省设置    1 表示流动条方向从左到右    2 表示流动条方向从右到左    3 表示流动条方向从上到下    4 表示流动条方向从下到上    5 表示使用指定的颜色从圆心向外画圆  二、流动条设计   如果在Windows3X下,工具箱中不存在三维面板控件,可选择File菜单中的“Add File…”进行添加,在弹出的对话框中找到WindowsSystem目录,然后选定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%>100 THEN    Exit Sub    End If    P3dFloodPercent=N%    Next I%    End Sub  按F5,运行该程序,点击Command按钮,即可看到流动条效果。

关闭窗口

金沙澳门登陆网站  地址:江苏省张家港市沙洲西路109号
ICP备案号:金沙澳门登陆网站-注册地址

XML 地图 | Sitemap 地图