020105.htm
来自「提供一个VB学习教程,入门级。来源于网上」· HTM 代码 · 共 70 行
HTM
70 行
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>vb study</title><style>
<!--
td {font-size: 9pt}
A:link {text-decoration: none; color: #0033cc;font-size: 9pt}
A:visited {text-decoration: none; color: #0066CC;font-size: 9pt}
A:active {text-decoration: none; color: #ff0000; font-size: 9pt}
A:hover {text-decoration: underline; color: #000000;font-size: 9pt}
-->
</style>
</head>
<body>
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" width="98%">
<tr>
<td width="100%"><a href="#">你的位置</a>:<a href="http://www.xxby.com" target="_blank">华生小屋</a>--<a href="#">VB学习</a>--<a href="#">ActiveX控件</a></td>
</tr>
<tr>
<td width="100%">
<p align="center">主要ActiveX控件</td>
</tr>
<tr>
<td width="100%"><br>
进度条Progressbar控件:<br>
<br>
使用progressbar(进度条)控件。几个重要属性如下:<br>
min:进度条的起始值。也就是取小值,如1。 <br>
max:进度条的终止值。也就是最大值,如100<br>
value:任务进展到哪个数,即进度条的填充值。如:50,即填满一平。<br>
visible:决定进度条是否可见。<br>
value使用在任务的变化处,以不断改变其值,这样,就能直观地显示任务进度。<br>
b = Len(Text1.Text) 确定最大值<br>
ProgressBar1.Visible = True<br>
ProgressBar1.Min = 1<br>
ProgressBar1.Max = b<br>
ProgressBar1.Value = 1 初始化<br>
……<br>
For c = 1 To b<br>
d = Mid(Text1.Text, c, 1)<br>
Print #2, Asc(d) Xor x<br>
ProgressBar1.Value = c 跟踪进度<br>
Next c<br>
ProgressBar1.Value = 1<br>
ProgressBar1.Visible = False 任务结束<br>
progressbar控件的align属性:指定进度条在容器中的位置,0为任意,1为顶部,2为底部,3为左部,4为右部。 <br>
progressbar控件的orientation属性:进度条以水平放置(0)或垂直放置(1)。<br>
progressbar控件的scrolling属性:填充方式为虚线填充(0)或实线填充(1)。
<p align="center">
<br>
< <a href="020104.htm">上一页</a>--<a href="http://www.xxby.com" target="_blank">华生小屋</a>--<a href="020106.htm">下一页</a>
><br>
</p>
</td>
</tr>
</table>
</center>
</div>
</body>
</html>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?