📄 form5.frm
字号:
VERSION 5.00
Begin VB.Form Form5
BackColor = &H00404040&
Caption = "毕业设计程序界面"
ClientHeight = 8370
ClientLeft = 60
ClientTop = 345
ClientWidth = 7230
FillColor = &H00FFFFFF&
ForeColor = &H8000000D&
LinkTopic = "Form5"
ScaleHeight = 8370
ScaleWidth = 7230
StartUpPosition = 2 '屏幕中心
Begin VB.CommandButton Command1
BackColor = &H00E0E0E0&
Cancel = -1 'True
Caption = "Start"
Default = -1 'True
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 435
Left = 1320
MaskColor = &H00E0E0E0&
Style = 1 'Graphical
TabIndex = 0
Top = 7920
Width = 1095
End
Begin VB.Frame Frame2
Height = 15
Left = 0
TabIndex = 5
Top = 7800
Width = 7335
End
Begin VB.Frame Frame1
Height = 15
Left = 0
TabIndex = 4
Top = 5880
Width = 7335
End
Begin VB.CommandButton Command2
BackColor = &H00E0E0E0&
Caption = "Exit"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 435
Left = 4680
MaskColor = &H00E0E0E0&
Style = 1 'Graphical
TabIndex = 1
Top = 7920
Width = 1095
End
Begin VB.Image Image1
Height = 5895
Left = 0
Picture = "Form5.frx":0000
Stretch = -1 'True
Top = 0
Width = 7290
End
Begin VB.Label Label1
AutoSize = -1 'True
BackColor = &H00404040&
Caption = "齿轮类零件CAD的研制"
BeginProperty Font
Name = "宋体"
Size = 21.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00808080&
Height = 435
Left = 1560
TabIndex = 3
Top = 6120
Width = 4155
End
Begin VB.Label Label2
AutoSize = -1 'True
BackColor = &H00404040&
Caption = "机械工程学院机制0113班"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 240
Left = 2160
TabIndex = 2
Top = 6720
Width = 2835
End
End
Attribute VB_Name = "Form5"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Form1.Show
End Sub
Private Sub Command2_Click()
'Unload Me
'Unload Form1
'Unload Form2
'Unload Form3
'Unload Form4
'Unload Form5
'Unload Form6
'Unload Form7
'Unload Form8
'Unload Form9
'Unload Form10
'Unload Form11
'Unload Form12
'Unload Form13
'Unload Form14
'Unload Form15
'Unload Form16
'Unload Form17
'Unload Form18
End
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -