初中生vb教程综合示例六

初中生学vb教程综合示例六在本节，我们要实现两张不同图片在同一个图形框内的切换，同时可以启用与禁用图形框的自动适应功能。图一（切换前）图二（切换后）一、设计：1、创建如图一的界面：显示标签：Name：LblShowCaption：现在显示的是第一张图图形框控件：Name：PicShowAutoSize：None自动适应复选框：Name：ChkAutoSize图片切换按钮：Name：CmdShowCaption：图片二2、先在通用区声明如下变量：DimXAsIntegerDimIWidthAsIntegerDimIHeightAsInteger其中，X准备用来做为图片切换的条件，当X为1，图片切换按钮可以切换到图片二；当X为2，图片切换按钮可以切换到图片一。IWidth与IHeight准备用来储存图形框的初始宽度与高度，以便在图形框发生大小变化后回复到原样。3、程序打开时自动载入图片一：这样，图片切换按钮就应该能够切换到图片二，所以将1赋给X：PrivateSubForm_Load()PicShow.Picture=LoadPicture(E:\稿件\Ccidnet\vb\image\vb3-2-1-copy.gif)X=1EndSub4、自动适应功能的实现：PrivateSubChkStretch_Click()IfChkStretch.Value=1ThenIWidth=PicShow.WidthIHeight=PicShow.HeightPicShow.AutoSize=TrueElsePicShow.AutoSize=FalsePicShow.Width=IWidthPicShow.Height=IHeightEndIfEndSub上面程序的意思是，如果复选框被选中，那么先将原始图形框的宽度与高度赋给IWidth、IHeight，然后再通过激活PicShow的AutoSize功能达到图形框的自动适应；如果复选框没被选中，那么禁止PicShow的AutoSize功能，然后将图形框原来的高度（现在的IHeight）和宽度（现在的IWidth）赋值给图形框以恢复原样。5、图片切换：PrivateSubCmdShow_Click()IfX=1ThenPicShow.Picture=LoadPicture(E:\稿件\Ccidnet\vb\image\vb3-2-2-copy.gif)LblShow.Caption=现在显示的是第二张图CmdShow.Caption=图片一X=2ElsePicShow.Picture=LoadPicture(E:\稿件\Ccidnet\vb\image\vb3-2-1-copy.gif)LblShow.Caption=现在显示的是第一张图CmdShow.Caption=图片二X=1EndIfEndSub在上面的程序中，先对X进行判断，如果X为1，那么图形框显示图片二，显示标签改变成“现在显示的是第二张图”字样，作为图形切换的按钮，Caption变成“图片一”，然后再让X为2好进入另外一种情况；当X为2，那么图形框显示图片一，显示标签与切换按钮发生相应变化。二、联想：记得第一次设计这个程序时，并没有引入X这个辅助变量，而是通过鼠标点击的动作来进行判断的，即，当原始图形框中显示的是图片一，那么鼠标点击一次，即奇数次，图形框中会切换到图片二；当鼠标点击第二次，即偶数次，图形框可以切换到图片一；以此类推。所以可以通过次数取余，如果余数为0，那么图形框可以切换到图片一；余数为1，图形框可以切换到图片二。具体程序大家可以自行思考，此处不再赘述。