请根据以下各小题的要求设计Visual Basic 应用程序(包括界面和代码)。 (1)在名称为Form1的窗体上用名称为Shape1的控件画一个圆,其直径为1500(即宽、高均为1500),并设置适当属性,使窗口标题为“圆”,窗体标题栏上不显示最

admin2018-12-05  21

问题 请根据以下各小题的要求设计Visual Basic 应用程序(包括界面和代码)。
    (1)在名称为Form1的窗体上用名称为Shape1的控件画一个圆,其直径为1500(即宽、高均为1500),并设置适当属性,使窗口标题为“圆”,窗体标题栏上不显示最大化和最小化按钮(如图1-231所示)。

    注意:存盘时必须存放在考生文件夹下,工程文件名为sjt1.vbp,窗体文件名为sjt1.frm。
    (2)在名称为Form1的窗体中建立一个弹出式菜单(程序运行时不显示),名称为file,含两个菜单项,其名称分别为open、save,标题分别为“打开”、“存盘”。编写适当的事件过程。程序运行后,如果用鼠标右键单击窗体,则弹出此菜单(如图1-232所示)。

    注意:程序中不能使用变量。保存时必须存放在考生文件夹下,工程文件名为sjt2.vbp,窗体文件名为sjt2.frm。

选项

答案第1小题 【操作步骤】 步骤1:新建一个“标准EXE”工程,在窗体Form1中加入一个形状控件,其相关属性设置如表2-114所示。 [*] 步骤2:按要求将文件保存至考生文件夹中。 第2小题 【操作步骤】 步骤1:新建一个“标准EXE”工程,选择【工具】→【菜单编辑器】命令,打开菜单设计器,如表2-155中的设置建立菜单项。 [*] 步骤2:打开代码编辑窗口,编写窗体的事件过程以显示弹出式菜单。 参考代码: Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then Call Me.PopupMenu(file) End If End Sub 步骤3:按要求将文件保存至考生文件夹中。

解析
转载请注明原文地址:https://kaotiyun.com/show/7tFp777K
0

最新回复(0)