(1)在名称为Form1、标题为“欢迎”的窗体上画1个名称为Label1的标签,其标题内容为“欢迎使用本系统”,标题文字字体和字号分别为“宋体”、 “三号”,标签大小能根据标题内容自动调整,...
注意:
存盘时必须存放在考生文件夹下,工程文件名为sjt1.vbp,窗体文件名
为sjt1.frm。
(2)在名称为Form1的窗体上,画1个名称为Label1的标签,其标题为“横坐标X”,且能根据标题内容自动调整标签的大小;再画1个名称为Text1的文本框,其中的文字显示为空白;再画1个名称为Picture1的图片框,大小适中即可。
要求:
编写适当的事件过程,使得程序运行时,如果鼠标在图片框中移动,则能在文本框Text1中显示鼠标在图片框中的当前位置的横坐标,运行情况如图所示。
注意: 要求程序中不得使用变量,事件过程中只能写一条语句。
存盘时必须存放在考生文件夹下,工程文件名为sjt2.vbp,窗体文件名为sjt2.frm。
参考解析: (1)【解题思路】新建窗体,设置窗体的Caption属性。在窗体上添加一个标签控件,设置标签控件的Caption属性、Font属性和AutoSize属性。
【操作步骤】
步骤1:新建一个窗体,在属性窗口中设置窗体的属性,按照表4.3所示在属性窗口中设置相应属性,其运行效果如图4.3所示。
表4.3
属性名称 值
Caption 欢迎
MaxButton False
图4.3
步骤2:在窗体上添加一个标签控件,在属性窗口中设置标签的属性,按照表4.4所示在属性窗口中设置相应属性,其运行效果如图4.4所示。
表4.4
属性名称 值
Caption 欢迎使用本系统
Font 宋体、三号
AutoSize True
图4.4
步骤3:调试并运行程序,关闭程序后按题目要求存盘。
(2)【解题思路】使用Picture控件的MouseMove方法可以得到鼠标的坐标位置。
【操作步骤】
步骤1:新建一个窗体,在窗体上添加一个标签控件,在属性窗口中设置标签的属性,按照表4.5所示在属性窗口中设置相应属性,其运行效果如图4.5所示。
表4.5
属性名称 值
Caption 横坐标X
AutoSize True
图4.5
步骤2:在窗体上添加一个文本框控件,在属性窗口中设置文本框的属性,按照表4.6所示在属性窗口中设置相应属性,其运行效果如图4.6所示。
表4.6
属性名称 值
Text (空)
图4.6
步骤3:在窗体上添加一个图片框控件,适当调整大小,其运行效果如图4.7所示。
图4.7
步骤4:双击“左击”按钮,打开代码编辑窗口,在代码编辑窗口中添加Picture1_MouseMove事件,并编写以下代码。
编写程序代码。
参考答案(阴影部分是需考生填入的内容)
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text1.Text = X
End Sub
步骤5:调试并运行程序,关闭程序后按题目要求存盘。