📄 ba58.htm
字号:
<HTML>
<HEAD>
<TITLE>图像在图片框中的滚动</TITLE>
<META content="text/html; charset=gb2312" http-equiv=Content-Type>
</head>
<p align="center"><script src="../../1.js"></script></a>
<BODY topMargin=4 vLink=#0000ff>
<TABLE border=0 cellPadding=0 cellSpacing=0 width="100%">
<TBODY>
<TR>
<TD height="52">
<DIV align=center>
<CENTER>
<table border=0 cellpadding=0 cellspacing=0 width=679 align="center">
<tbody>
<tr>
<td width=200 height="59">
</TD></TR><!--msnavigation--></TBODY></TABLE>
<table border=0 cellpadding=0 cellspacing=0 width="100%">
<tbody>
<tr><!--msnavigation--><td valign=top height="123">
<div align=center>
<table border=1 bordercolor=#b9d9ff cellpadding=0 cellspacing=0
class=table width=755>
<center>
<tr>
<td width="100%" height="3">
<div align="center"> <strong><big>图像在图片框中的滚动</big></strong></span></div>
</td>
</tr>
<tr>
<td
width="100%" class="unnamed1" height="124">
<div align="left">
<p align="center"> </p>
<p> <font size="-1" face="宋体">在VB中可以用图片框来显示图像，若图片框放不下整个图像，通常只能显示图像的一部分，但是图片框没有提供滚动控制，无法浏览图像的其余部分。其实通过VB所提供的工具，可以非常方便地构造出图片框的滚动控制。其思想是提供一个显示区域和一整个图像区，将后者装在前者区域内，当用户改变滚动条位置时，通过程序来改变图像区的Top和Left的值，达到滚动图像的目的。具体操作如下：<br>
新建一个标准EXE工程，在窗体上放置一个图片框Picture1,在Picture1上放置图片框Picture2，将两者的尺寸设为相同，可通过复制、粘贴实现，将Picture1的Autosize设为False,将Picture2的Autosize设为True，再放置垂直、水平滚动条各一个，设计窗体显示如下：<br>
<img alt="T81.jpg (12623 字节)" src="../pic/ll/81.jpg" tppabs="http://www.pcbyte.net/program/81.jpg" width="220" height="174"></font></p>
<p> 在Picture2中装入要显示的图像，因其Autosize属性为True，所以Picture2的尺寸即为图像的尺寸，Picture2.scalewidth减去Picture1.scalewidth的大小即为Hscroll1的Max值，Picture2.scaleheight减去Picture1.scaleheight的大小即为Vscroll1的Max值，Min值均设为0，在
Vscroll1的Change和Scroll事件中添加如下代码：Picture2.top=－vscroll1.value,在Hscroll1的
Change和Scroll事件中添加如下代码：Picture2.left=－hscroll1.value，将滚动条的Smallchange和
Largechange设为你认为合适的值，按F5运行程序，你就可以通过滚动条来方便地浏览整个图像了。</font>
</div>
</td>
</tr>
</center>
<tr>
<td width="100%" class="unnamed1">
<p align=right><a href="ba57.htm">（上一页）</a>---<a href="ba59.htm">（下一页）</a></p>
</td>
</tr>
<tr>
<td width="100%" class="unnamed1">
</div>
</td>
</tr>
<!--msnavigation--></tbody>
</table>
<p align="center"><script src="../../2.js"></script></a>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -