在名称为Forml的窗体上画一个图片框,其名称为Picturel,一个水平滚动条,名称为HScroll1,一个命令按钮,名称为Commandl,标题为“设置属性”,通过属性窗口在图片框中装入一个图形(文件名为picl.jpg,位于考生目录下),图片框的高度

admin2020-04-08  0

问题  在名称为Forml的窗体上画一个图片框,其名称为Picturel,一个水平滚动条,名称为HScroll1,一个命令按钮,名称为Commandl,标题为“设置属性”,通过属性窗口在图片框中装入一个图形(文件名为picl.jpg,位于考生目录下),图片框的高度与图形的高度相同,图片框的宽度任意(如图l所示)。编写适当的事件过程,程序运行后,如果单击命令按钮,则设置水平滚动条的属性如下:
  Min    100
  Max    1500
  LargeChange    100
  SmalltChange    10
  之后就可以通过移动滚动条上的滚动块来放大或缩小图片框。程序运行后的窗体如图2所示。要求程序中不得使用任何变量。
    注意:存盘时必须存放在考生文件夹下,工程文件名为sjt2.vbp,窗体文件名为sjt2.frm。

选项

答案【操作步骤】 步骤1:新建一个窗体,添加控件并设置相应的属性。程序中用到的控件及其属性见表4.17。 [*] 步骤2:打开代码编辑窗口,在指定位置编写如下代码。 参考答案 PriVate Sub Commandl_Click() HScrolll.Max=1500′设置滚动条的最大值、最小值、最大改变值、最小改变值 HScrolll.Min=100 HScrolll.LargeChanqe=100 HScrolll.SmallChange=10 End Sub PriVate Sub HScrolll_Change() Picturel.Width =HScrolll.Value ′将图片的width与滚动条的value保持一致 End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。

解析 在设计阶段通过Picture属性为图片框指定显示的图片,通过Width属性来设定或修改图片框的宽度。通过调整滚动条滑块的位置即可改变其Value属性的值,滚动条的Max和Min属性限定了滚动条所能表示的最大值和最小值,LargeChange属性用于设置当单击滑块与两侧箭头间区域时Value属性值的改变量,SmallChange属性用于设置当单击滚动条两侧箭头时Value属性值的改变量。当改变滚动条滑块位置后将触发其Change事件。
转载请注明原文地址:https://jikaoti.com/ti/XAx0FFFM
0

最新回复(0)