📄 form4.frm
字号:
italic = 0 'False
strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 495
Left = 240
TabIndex = 3
Top = 2520
Width = 9255
End
Begin VB.Label Label3
Appearance = 0 'Flat
BackColor = &H00C0C0C0&
BackStyle = 0 'Transparent
Caption = "Label3"
BeginProperty Font
name = "MS Sans Serif"
charset = 1
weight = 700
size = 18
underline = 0 'False
italic = 0 'False
strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 495
Left = 240
TabIndex = 2
Top = 1920
Width = 9255
End
Begin VB.Label Label2
Appearance = 0 'Flat
BackColor = &H00C0C0C0&
BackStyle = 0 'Transparent
Caption = "Label2"
BeginProperty Font
name = "MS Sans Serif"
charset = 1
weight = 700
size = 18
underline = 0 'False
italic = 0 'False
strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 495
Left = 360
TabIndex = 1
Top = 1320
Width = 9255
End
Begin VB.Label Label1
Appearance = 0 'Flat
BackColor = &H00C0C0C0&
BackStyle = 0 'Transparent
Caption = "Label1"
BeginProperty Font
name = "MS Sans Serif"
charset = 1
weight = 700
size = 18
underline = 0 'False
italic = 0 'False
strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 495
Left = 240
TabIndex = 0
Top = 720
Width = 9255
End
End
Attribute VB_Name = "Form4"
Attribute VB_Creatable = False
Attribute VB_Exposed = False
Private Sub Command1_Click()
dis
label1.Caption = "大型汽车、型汽车１５８ 元 "
label2.Caption = "农用运输车 １０８ 元 "
label3.Caption = "挂车 １０８ 元"
label4.Caption = "三轮摩托车、农用三轮车 １３３ 元 "
label5.Caption = "二轮摩托车 １３１ 元 "
label6.Caption = "轻便摩托车 １２８元"
label7.Caption = "过户１５ 元、临牌 ２０ 元、补证 ２０ 元"
End Sub
Private Sub Command2_Click()
dis
Picture1.Visible = True
End Sub
Private Sub Command3_Click()
dis
label3.Caption = "Ａ、Ｂ、Ｃ ４９８元 "
label5.Caption = "Ｄ、Ｅ ２９８元 "
label7.Caption = "Ｆ １９８元 "
End Sub
Private Sub Command4_Click()
dis
label1.Caption = "进口高档轿车 ３０％"
label2.Caption = "中档轿车、吉普车 １５％"
label3.Caption = "低档轿车、客车、货车 １０％"
label4.Caption = "国产高级轿车 １５％"
label5.Caption = "国产轿车、客车、货车 ５％"
label6.Caption = "三轮，二轮摩托车 ５００元"
label7.Caption = "轻便摩托车 ３００元"
label8.Caption = "摩托车购价超过１万元的按５％征收"
End Sub
Private Sub Command5_Click()
Picture1.Visible = False
Beep
t = 0
Form1.Show
Form4.Hide
End Sub
Private Sub Command6_Click()
Picture1.Visible = False
Beep
t = 0
command1.Visible = True
command2.Visible = True
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 dis()
t = 0
Beep
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 = ""
label8.Caption = ""
label9.Caption = ""
label10.Caption = ""
End Sub
Private Sub Form_Load()
command1.Visible = True
command2.Visible = True
command3.Visible = True
command4.Visible = True
command5.Visible = True
command6.Visible = False
Picture1.Visible = False
command1.Caption = "牌照收费明示"
command2.Caption = "驾驶证收费明示"
command3.Caption = "ＩＣ卡收费明示"
command4.Caption = "增容费收费明示"
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()
Beep
command1.Visible = True
command2.Visible = True
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 = ""
t = 0
End Sub
Private Sub SSCommand1_Click()
dis
label1.Caption = "大型汽车.小型汽车 1 5 8 元; "
label2.Caption = "农用运输车 1 0 8 元; "
label3.Caption = "挂车 1 0 8 元;"
label4.Caption = "三轮摩托车,农用三轮车 1 3 3 元; "
label5.Caption = "二轮摩托车 1 3 1 元; "
label6.Caption = "轻便摩托车128元;"
label7.Caption = " 过户 1 5 元; 临牌 2 0 元; 补证 2 0 元."
End Sub
Private Sub SSCommand2_Click()
dis
label1.Caption = "初办A 5 0 0 0 元; B增A 2 4 0 0 元;"
label1.Caption = "初办B 全训 3 6 0 0 元,以运代训 2 4 0 0 元;"
label1.Caption = "初办C 全训 2 8 0 0 元, 以运代训 2 0 0 0 元;"
label2.Caption = "初办D 6 0 0 元;"
label3.Caption = "初办E 4 0 0 元;"
label4.Caption = "E 增D 2 0 0 元; F 增 D 3 O O 元;"
label5.Caption = "F 增E 1 0 0 元; "
label6.Caption = "G 增B 全训 2 0 0 0 元, 以运代训 1 5 0 0 元;"
label7.Caption = "A,B,C,G,M,Q 增D 6 0 0 元;"
label8.Caption = "A,B,C,G,M,Q 增E 4 0 0 元;"
label9.Caption = "A,B,C,G,M,Q 增F 3 0 0 元;"
label10.Caption = "补证 2 1 元. "
End Sub
Private Sub SSCommand3_Click()
dis
label3.Caption = "A,B,C 4 9 8 元; "
label5.Caption = "D,E 2 9 8 元; "
label7.Caption = "F 1 9 8 ."
End Sub
Private Sub SSCommand4_Click()
dis
label1.Caption = "进口高档轿车３０％;"
label2.Caption = "中档轿车，吉普车１５％;"
label3.Caption = "低档轿车，客车，货车１０％；"
label4.Caption = "国产高级轿车１５％;"
label5.Caption = "国产轿车，客车，货车５％;"
label6.Caption = "三轮，二轮摩托车５００元;"
label7.Caption = "轻便摩托车３００元；"
label8.Caption = "摩托车购价超过１万元的按５％征收."
End Sub
Private Sub SSCommand5_Click()
Beep
t = 0
Form1.Show
Form4.Hide
End Sub
Private Sub SSCommand6_Click()
Beep
t = 0
command1.Visible = True
command2.Visible = True
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
Form4.Hide
t = 0
End If
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -