mdiform1.frm
来自「实现了」· FRM 代码 · 共 496 行 · 第 1/2 页
FRM
496 行
VERSION 5.00
Begin VB.MDIForm Menuform
BackColor = &H8000000C&
Caption = "MDIForm1"
ClientHeight = 7515
ClientLeft = 165
ClientTop = 855
ClientWidth = 9720
LinkTopic = "MDIForm1"
StartUpPosition = 3 '窗口缺省
Begin VB.PictureBox Picture1
Align = 1 'Align Top
Height = 7575
Left = 0
ScaleHeight = 7515
ScaleWidth = 9660
TabIndex = 0
Top = 0
Width = 9720
Begin VB.PictureBox Picture2
Height = 7335
Left = 0
ScaleHeight = 7275
ScaleWidth = 9675
TabIndex = 17
Top = 0
Width = 9735
Begin VB.CommandButton cmdclose
Caption = "close"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 5520
TabIndex = 35
Top = 6480
Width = 1095
End
Begin VB.CommandButton cmdsave
Caption = "save"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 3960
TabIndex = 34
Top = 6480
Width = 1215
End
Begin VB.TextBox txt6
Height = 495
Left = 3600
TabIndex = 33
Top = 840
Width = 4215
End
Begin VB.TextBox txt7
Height = 495
Left = 3600
TabIndex = 32
Top = 1440
Width = 4215
End
Begin VB.TextBox Text5
Height = 495
Left = 3600
TabIndex = 24
Top = 2040
Width = 4215
End
Begin VB.TextBox Text4
Height = 1215
Left = 3600
TabIndex = 23
Top = 2640
Width = 4215
End
Begin VB.Frame Frame1
Caption = "Gender"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 855
Left = 480
TabIndex = 20
Top = 3840
Width = 4935
Begin VB.OptionButton Option2
Caption = "male"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 2160
TabIndex = 22
Top = 360
Width = 1095
End
Begin VB.OptionButton Option1
Caption = "female"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 3600
TabIndex = 21
Top = 360
Width = 1215
End
End
Begin VB.ComboBox Combo1
Height = 300
Left = 2160
TabIndex = 19
Top = 5040
Width = 3135
End
Begin VB.TextBox Text3
Height = 495
Left = 2160
TabIndex = 18
Top = 5640
Width = 3255
End
Begin VB.Label Label7
Caption = "New Customer Entriy form"
BeginProperty Font
Name = "宋体"
Size = 18
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 615
Left = 960
TabIndex = 31
Top = 240
Width = 5295
End
Begin VB.Label Label6
Caption = "Customer ID:"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 240
TabIndex = 30
Top = 960
Width = 2295
End
Begin VB.Label Label5
Caption = "Customer Password:"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 240
TabIndex = 29
Top = 1560
Width = 3015
End
Begin VB.Label Label4
Caption = "Customer Name:"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 240
TabIndex = 28
Top = 2160
Width = 2895
End
Begin VB.Label Label3
Caption = "Address:"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 240
TabIndex = 27
Top = 2880
Width = 1455
End
Begin VB.Label lblcountry
Caption = "Country:"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?