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

文章作者 100test 发表时间 2007:03:10 18:25:23
来源 100Test.Com百考试题网

在本节，我们要实现两张不同图片在同一个图形框内的切换，同时可以启用与禁用图形框的自动适应功能。


图一


图二

一、设计：

1、创建如图一的界面：

显示标签：

Name：LblShow　　Caption：现在显示的是第一张图

图形框控件：

Name：PicShow　　AutoSize：None

自动适应复选框：

Name：ChkAutoSize

图片切换按钮：

Name：CmdShow　　Caption：图片二

2、先在通用区声明如下变量：

Dim X As Integer

Dim IWidth As Integer

Dim IHeight As Integer

其中，X 准备用来做为图片切换的条件，当 X 为 1 ，图片切换按钮可以切换到图片二；当 X 为 2 ，图片切换按钮可以切换到图片一。

IWidth 与 IHeight 准备用来储存图形框的初始宽度与高度，以便在图形框发生大小变化后回复到原样。

3、程序打开时自动载入图片一：

这样，图片切换按钮就应该能够切换到图片二，所以将 1 赋给 X ：

Private Sub Form_Load()

PicShow.Picture = LoadPicture("E:\稿件\Ccidnet\vb\image\vb3-2-1-copy.gif")

X = 1

End Sub

4、自动适应功能的实现：

Private Sub ChkStretch_Click()

If ChkStretch.Value = 1 Then

IWidth = PicShow.Width

IHeight = PicShow.Height

PicShow.AutoSize = True

Else

PicShow.AutoSize = False

PicShow.Width = IWidth

PicShow.Height = IHeight

End If

End Sub

上面程序的意思是，如果复选框被选中，那么先将原始图形框的宽度与高度赋给 IWidth、IHeight ，然后再通过激活 PicShow 的 AutoSize 功能达到图形框的自动适应；如果复选框没被选中，那么禁止 PicShow 的 AutoSize 功能，然后将图形框原来的高度（现在的 IHeight）和宽度（现在的 IWidth）赋值给图形框以恢复原样。