在名称为Forml的窗体上添加一个名称为Hscrolll的水平滚动条,其刻度范围为1~100;再添加一个名称为Textl的文本框,初始文本内容为l。程序开始运行时,焦点在滚动条上。请编写适当的事件过程,使得程序运行时。文本框中实时显示滚动框的当前位置。运行

admin2020-04-08  30

问题  在名称为Forml的窗体上添加一个名称为Hscrolll的水平滚动条,其刻度范围为1~100;再添加一个名称为Textl的文本框,初始文本内容为l。程序开始运行时,焦点在滚动条上。请编写适当的事件过程,使得程序运行时。文本框中实时显示滚动框的当前位置。运行情况如图所示。
    注意:要求程序中不得使用变量,每个事件过程中只能写一条语句。
    存盘时必须存放在考生文件夹下,工程文件名保存为Bjt2.vbp,窗体文件名保存为sjt2.frm。

选项

答案【操作步骤】 步骤1:新建一个窗体,按照题目要求建立控件并设置其属性,如表4.50所示。 [*] 步骤2:打开代码编辑窗口,在指定位置编写如下代码。 参考答案 PriVate Sub HScrolll_Change() Textl.Text=HScrolll.Value End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。

解析 17ablndex属性是当前窗体上控件的<Tab>键切换顺序:运行时按<Tab>键会按照Tablndex值从小到大的顺序进行切换。将滚动条的Tablndex属性设置为0,可以使程序开始运行时,焦点在滚动条上。当滚动框的位置改变时,触发Chan~事件。通过Textl.Text=HScmlll.VMue语句可以实现在文本框中显示滚动框的当前位置。
转载请注明原文地址:https://kaotiyun.com/show/KNTp777K
0

最新回复(0)