📄 form5.frm
字号:
EndProperty
ForeColor = &H00FFFFFF&
Height = 615
Left = 120
TabIndex = 7
Top = 4800
Width = 9375
End
Begin VB.Label Label9
Appearance = 0 'Flat
BackColor = &H00C0C0C0&
BackStyle = 0 'Transparent
Caption = "Label9"
BeginProperty Font
name = "MS Sans Serif"
charset = 1
weight = 700
size = 12
underline = 0 'False
italic = 0 'False
strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 615
Left = 120
TabIndex = 8
Top = 5520
Width = 9375
End
Begin VB.Label Label10
Appearance = 0 'Flat
BackColor = &H00C0C0C0&
BackStyle = 0 'Transparent
Caption = "Label10"
BeginProperty Font
name = "MS Sans Serif"
charset = 1
weight = 700
size = 12
underline = 0 'False
italic = 0 'False
strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 615
Left = 120
TabIndex = 9
Top = 6240
Width = 9375
End
End
Attribute VB_Name = "Form5"
Attribute VB_Creatable = False
Attribute VB_Exposed = False
Private Sub Command1_Click()
Beep
t = 0
label1.Caption = "１、机动车驾驶证全国有效。"
label2.Caption = "２、驾驶证有效期为六年。初次领取的驾驶证第一年为实习期，学习驾驶证有效期为二年。 "
label3.Caption = "３、有下列情形之一的。不得申领机动车驾驶证："
label4.Caption = " （１）有妨碍安全驾驶疾病及生理缺陷的；"
label5.Caption = " （２）被吊销机动车驾驶证未满两年的；"
label6.Caption = " （３）在吊扣机动车驾驶证期间的；"
label7.Caption = " （４）已持有机车驾驶证的（申请增驾的除外）。 "
label8.Caption = "４、初次申请大客车学习证的，由省级车辆管理所按公安部规定审批。"
label9.Caption = "５、持有军队、武警驾驶证的现役军人申请驾驶证须交验军人身份证件和省军区以上证明。"
label10.Caption = "６、对年龄超过６０周岁的，注销准驾车型Ａ、Ｂ、Ｎ、Ｐ。"
command1.Visible = False
command2.Visible = True
End Sub
Private Sub Command2_Click()
Beep
t = 0
label1.Caption = "７、机动车驾驶证遗失、损毁，应当向原发证机关书面申报原因并登报声明３０天后，同车辆管理所审核补发新证。 "
label2.Caption = "８、有下列情形之一者，注销驾驶证： "
label3.Caption = " （１）持证人死亡的； "
label4.Caption = " （２）身体条件发生变化，不适应驾驶机动车的； "
label5.Caption = " （３）超过换证时限一年以上的； "
label6.Caption = " （４）涂改、冒领机动车驾驶证的； "
label7.Caption = " （５）无正当理由，超过三个月不接受事故处理的； "
label8.Caption = " （６）持有两以上驾驶证的；"
label9.Caption = " （７）年龄超过７０周岁的； "
label10.Caption = " （８）本人或监护人提出注销申请的。 "
command2.Visible = False
command1.Visible = True
End Sub
Private Sub Command3_Click()
Beep
t = 0
command1.Visible = False
command2.Visible = False
command3.Visible = False
command4.Visible = False
command5.Visible = False
command6.Visible = True
label1.Caption = "１、车主须对想要购买的车辆来历、性能、是否注册等进行全面了解，以防上当，必要时可到相应窗口进行咨询。"
label2.Caption = "２、不能购买还差（或不足）一年就达到报废年限或已达到报废标准的车辆。同时，此类车辆亦不能办理改装手续。"
label3.Caption = "３、方向盘右置车辆不准买卖。"
label4.Caption = "４、车辆档案不得私自开启。 "
label5.Caption = "５、任何手续、证件及产品铭牌、发动机号、车架号钢印等不得私自涂改或改动。 "
label6.Caption = "６、牌照固封装置不可随意拆解。 "
label7.Caption = "７、变更、改装等必须先经过车辆管理机关审批后方可进行。 "
End Sub
Private Sub Command4_Click()
Beep
t = 0
command1.Visible = False
command2.Visible = True
command3.Visible = False
command4.Visible = False
command5.Visible = False
command6.Visible = True
label1.Caption = "１、机动车驾驶证全国有效。"
label2.Caption = "２、驾驶证有效期为六年。初次领取的驾驶证第一年为实习期，学习驾驶证有效期为二年。 "
label3.Caption = "３、有下列情形之一的，不得申领机动车驾驶证："
label4.Caption = " （１）有妨碍安全驾驶疾病及生理缺陷的；"
label5.Caption = " （２）被吊销机动车驾驶证未满两年的；"
label6.Caption = " （３）在吊扣机动车驾驶证期间的；"
label7.Caption = " （４）已持有机车驾驶证的（申请增驾的除外）。 "
label8.Caption = "４、初次申请大客车学习证的，由省级车辆管理所按公安部规定审批。"
label9.Caption = "５、持有军队、武警驾驶证的现役军人申请驾驶证须交验军人身份证件和省军区以上证明。"
label10.Caption = "６、对年龄超过６０周岁的，注销准驾车型Ａ、Ｂ、Ｎ、Ｐ。"
End Sub
Private Sub Command5_Click()
Beep
t = 0
Form1.Show
Form5.Hide
End Sub
Private Sub Command6_Click()
Beep
t = 0
command1.Visible = False
command2.Visible = False
command3.Visible = True
command4.Visible = True
command5.Visible = True
command6.Visible = False
label1.Caption = ""
label2.Caption = " "
label3.Caption = " "
label4.Caption = " "
label5.Caption = " "
label6.Caption = ""
label7.Caption = ""
label8.Caption = ""
label9.Caption = ""
label10.Caption = ""
End Sub
Private Sub Form_Load()
t = 0
command1.Visible = False
command2.Visible = False
command6.Visible = False
label1.Caption = ""
label2.Caption = " "
label3.Caption = " "
label4.Caption = " "
label5.Caption = " "
label6.Caption = ""
label7.Caption = ""
label8.Caption = ""
label9.Caption = ""
label10.Caption = ""
End Sub
Private Sub Ret()
t = 0
command1.Visible = False
command2.Visible = False
command3.Visible = True
command4.Visible = True
command5.Visible = True
command6.Visible = False
label1.Caption = ""
label2.Caption = " "
label3.Caption = " "
label4.Caption = " "
label5.Caption = " "
label6.Caption = ""
label7.Caption = ""
label8.Caption = ""
label9.Caption = ""
label10.Caption = ""
End Sub
Private Sub SSCommand1_Click()
Beep
t = 0
label1.Caption = "１、机动车驾驶证全国有效。"
label2.Caption = "２、驾驶证有效期为六年。初次领取的驾驶证第一年为实习期，学习驾驶证有效期为二年。 "
label3.Caption = "３、有下列情形之一的。不得申领机动车驾驶证："
label4.Caption = " （１）有妨碍安全驾驶疾病及生理缺陷的；"
label5.Caption = " （２）被吊销机动车驾驶证未满两年的；"
label6.Caption = " （３）在吊扣机动车驾驶证期间的；"
label7.Caption = " （４）已持有机车驾驶证的（申请增驾的除外）。 "
label8.Caption = "４、初次申请大客车学习证的，由省级车辆管理所按公安部规定审批。"
label9.Caption = "５、持有军队、武警驾驶证的现役军人申请驾驶证须交验军人身份证件和省军区以上证明。"
label10.Caption = "６、对年龄超过６０周岁的，注销准驾车型Ａ、Ｂ、Ｎ、Ｐ。"
command1.Visible = False
command2.Visible = True
End Sub
Private Sub SSCommand2_Click()
Beep
t = 0
label1.Caption = "７、机动车驾驶证遗失、损毁，应当向原发证机关书面申报原因并登报声明，３０天后，同车辆管理所审核补发新证。 "
label2.Caption = "８、有下列情形之一者，注销驾驶证： "
label3.Caption = " （１）持证从死亡的； "
label4.Caption = " （２）身体条件发生变化，不适应驾驶机动车的； "
label5.Caption = " （３）超过换证时限一年以上的； "
label6.Caption = " （４）涂改、冒领机动车驾驶证的； "
label7.Caption = " （５）无正当理由，超过三个月不接受声音或事故处理的； "
label8.Caption = " （６）垢有两以上驾驶证的；"
label9.Caption = " （７）年龄超过７０周岁的； "
label10.Caption = " （８）本人或监护人提出注销申请的。 "
command2.Visible = False
command1.Visible = True
End Sub
Private Sub SSCommand3_Click()
Beep
t = 0
command1.Visible = False
command2.Visible = False
command3.Visible = False
command4.Visible = False
command5.Visible = False
command6.Visible = True
label1.Caption = "１、车主须对想要购买的车辆来历、性能、是否注册等进行全面了解，以防上当,必要时可到相应窗口进行咨"
label2.Caption = "２、不能购买还差（或不足）一年就达到报废年限或已达到报废标准的车辆，同时,此类车辆亦不能办理改装手续"
label3.Caption = "３、方向盘右置车辆不准买卖"
label4.Caption = "４、车辆档案不得私自开启。 "
label5.Caption = "５、任何手续、证件及产品铭牌、发动机号、车架号钢印等不得私自涂改或改动。 "
label6.Caption = "６、牌照固封装置不可随意拆解。 "
label7.Caption = "７、变更、改装等必须先经过车辆管理机关审批后方可进行。 "
End Sub
Private Sub SSCommand4_Click()
Beep
t = 0
command1.Visible = False
command2.Visible = True
command3.Visible = False
command4.Visible = False
command5.Visible = False
command6.Visible = True
label1.Caption = "１、机动车驾驶证全国有效。"
label2.Caption = "２、驾驶证有效期为六年。初次领取的驾驶证第一年为实习期，学习驾驶证有效期为二年。 "
label3.Caption = "３、有下列情形之一的。不得申领机动车驾驶证："
label4.Caption = " （１）有妨碍安全驾驶疾病及生理缺陷的；"
label5.Caption = " （２）被吊销机动车驾驶证未满两年的；"
label6.Caption = " （３）在吊扣机动车驾驶证期间的；"
label7.Caption = " （４）已持有机车驾驶证的（申请增驾的除外）。 "
label8.Caption = "４、初次申请大客车学习证的，由省级车辆管理所按公安部规定审批。"
label9.Caption = "５、持有军队、武警驾驶证的现役军人申请驾驶证须交验军人身份证件和省军区以上证明。"
label10.Caption = "６、对年龄超过６０周岁的，注销准驾车型Ａ、Ｂ、Ｎ、Ｐ。"
End Sub
Private Sub SSCommand5_Click()
Beep
t = 0
Form1.Show
Form5.Hide
End Sub
Private Sub SSCommand6_Click()
Beep
t = 0
command1.Visible = False
command2.Visible = False
command3.Visible = True
command4.Visible = True
command5.Visible = True
command6.Visible = False
label1.Caption = ""
label2.Caption = " "
label3.Caption = " "
label4.Caption = " "
label5.Caption = " "
label6.Caption = ""
label7.Caption = ""
label8.Caption = ""
label9.Caption = ""
label10.Caption = ""
End Sub
Private Sub Timer1_Timer()
t = t + 1
If t >= 4 Then
Beep
'Ret
Form1.Show
Form5.Hide
t = 0
End If
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -