VB神童教程第三章第二节——综合示例六

在本节中，我们希望在同一个图形框中切换两个不同的图片，同时可以启用和禁用图形框的自适应功能。

一、设计:

1.创建如图1所示的界面:

显示标签:

名称:LBL展示说明:现在展示第一张图片。

图形框架控件:

名称:PicShow AutoSize:None

自动适应复选框:

名称:ChkAutoSize

图片切换按钮:

名称:cmdshow说明:图片2

2.首先在通用区域声明以下变量:

将X标注为整数

Dim IWidth为整数

将高度标注为整数

其中X是准备作为画面切换的条件。当X为1时，图片切换按钮可以切换到图片2；当x为2时，图片切换按钮可以切换到图片一。

IWTH和IHeight准备存储图形框架的初始IWidth和高度，以便在图形框架的大小发生变化后可以恢复到原始形状。

3.程序打开时自动加载图片1:

这样，图片切换按钮应该可以切换到图片二，所以将1赋给x:

私有子窗体_Load()

pic show . picture = load picture(" E:\手稿\ ccidnet \ VB \图像\ VB3-2-1-copy.gif ")

X = 1

末端接头

4.自动适应功能的实现:

Private Sub ChkStretch_Click()

如果ChkStretch。那么值= 1

IWidth = PicShow。宽度

IHeight = PicShow。高度

PicShow。AutoSize = True

其他

PicShow。AutoSize = False

PicShow。宽度= I宽度

PicShow。高度= IHeight

如果…就会结束

末端接头

上述程序的意思是，如果选择了复选框，那么原始图形框架的宽度和高度会先赋给IWidth和IHeight，然后通过激活PicShow的AutoSize功能来自动适配图形框架。如果未选中该复选框，PicShow的AutoSize功能将被禁止，然后将图形框的原始高度(现在为IHeight)和宽度(现在为IWidth)赋给图形框，以恢复原始形状。