请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。 (1)在名称为Form1、标题为“鼠标光标形状示例”的窗体上画1个名称为Text1的文本框。请通过属性窗口设置适当属性,使得程序运行时,鼠标在文本框中时,鼠标光标为箭头(Arr

admin2017-03-27  33

问题 请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
(1)在名称为Form1、标题为“鼠标光标形状示例”的窗体上画1个名称为Text1的文本框。请通过属性窗口设置适当属性,使得程序运行时,鼠标在文本框中时,鼠标光标为箭头(Arrow)形状,如图3—56所示;在窗体中其他位置处,鼠标光标为十字(Cross)形状,如图3—57所示。

注意:存盘时必须存放在考生文件夹下,工程文件名为vbsj1.vbp,窗体文件名为vbsj1.frm。
(2)在名称为Form1的窗体上画两个名称分别为Label1、Label2,标题分别为“开始位置”、“选中字符数”的标签;画三个文本框,名称分别为txtInput、txtBegin、txtNum;再画一个名称为cmdDisplay,标题为“显示选中文本”的命令按钮。程序运行时,在txtInput中输入若干字符,并用鼠标选中一些字符后,单击“显示选中文本"按钮,则把选中的第一个字符的顺序号显示在txtBegin中,选中的字符个数显示在txtNum中,如图3—58所示。
要求:画出所有控件,编写命令按钮的Click事件过程。

注意:要求程序中不得使用变量,事件过程中只能写两条语句,分别用于显示第一个字符的顺序号和显示选中的字符个数。存盘时必须存放在考生文件夹下,工程文件名为vbsj2.vbp,窗体文件名为vbsj2.frm。

选项

答案第1小题 步骤1:新建“标准EXE”工程,在窗体Form1中画一个文本框,按表4—34设置文本框及窗体属性。 [*] 步骤2:按要求将文件保存至考生文件夹中。 第2小题 步骤1:新建一个“标准EXE”工程,按表4—35在窗体中画出控件并设置其相关属性。 [*] 步骤2:在代码编辑窗口,编写命令按钮的单击事件过程。 参考代码: Private Sub cmdDisplay_Click() txtBegin.Text=txtInput.SelStart+1 txtNum.Text=txtInput.SelLength End Sub 步骤3:按要求将文件保存至考生文件夹中。

解析 第1小题:根据题目要求,要使鼠标指针位十文本框中时,鼠标指针的形状为箭头,需将文本框的MousePointer属性值设置为1。为使鼠标指针位于窗体中其他位置时,鼠标指针的形状为十字,需将窗体的MousePointer属性值设置为2。
当窗体中控件的MousePointer属性值为0时,鼠标经过该控件时光标的形状类型由窗体的MousePointer属性值决定。
第2小题:由于SelStart属性返回的所选文本的起始点位于起始文本的左侧,故所选文本的第一个字符的顺序号应为SelStart属性值加1。选中字符数即为SelLength属性返同值。
转载请注明原文地址:https://jikaoti.com/ti/ogy0FFFM
0

最新回复(0)