请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。 (1)在名称为Forml的窗体上画一个水平滚动条,其名称为HScrolll,然后通过属性窗口设置窗体和滚动条的属性,实现如下功能: ①窗体标题为“设置滚动条属性”; ②滚动条所能

admin2010-09-02  33

问题 请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。
(1)在名称为Forml的窗体上画一个水平滚动条,其名称为HScrolll,然后通过属性窗口设置窗体和滚动条的属性,实现如下功能:
①窗体标题为“设置滚动条属性”;
②滚动条所能表示的最小值和最大值分别为0和2001
⑧程序运行后,单击滚动条两端的箭头时,滚动框移动的增量值为2;
④程序运行后,单击滚动框前面或后面的部位时,滚动框移动的增量值为10;
⑤滚动框的初始位置为100。
程序的运行情况如图1-12l所示。
要求:不要编写任何代码。
注意:存盘时必须存放在考生文件夹下,工程文件名为sjtl.vbp,窗体文件名为sjtl.frm。

(2)在名称为Forml的窗体上画一个文本框,其名称为Textl,如图1-122(a)所示,编写适当的事件过程。程序运行后,如果单击窗体,则可使文本框移到窗体的左上角;而如果在文本框中输入信息,则可使文本框移到窗体的右上角。程序的运行情况如图1-122(b)所示。
要求:不得使用任何变量,只允许通过修改属性的方式移动文本框。
注意:存盘时必须存放在考生文件夹下,工程文件名为sjt2.vbp,窗体文件名为sjt2.frm。

选项

答案 第1小题 【操作步骤】 步骤1:新建一个“标准EXE”工程,在窗体Forml中画一个滚动条,并设置它的相关属性,其属性及值如表2-67所示。 [*] 步骤2:按要求将文件保存至考生文件夹中。 第2小题 【操作步骤】 步骤1:新建一个“标准EXE”工程,在窗体上画一个名为Textl的文本框。 步骤2:打开代码编辑窗口,编写事件过程。 参考代码: PriVate Sub Form_Click() Textl.Left=0 Textl.Top=0 End Sub PriVate Sub Text l_Change() Textl.Left=Form1.Width_Textl.Width Textl.Top=0 End Sub 步骤3:按要求将文件保存至考生文件夹中。

解析  第1小题
   本题只需按要求画出控件并设置其相应属性即可。
第2小题
    控件的Top和Left属性用于设置控件在窗体中的位置。
    要在单击窗体时使文本框移到窗体左上角,只需在其单击事件中令Top属性和LeR属性为0;要在文本框中输入信息时令文本框移到窗体的右上角,需要在文本框的Change事件中令文本框的Top属性为0,Left属性等于窗体的宽度减去文本框的宽度。
转载请注明原文地址:https://jikaoti.com/ti/8xg0FFFM
0

最新回复(0)