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

admin2010-09-02  25

问题 请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。
(1)在名称为Form1、标题为“鼠标光标形状”的窗体上画一个名称为Textl的文本框。请通过属性窗口设置适当属性,使得程序运行时,鼠标在文本框中时,鼠标光标为箭头(Arrow)形状;在窗体中其他位置处,鼠标光标为十字(Cross)形状。
注意:存盘时必须存放在考生文件夹下,工程文件名为sjtl.vbp,窗体文件名为sjtl.frm。
(2)在名称为Forml的窗体上画两个标签,名称分别为Labell、Label2,标题分别为“开始位置”、“选中的字符数”;画三个文本框,名称分别为Textl、Text2、Text3,再画一个名称为Commandl,标题为“显示选中信息”的命令按钮。程序运行时,在Textl中输入若干字符,并用鼠标选中一些字符后,单击“显示选中信息”按钮,则把选中的第一个字符的顺序号显示在Text2中,选中的字符个数显示在Text3中,如图1-63所示。
要求:画出所有控件,编写命令按钮的Click事件过程。
注意:要求程序中不得使用变量,事件过程中只能写两条语句,分别用于显示第一个字符的顺序号和显示选中的字符个数。存盘时必须存放在考生文件夹下,工程文件名为sjt2.vbp,窗体文件名为sjt2.frm。

选项

答案第1小题 【操作步骤】 步骤l:新建“标准EXE”工程,在窗体Forml中画一个文本框,如表2-32设置文本框及窗体属性。 [*] 步骤2:按要求将文件保存至考生文件夹中。 第2小题 【操作步骤】 步骤1:新建一个“标准EXE”工程,如表2-33在窗体中画出控件并设置其相关属性。 [*] [*] 步骤2:在代码编辑窗口,编写命令按钮的单击事件过程。 参考代码: Private Sub Commandl_Click() Text2=Textl.SelStart+1 Text3=Textl.SelLength End Sub 步骤3:按要求将文件保存至考生文件夹中。

解析 第1小题
    某对象的MousePointer属性用于设置鼠标经过该对象时光标的形状类型,在程序设计或运行阶段都可设置。MousePointer属性值可以是0~15之间的任意整数,不同的值代表不同的形状。MousePointer属性的可选设置值及含义如表2-31所示。


  根据题目要求,要使鼠标指针位于文本框中时,鼠标指针的形状为箭头,需将文本框的MousePointer属性值设置为l。为使鼠标指针位于窗体中其他位置时,鼠标指针的形状为十字,需将窗体的MousePointer属性值设置为2。
第2小题
    文本框的。Text属性可返回或设置文本框中显示的内容;SelLength属性可返回或设置文本框中当前选定的字符数;SelStart属性可返回或设置所选文本的起始点,该起始点位于起始文本的左侧;SelText属性可返回含有当前所选择的字符串。
    由于SelStart属性返回的所选文本的起始点位于起始文本的左侧,故所选文本的第一个字符的顺序号应为SelStart属性值加l。选中字符数即为SelLength属性返回值。
转载请注明原文地址:https://kaotiyun.com/show/sTmp777K
0

最新回复(0)