📄 个人资料.frm
字号:
Y1 = 2568
Y2 = 2568
End
Begin VB.Line Line6
BorderColor = &H80000005&
X1 = 0
X2 = 3120
Y1 = 2205
Y2 = 2205
End
Begin VB.Line Line5
BorderColor = &H80000005&
X1 = 0
X2 = 3120
Y1 = 1800
Y2 = 1800
End
Begin VB.Line Line4
BorderColor = &H80000005&
X1 = 0
X2 = 3120
Y1 = 1464
Y2 = 1464
End
Begin VB.Line Line3
BorderColor = &H80000005&
X1 = 0
X2 = 3120
Y1 = 1096
Y2 = 1096
End
Begin VB.Line Line2
BorderColor = &H80000005&
X1 = 0
X2 = 3120
Y1 = 728
Y2 = 728
End
Begin VB.Line Line1
BorderColor = &H80000009&
X1 = 0
X2 = 3120
Y1 = 360
Y2 = 360
End
End
Begin VB.PictureBox Picture1
BackColor = &H00E0E0E0&
BorderStyle = 0 'None
Height = 6015
Left = 0
ScaleHeight = 6015
ScaleWidth = 1935
TabIndex = 0
Top = 0
Width = 1935
Begin VB.Label Label16
BackColor = &H00E0E0E0&
Caption = "您的收入水平"
Height = 255
Left = 720
TabIndex = 36
Top = 5520
Width = 1095
End
Begin VB.Label Label15
BackColor = &H00E0E0E0&
Caption = "您的职业"
Height = 255
Left = 1080
TabIndex = 35
Top = 5160
Width = 735
End
Begin VB.Label Label14
BackColor = &H00E0E0E0&
Caption = "教育水平"
Height = 255
Left = 1080
TabIndex = 34
Top = 4800
Width = 735
End
Begin VB.Label Label13
BackColor = &H00E0E0E0&
Caption = "所属行业"
Height = 255
Left = 1080
TabIndex = 33
Top = 4440
Width = 735
End
Begin VB.Label Label12
BackColor = &H00E0E0E0&
Caption = "所在省份"
Height = 255
Left = 1080
TabIndex = 32
Top = 4080
Width = 735
End
Begin VB.Label Label11
BackColor = &H00E0E0E0&
Caption = "联系电话"
Height = 255
Left = 1080
TabIndex = 31
Top = 3720
Width = 735
End
Begin VB.Label Label10
BackColor = &H00E0E0E0&
Caption = "电子邮箱"
Height = 255
Left = 1080
TabIndex = 30
Top = 3360
Width = 735
End
Begin VB.Label Label9
BackColor = &H00E0E0E0&
Caption = " 是否申请25M免费邮箱"
Height = 255
Left = 0
TabIndex = 29
Top = 3000
Width = 1815
End
Begin VB.Label Label8
BackColor = &H00E0E0E0&
Caption = "有效证件号码"
Height = 255
Left = 720
TabIndex = 28
Top = 2640
Width = 1095
End
Begin VB.Label Label7
BackColor = &H00E0E0E0&
Caption = "出生日期"
Height = 255
Left = 1080
TabIndex = 27
Top = 2280
Width = 735
End
Begin VB.Label Label6
BackColor = &H00E0E0E0&
Caption = "性别"
Height = 255
Left = 1440
TabIndex = 26
Top = 1920
Width = 375
End
Begin VB.Label Label5
BackColor = &H00E0E0E0&
Caption = "姓名"
Height = 255
Left = 1440
TabIndex = 25
Top = 1560
Width = 375
End
Begin VB.Label Label4
BackColor = &H00E0E0E0&
Caption = "密码提示答案"
Height = 255
Left = 720
TabIndex = 24
Top = 1200
Width = 1095
End
Begin VB.Label Label3
BackColor = &H00E0E0E0&
Caption = "密码提示问题"
Height = 255
Left = 720
TabIndex = 23
Top = 840
Width = 1095
End
Begin VB.Label Label2
BackColor = &H00E0E0E0&
Caption = "密码确认"
Height = 255
Left = 1080
TabIndex = 22
Top = 480
Width = 735
End
Begin VB.Label Label1
BackColor = &H00E0E0E0&
Caption = "密码"
Height = 255
Left = 1440
TabIndex = 21
Top = 120
Width = 375
End
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Form1.Hide
Form2.Show
End Sub
Private Sub Form_Load()
Combo1.AddItem "北京"
Combo1.AddItem "辽宁"
Combo1.AddItem "广东"
Combo1.AddItem "浙江"
Combo1.AddItem "江苏"
Combo1.AddItem "山东"
Combo1.AddItem "四川"
Combo1.AddItem "黑龙江"
Combo1.AddItem "湖南"
Combo1.AddItem "湖北"
Combo1.AddItem "上海"
Combo1.AddItem "福建"
Combo1.AddItem "陕西"
Combo1.AddItem "河南"
Combo1.AddItem "安徽"
Combo1.AddItem "重庆"
Combo1.AddItem "河北"
Combo1.AddItem "吉林"
Combo1.AddItem "江西"
Combo1.AddItem "天津"
Combo1.AddItem "广西"
Combo1.AddItem "山西"
Combo1.AddItem "内蒙古"
Combo1.AddItem "甘肃"
Combo1.AddItem "贵州"
Combo2.AddItem "金融业"
Combo2.AddItem "服务业"
Combo2.AddItem "信息产业"
Combo2.AddItem "制造业"
Combo2.AddItem "传播"
Combo2.AddItem "教育"
Combo2.AddItem "政府机构"
Combo2.AddItem "其他"
Combo3.AddItem "小学"
Combo3.AddItem "初中"
Combo3.AddItem "高中"
Combo3.AddItem "大学"
Combo3.AddItem "硕士"
Combo3.AddItem "博士"
Combo4.AddItem "待业"
Combo4.AddItem "退休"
Combo4.AddItem "学生"
Combo4.AddItem "经理"
Combo4.AddItem "公务员"
Combo4.AddItem "私营主"
Combo4.AddItem "职员"
Combo5.AddItem "1000以下"
Combo5.AddItem "1000－2000"
Combo5.AddItem "2000－3000"
Combo5.AddItem "3000－40000"
Combo5.AddItem "4000－50000"
Combo5.AddItem "5000以上"
Combo6.AddItem "01"
Combo6.AddItem "02"
Combo6.AddItem "03"
Combo6.AddItem "04"
Combo6.AddItem "05"
Combo6.AddItem "06"
Combo6.AddItem "07"
Combo6.AddItem "08"
Combo6.AddItem "09"
Combo6.AddItem "10"
Combo6.AddItem "11"
Combo6.AddItem "12"
End Sub
Private Sub Option1_Click()
sex = Option1.Caption
End Sub
Private Sub Option2_Click()
sex = Option2.Caption
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -