?? taxi.vb
字號(hào):
Public Class Form1
Inherits System.Windows.Forms.Form
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents MainMenu1 As System.Windows.Forms.MainMenu
#Region " Windows 窗體設(shè)計(jì)器生成的代碼 "
Public Sub New()
MyBase.New()
'該調(diào)用是 Windows 窗體設(shè)計(jì)器所必需的。
InitializeComponent()
'在 InitializeComponent() 調(diào)用之后添加任何初始化
End Sub
'窗體重寫(xiě) dispose 以清理組件列表。
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
MyBase.Dispose(disposing)
End Sub
'注意: 以下過(guò)程是 Windows 窗體設(shè)計(jì)器所必需的
'可以使用 Windows 窗體設(shè)計(jì)器修改此過(guò)程。
'不要使用代碼編輯器修改它。
Friend WithEvents StartFee As System.Windows.Forms.TextBox
Friend WithEvents StartDistance As System.Windows.Forms.TextBox
Friend WithEvents GroupBox1 As OpenNETCF.Windows.Forms.GroupBox
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents TextBox3 As System.Windows.Forms.TextBox
Friend WithEvents Price2 As System.Windows.Forms.TextBox
Friend WithEvents Price1 As System.Windows.Forms.TextBox
Friend WithEvents Distance As System.Windows.Forms.TextBox
Friend WithEvents Label4 As System.Windows.Forms.Label
Friend WithEvents StartTime As System.Windows.Forms.TextBox
Friend WithEvents Label5 As System.Windows.Forms.Label
Friend WithEvents FeeOfPerMinute As System.Windows.Forms.TextBox
Friend WithEvents GroupBox2 As OpenNETCF.Windows.Forms.GroupBox
Friend WithEvents Label6 As System.Windows.Forms.Label
Friend WithEvents Label7 As System.Windows.Forms.Label
Friend WithEvents thisDistance As System.Windows.Forms.TextBox
Friend WithEvents ThisTime As System.Windows.Forms.TextBox
Friend WithEvents Label8 As System.Windows.Forms.Label
Friend WithEvents Fee As System.Windows.Forms.TextBox
Friend WithEvents Button1 As System.Windows.Forms.Button
Friend WithEvents N1 As System.Windows.Forms.Button
Friend WithEvents N2 As System.Windows.Forms.Button
Friend WithEvents N4 As System.Windows.Forms.Button
Friend WithEvents N3 As System.Windows.Forms.Button
Friend WithEvents N8 As System.Windows.Forms.Button
Friend WithEvents N7 As System.Windows.Forms.Button
Friend WithEvents N6 As System.Windows.Forms.Button
Friend WithEvents N5 As System.Windows.Forms.Button
Friend WithEvents N0 As System.Windows.Forms.Button
Friend WithEvents N9 As System.Windows.Forms.Button
Friend WithEvents Ndot As System.Windows.Forms.Button
Friend WithEvents GroupBox3 As OpenNETCF.Windows.Forms.GroupBox
Friend WithEvents Lable As System.Windows.Forms.Label
Friend WithEvents ZK As System.Windows.Forms.TextBox
Friend WithEvents Label9 As System.Windows.Forms.Label
Friend WithEvents NBack As System.Windows.Forms.Button
Friend WithEvents NWrite As System.Windows.Forms.Button
Friend WithEvents Night As System.Windows.Forms.CheckBox
Friend WithEvents MenuItem4 As System.Windows.Forms.MenuItem
Friend WithEvents MenuItem1 As System.Windows.Forms.MenuItem
Friend WithEvents MenuItem2 As System.Windows.Forms.MenuItem
Friend WithEvents Timer1 As System.Windows.Forms.Timer
Friend WithEvents MenuItem3 As System.Windows.Forms.MenuItem
Friend WithEvents MenuItem5 As System.Windows.Forms.MenuItem
Private Sub InitializeComponent()
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(Form1))
Me.MainMenu1 = New System.Windows.Forms.MainMenu
Me.MenuItem4 = New System.Windows.Forms.MenuItem
Me.MenuItem3 = New System.Windows.Forms.MenuItem
Me.MenuItem5 = New System.Windows.Forms.MenuItem
Me.MenuItem1 = New System.Windows.Forms.MenuItem
Me.MenuItem2 = New System.Windows.Forms.MenuItem
Me.Label1 = New System.Windows.Forms.Label
Me.StartFee = New System.Windows.Forms.TextBox
Me.Label2 = New System.Windows.Forms.Label
Me.StartDistance = New System.Windows.Forms.TextBox
Me.GroupBox1 = New OpenNETCF.Windows.Forms.GroupBox
Me.FeeOfPerMinute = New System.Windows.Forms.TextBox
Me.Label5 = New System.Windows.Forms.Label
Me.StartTime = New System.Windows.Forms.TextBox
Me.Price1 = New System.Windows.Forms.TextBox
Me.Distance = New System.Windows.Forms.TextBox
Me.Label4 = New System.Windows.Forms.Label
Me.Price2 = New System.Windows.Forms.TextBox
Me.TextBox3 = New System.Windows.Forms.TextBox
Me.Label3 = New System.Windows.Forms.Label
Me.GroupBox2 = New OpenNETCF.Windows.Forms.GroupBox
Me.NWrite = New System.Windows.Forms.Button
Me.Night = New System.Windows.Forms.CheckBox
Me.GroupBox3 = New OpenNETCF.Windows.Forms.GroupBox
Me.ZK = New System.Windows.Forms.TextBox
Me.Lable = New System.Windows.Forms.Label
Me.Label9 = New System.Windows.Forms.Label
Me.Button1 = New System.Windows.Forms.Button
Me.Fee = New System.Windows.Forms.TextBox
Me.Label8 = New System.Windows.Forms.Label
Me.ThisTime = New System.Windows.Forms.TextBox
Me.thisDistance = New System.Windows.Forms.TextBox
Me.Label7 = New System.Windows.Forms.Label
Me.Label6 = New System.Windows.Forms.Label
Me.N1 = New System.Windows.Forms.Button
Me.N2 = New System.Windows.Forms.Button
Me.N4 = New System.Windows.Forms.Button
Me.N3 = New System.Windows.Forms.Button
Me.N8 = New System.Windows.Forms.Button
Me.N7 = New System.Windows.Forms.Button
Me.N6 = New System.Windows.Forms.Button
Me.N5 = New System.Windows.Forms.Button
Me.N0 = New System.Windows.Forms.Button
Me.N9 = New System.Windows.Forms.Button
Me.Ndot = New System.Windows.Forms.Button
Me.NBack = New System.Windows.Forms.Button
Me.Timer1 = New System.Windows.Forms.Timer
'
'MainMenu1
'
Me.MainMenu1.MenuItems.Add(Me.MenuItem4)
Me.MainMenu1.MenuItems.Add(Me.MenuItem1)
Me.MainMenu1.MenuItems.Add(Me.MenuItem2)
'
'MenuItem4
'
Me.MenuItem4.MenuItems.Add(Me.MenuItem3)
Me.MenuItem4.MenuItems.Add(Me.MenuItem5)
Me.MenuItem4.Text = "乘車記錄"
'
'MenuItem3
'
Me.MenuItem3.Text = "查看乘車記錄"
'
'MenuItem5
'
Me.MenuItem5.Text = "清空乘車記錄"
'
'MenuItem1
'
Me.MenuItem1.Text = "關(guān)于"
'
'MenuItem2
'
Me.MenuItem2.Text = "退出"
'
'Label1
'
Me.Label1.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Bold)
Me.Label1.ForeColor = System.Drawing.Color.Red
Me.Label1.Location = New System.Drawing.Point(8, 16)
Me.Label1.Size = New System.Drawing.Size(56, 16)
Me.Label1.Text = "起步價(jià):"
'
'StartFee
'
Me.StartFee.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Bold)
Me.StartFee.ForeColor = System.Drawing.Color.Blue
Me.StartFee.Location = New System.Drawing.Point(64, 16)
Me.StartFee.Size = New System.Drawing.Size(32, 22)
Me.StartFee.Text = "10"
'
'Label2
'
Me.Label2.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Bold)
Me.Label2.ForeColor = System.Drawing.Color.Red
Me.Label2.Location = New System.Drawing.Point(104, 16)
Me.Label2.Size = New System.Drawing.Size(80, 20)
Me.Label2.Text = "起步公理數(shù):"
'
'StartDistance
'
Me.StartDistance.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Bold)
Me.StartDistance.ForeColor = System.Drawing.Color.Blue
Me.StartDistance.Location = New System.Drawing.Point(184, 16)
Me.StartDistance.Size = New System.Drawing.Size(32, 22)
Me.StartDistance.Text = "3"
'
'GroupBox1
'
Me.GroupBox1.Controls.Add(Me.FeeOfPerMinute)
Me.GroupBox1.Controls.Add(Me.Label5)
Me.GroupBox1.Controls.Add(Me.StartTime)
Me.GroupBox1.Controls.Add(Me.Price1)
Me.GroupBox1.Controls.Add(Me.Distance)
Me.GroupBox1.Controls.Add(Me.Label4)
Me.GroupBox1.Controls.Add(Me.Price2)
Me.GroupBox1.Controls.Add(Me.TextBox3)
Me.GroupBox1.Controls.Add(Me.Label3)
Me.GroupBox1.Controls.Add(Me.StartDistance)
Me.GroupBox1.Controls.Add(Me.StartFee)
Me.GroupBox1.Controls.Add(Me.Label1)
Me.GroupBox1.Controls.Add(Me.Label2)
Me.GroupBox1.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Bold)
Me.GroupBox1.ForeColor = System.Drawing.Color.Blue
Me.GroupBox1.Location = New System.Drawing.Point(8, 3)
Me.GroupBox1.Size = New System.Drawing.Size(224, 112)
Me.GroupBox1.Text = "計(jì)價(jià)規(guī)則設(shè)置"
'
'FeeOfPerMinute
'
Me.FeeOfPerMinute.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Bold)
Me.FeeOfPerMinute.ForeColor = System.Drawing.Color.Blue
Me.FeeOfPerMinute.Location = New System.Drawing.Point(184, 88)
Me.FeeOfPerMinute.Size = New System.Drawing.Size(32, 22)
Me.FeeOfPerMinute.Text = "2"
'
'Label5
'
Me.Label5.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Bold)
Me.Label5.ForeColor = System.Drawing.Color.Red
Me.Label5.Location = New System.Drawing.Point(48, 88)
Me.Label5.Size = New System.Drawing.Size(136, 20)
Me.Label5.Text = "分鐘后等待計(jì)價(jià)每分鐘"
'
'StartTime
'
Me.StartTime.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Bold)
Me.StartTime.ForeColor = System.Drawing.Color.Blue
Me.StartTime.Location = New System.Drawing.Point(16, 88)
Me.StartTime.Size = New System.Drawing.Size(24, 22)
Me.StartTime.Text = "0"
'
'Price1
'
Me.Price1.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Bold)
Me.Price1.ForeColor = System.Drawing.Color.Blue
Me.Price1.Location = New System.Drawing.Point(184, 40)
Me.Price1.Size = New System.Drawing.Size(32, 22)
Me.Price1.Text = "2"
'
'Distance
'
Me.Distance.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Bold)
Me.Distance.ForeColor = System.Drawing.Color.Blue
Me.Distance.Location = New System.Drawing.Point(16, 40)
Me.Distance.Size = New System.Drawing.Size(24, 22)
Me.Distance.Text = "10"
'
'Label4
'
Me.Label4.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Bold)
Me.Label4.ForeColor = System.Drawing.Color.Red
Me.Label4.Location = New System.Drawing.Point(48, 40)
Me.Label4.Size = New System.Drawing.Size(120, 20)
Me.Label4.Text = "公里內(nèi)每公里價(jià)格為"
'
'Price2
'
Me.Price2.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Bold)
Me.Price2.ForeColor = System.Drawing.Color.Blue
Me.Price2.Location = New System.Drawing.Point(184, 64)
Me.Price2.Size = New System.Drawing.Size(32, 22)
Me.Price2.Text = "3"
'
'TextBox3
'
Me.TextBox3.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Bold)
Me.TextBox3.ForeColor = System.Drawing.Color.Blue
Me.TextBox3.Location = New System.Drawing.Point(16, 64)
Me.TextBox3.Size = New System.Drawing.Size(24, 22)
Me.TextBox3.Text = "10"
'
'Label3
'
Me.Label3.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Bold)
?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -