(1)在名称为Form1、标题为“鼠标光标形状示例”的窗体上画1个名称为Text1的文本框。请通过属性窗口设置适当属性,使得程序运行时,鼠标在文本框中时,鼠标光标为箭头(Arrow)形状,如图3.56所示;在窗体中其他位置处,鼠标光标为十字(Cross)形

admin2017-09-22  28

问题 (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事件过程。

    注意:要求程序中不得使用变量,事件过程中只能写两条语句,分别用于显示第一个字符的顺序号和显示选中的字符个数。存盘时必须存放在考生文件夹下,工程文件名为vbsi2.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。
    【特别提示】当窗体中控件的MousePointet属性值为0时,鼠标经过该控件时光标的形状类型由窗体的MousePointer属性值决定。
    (2)由于SelStart属性返回的所选文本的起始点位于起始文本的左侧,故所选文本的第一个字符的顺序号应为SelStart属性值加1。选中字符数即为SelLength属性返回值。
转载请注明原文地址:https://kaotiyun.com/show/dkGp777K
0

最新回复(0)