📄 020111.htm
字号:
<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>
位图裁剪控件PictureClip控件 <br>
<br>
位图裁剪控件pictureclip（在MS pictureclip controls 6.0中）： 它主要只有三个属性：<br>
Cols--裁剪列数（形如"皿"）；<br>
Rows--裁剪行数（形如"目"）。<br>
GraphicCell属性：存放各个裁剪图的数组，通过引用格式： "pictureclip1.graphiccell(下标）" 来引用每一幅经过裁剪得到的图片（其下标从0开始）。<br>
用个例子来说明： <br>
Dim lxn As Integer '裁剪图的下标变量 <br>
Private Sub Form_Load() <br>
lxn = 0 初始化引用10幅剪裁图中的第1幅 <br>
PictureClip1.Cols = 1 '将位图切分成1条竖条（也就是不变） PictureClip1.Rows = 10 '将位图切分成10条横条 PictureClip1.Picture = LoadPicture("c:\我的文档\my webs\红楼梦2.bmp") <br>
Timer1.Interval = 60 <br>
End Sub <br>
Private Sub Timer1_Timer() <br>
Image1.Picture = PictureClip1.GraphicCell(lxn) '依次引用每一幅裁剪图 <br>
lxn = lxn + 1 <br>
If lxn > 9 Then lxn = 0 <br>
End Sub
<p align="center">
<br>
< <a href="020110.htm">上一页</a>--<a href="http://www.xxby.com" target="_blank">华生小屋</a>--<a href="020112.htm">下一页</a>
><br>
</td>
</tr>
</table>
</center>
</div>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -