初中生vb教程综合示例六

1、初中生学vb教程综合例6在此部分中，您可以在同一格拉夫快速信息帧中切换两个不同的图像，同时启用或禁用格拉夫快速信息帧的自动自适应功能。图1 (切换前)图2 (切换后)一、设计：1 .创建类似于图1的接口查看标签条：Name:LblShowCaption :显示第一个图格拉夫快速箱库斯科特罗尔：名称： pic show自动化：无自动匹配复选框：名称： chk自动化切换图像按钮：名称： cmdshowcaption :图像22 .首先在通用区域宣言以下变量戴尔x as整合器带宽扩展整合器dim高速交换机这里，x被准备作为用于图像切换的条件，并且当x为1时，图像切换按钮能够被切换为图像2。当x为2时

2、，图像切换按钮能够被切换为图像1。IWidth和IHeight存储格拉夫快速信息帧的初始宽度和高度，并准备在调整格拉夫快速信息帧大小后将其恢复。3、计程仪程序打开时自动加载图片1 :这样，图像切换按钮应该可以切换到图像2，所以将x指定为1隐私子表单加载()pic show.picture=加载图片( e 3360 原稿 ccidnetVB 图像 VB3-2-1-复印. gifX=1日本超级联赛4 .自动适应功能的实现：隐私辅助拉伸_弹出()if chk stretch.value=1天IWidth=PicShow.WidthIHeight=PicShow.Heightpic show .自动化

3、=真埃尔斯pic show .自动化=假PicShow.Width=IWidthPicShow.Height=IHeight伦敦地铁日本超级联赛上述堆计程仪程序的意思是，如果选中了复选框，则将原始的格拉夫定框的宽度和高度分配给IWidth、IHeight，然后激活PicShow的AutoSize功能，从而实现格拉夫定框的自动调整PicShow的“AutoSize”功能将被禁用，并将格拉夫输入框的原始高度(当前IHeight )和宽度(当前IWidth )指定回格拉夫输入框。5、图像切换：隐私子cmdshow _ click ()ifx=1天pic show.picture=加载图片( e 33

4、60 原稿 ccidnetVB 图像 VB3-2-复印. gifLblShow.Caption=现在显示的是第二张图。CmdShow.Caption=图像1 X=2埃尔斯pic show.picture=加载图片( e 3360 原稿 ccidnetVB 图像 VB3-2-1-复印. gifLblShow.Caption=显示第一个图。CmdShow.Caption=图像2 X=1伦敦地铁日本超级联赛在以上的计程仪程序中，首先判断x，如果x为1，则图形框显示图形2，显示标签条变更为“现在显示的是第2张图”，作为图形切换的按钮如果Caption变为“图像1”后，x变为2，进入另一种情况的x为2，则格拉夫盒显示图像1，显示标签条根据切换按钮而变化。二、联想：第一次设定、修正该计程仪程序时，不导入x这个辅助变量，记得通过鼠标喀呖声的动作进行判断。 即，在原始图形框中显示图像1的情况下，鼠标喀呖声1次，即奇数次，切换到图形框中的图像2鼠标第2次，即偶数次喀呖声后，格拉夫对话框切换到图像1，这样类推。 所以，可以用次数取侑数。 如果