小黑游戏最新手机游戏下载平台

手游资讯 单机资讯 最近更新 热门排行
您现在的位置:首页 > 软件资讯 > 应用教程 > VB 神童教程第三章第二节——综合示例六

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

2022-10-26 19:27作者:佚名来源:本站整理浏览:253

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



图一




图二



    一、设计:


    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)赋值给图形框以恢复原样。


    5、图片切换:


    Private Sub CmdShow_Click()


    If X = 1 Then


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


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


    CmdShow.Caption = "图片一"


    X = 2


    Else


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


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


    CmdShow.Caption = "图片二"


    X = 1


    End If


    End Sub


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


    二、联想


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


    具体程序大家可以自行思考,此处不再赘述。

更多 0

Tags: 责任编辑:小黑游戏

热门推荐

'); })();