某人创建了一个工程,其界面如图所示,其中,图像的名称为Imagel,动滚条的名称为HScrom。希望在程序运行时,移动滚动框可以使图像框的宽度随之变化,而图像完整地拉宽或压缩,为此,编写了下面的程序代码: Private Sub Form Load()

admin2020-07-22  55

问题 某人创建了一个工程,其界面如图所示,其中,图像的名称为Imagel,动滚条的名称为HScrom。希望在程序运行时,移动滚动框可以使图像框的宽度随之变化,而图像完整地拉宽或压缩,为此,编写了下面的程序代码:

Private Sub Form Load()
    HScroll1.Max=Imagel.Width*2
    HScroll1.Value=Imagel.Width
    Imagel.Stretch:False
End Sub
Private Sub HScroll1_Change()
    Imagel.Width=HScroll1.Value
End Sub
调试时发现不能达到目的,需要做的修改是(    )。

选项 A、把语句Imagel.Stretch=False改为Imagel.Stretch=True
B、把语句HScroUl.Value=Imagel.Width改为HScroUl.Value=Imagel.Width*2
C、把事件过程名HScroll1_Change改为HScroll1_Scroll
D、把语句Imagel.Width=HScmll1.Value改为Imagel.Width=HScroll1.Width

答案A

解析 图像框的stretch属性用来自动调整图像框中图形内容的大小,该属性的取值为True或False。当其属性值为False时,将自动放大或缩小图像框中的图形以与图像框的大小相适应。本题中时通过滚动条来控制图像的大小,所以应将Stretch属性设置为True,所以A选项正确。
转载请注明原文地址:https://jikaoti.com/ti/LPS0FFFM
0

最新回复(0)