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

在上一篇文章中，小编为您详细介绍了关于《pre？Longhorn》相关知识。 本篇中小编将再为您讲解标题神童教程第三章第二节——综合示例六？VB。

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

图①

图②

①、设计：

① · 创建如图①的界面：

显示标签：

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

图形框控件：

Name：PicShow　　AutoSize：None

自动适应复选框：

Name：ChkAutoSize

图片切换按钮：

Name：CmdShow　　Caption：图片②

② · 先在通用区声明如下变量：

Dim X As Integer

Dim IWidth As Integer

Dim IHeight As Integer

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

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

③ · 程序打开时自动载入图片①：

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

Private Sub Form_Load()

PicShow.Picture = LoadPicture("E:\稿件\Ccidnet\vb\image\vb③-②-①-copy.gif")

X = ①

End Sub

④ · 自动适应功能的实现：

Private Sub ChkStretch_Click()

If ChkStretch.Value = ① 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）赋值给图形框以恢复原样。

⑤ · 图片切换：

Private Sub CmdShow_Click()

If X = ① Then

PicShow.Picture = LoadPicture("E:\稿件\Ccidnet\vb\image\vb③-②-②-copy.gif")

LblShow.Caption = "现在显示的是第②张图"

CmdShow.Caption = "图片①"

X = ②

Else

PicShow.Picture = LoadPicture("E:\稿件\Ccidnet\vb\image\vb③-②-①-copy.gif")

LblShow.Caption = "现在显示的是第①张图"

CmdShow.Caption = "图片②"

X = ①

End If

End Sub

在上面的程序中，先对 X 进行判断，如果 X 为 ① ，那么图形框显示图片②，显示标签改变成“现在显示的是第②张图”字样，作为图形切换的按钮，Caption 变成“图片①”，然后再让 X 为 ② 好进入另外①种情况；当 X 为 ② ，那么图形框显示图片①，显示标签与切换按钮发生相应变化。

②、联想

记得第①次设计这个程序时，并没有引入 X 这个辅助变量，而是通过鼠标点击的动作来进行判断的，即，当原始图形框中显示的是图片①，那么鼠标点击①次，即奇数次，图形框中会切换到图片②；当鼠标点击第②次，即偶数次，图形框可以切换到图片①；以此类推。所以可以通过次数取余，如果余数为 ⓪ ，那么图形框可以切换到图片①；余数为 ① ，图形框可以切换到图片②。

编后语：关于《神童教程第三章第二节——综合示例六？VB》关于知识就介绍到这里，希望本站内容能让您有所收获，如有疑问可跟帖留言，值班小编第一时间回复。 下一篇内容是有关《神童教程第四章第二节——综合示例七？VB》，感兴趣的同学可以点击进去看看。