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)赋给图形框,以恢复原始形状。
位律师回复
0条评论