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

作者: 来源:网络文章时间:2005-12-13 14:49:41

VB 神童教程第三章第二节——综合示例六(1) 在本节，我们要实现两张不同图片在同一个图形框内的切换，同时可以启用与禁用图形框的自动适应功能。

20030519-43.gif>
图一

图二

    一、设计：

    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

1.VB 神童教程第三章第二节——综合示例六(1)
2.VB 神童教程第三章第二节——综合示例六(2)

共2页 9 7 [1] [2] 8 :>

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

VB 神童教程第三章第二节——综合示例六相关软件：

特别声明：本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作者。文章版权归文章原始作者所有。对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转载的文章有版权问题请联系编辑人员，我们尽快予以更正。
转载请注明来源：http://www.xgdown.com