在名称为Form1的窗体上画一个名称为L1的标签,标题为“请确认”;再画两个命令按钮,名称分别为C1、C2,标
这代码要怎么写啊~高手们,告诉我一下吧~在名称为Form1的窗体上画一个名称为L1的标签,标题为“请确认”;再画两个命令按钮,名称分别为C1、C2,标题分别为“是”、“否...
这代码要怎么写啊~高手们,告诉我一下吧~
在名称为Form1的窗体上画一个名称为L1的标签,标题为“请确认”;再画两个命令按钮,名称分别为C1、C2,标题分别为“是”、“否”,高均为300、宽均为800。如图所示。
请在属性窗口设置适当属性满足以下要求:
1) 窗体标题为“确认”,窗体标题栏上不显示最大化和最小化按钮;
2) 在任何情况下,按回车键都相当于单击“是”按钮;按ESC键都相当于单击“否”按钮。 展开
在名称为Form1的窗体上画一个名称为L1的标签,标题为“请确认”;再画两个命令按钮,名称分别为C1、C2,标题分别为“是”、“否”,高均为300、宽均为800。如图所示。
请在属性窗口设置适当属性满足以下要求:
1) 窗体标题为“确认”,窗体标题栏上不显示最大化和最小化按钮;
2) 在任何情况下,按回车键都相当于单击“是”按钮;按ESC键都相当于单击“否”按钮。 展开
2个回答
展开全部
看不到你的图。你将下面的代码复制,粘贴到记事本中保存,将文件名改为Form1.frm,然后运行看看
VERSION 5.00
Begin VB.Form Form1
BorderStyle = 1 'Fixed Single
Caption = "确认"
ClientHeight = 1935
ClientLeft = 45
ClientTop = 435
ClientWidth = 4680
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 1935
ScaleWidth = 4680
StartUpPosition = 3 '窗口缺省
Begin VB.CommandButton C2
Cancel = -1 'True
Caption = "否"
Height = 300
Left = 3000
TabIndex = 2
Top = 1200
Width = 800
End
Begin VB.CommandButton C1
Caption = "是"
Default = -1 'True
Height = 300
Left = 840
TabIndex = 1
Top = 1200
Width = 800
End
Begin VB.Label L1
Caption = "请确认"
Height = 495
Left = 120
TabIndex = 0
Top = 120
Width = 1335
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
VERSION 5.00
Begin VB.Form Form1
BorderStyle = 1 'Fixed Single
Caption = "确认"
ClientHeight = 1935
ClientLeft = 45
ClientTop = 435
ClientWidth = 4680
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 1935
ScaleWidth = 4680
StartUpPosition = 3 '窗口缺省
Begin VB.CommandButton C2
Cancel = -1 'True
Caption = "否"
Height = 300
Left = 3000
TabIndex = 2
Top = 1200
Width = 800
End
Begin VB.CommandButton C1
Caption = "是"
Default = -1 'True
Height = 300
Left = 840
TabIndex = 1
Top = 1200
Width = 800
End
Begin VB.Label L1
Caption = "请确认"
Height = 495
Left = 120
TabIndex = 0
Top = 120
Width = 1335
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询