Files
2025-06-27 12:47:13 +03:00

349 lines
13 KiB
VB.net

<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class Form1
Inherits System.Windows.Forms.Form
'Form overrides dispose to clean up the component list.
<System.Diagnostics.DebuggerNonUserCode()>
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
mail = New Button()
cardInfo = New Button()
plus = New Button()
currentStop = New Button()
zone = New Button()
currentStopBack = New Button()
zoneBack = New Button()
currentStopForward = New Button()
zoneForward = New Button()
otherTickets = New Button()
group = New Button()
zone23 = New Button()
free = New Button()
zone13 = New Button()
zone3 = New Button()
aloneticket = New Button()
lineAndTime = New TextBox()
driverName = New TextBox()
delay = New TextBox()
scanTicket = New Button()
regTime = New TextBox()
SuspendLayout()
'
' mail
'
mail.BackColor = SystemColors.HotTrack
mail.Font = New Font("Segoe UI", 27.75F, FontStyle.Bold, GraphicsUnit.Point)
mail.ForeColor = SystemColors.ButtonHighlight
mail.Location = New Point(12, 12)
mail.Name = "mail"
mail.Size = New Size(113, 62)
mail.TabIndex = 0
mail.Text = ""
mail.UseVisualStyleBackColor = False
'
' cardInfo
'
cardInfo.BackColor = SystemColors.HotTrack
cardInfo.Font = New Font("Segoe UI", 12F, FontStyle.Regular, GraphicsUnit.Point)
cardInfo.ForeColor = SystemColors.ButtonHighlight
cardInfo.Location = New Point(122, 12)
cardInfo.Name = "cardInfo"
cardInfo.Size = New Size(322, 62)
cardInfo.TabIndex = 1
cardInfo.Text = "Kaardi info"
cardInfo.UseVisualStyleBackColor = False
'
' plus
'
plus.BackColor = SystemColors.HotTrack
plus.Font = New Font("Segoe UI", 12F, FontStyle.Regular, GraphicsUnit.Point)
plus.ForeColor = SystemColors.ButtonHighlight
plus.Location = New Point(440, 12)
plus.Name = "plus"
plus.Size = New Size(348, 62)
plus.TabIndex = 2
plus.Text = "+"
plus.UseVisualStyleBackColor = False
'
' currentStop
'
currentStop.BackColor = Color.OliveDrab
currentStop.Font = New Font("Segoe UI", 12F, FontStyle.Regular, GraphicsUnit.Point)
currentStop.ForeColor = SystemColors.ButtonHighlight
currentStop.Location = New Point(372, 92)
currentStop.Name = "currentStop"
currentStop.Size = New Size(346, 62)
currentStop.TabIndex = 3
currentStop.Text = "Neeme (Harju 3)"
currentStop.UseVisualStyleBackColor = False
'
' zone
'
zone.BackColor = SystemColors.HotTrack
zone.Font = New Font("Segoe UI", 12F, FontStyle.Regular, GraphicsUnit.Point)
zone.ForeColor = SystemColors.ButtonHighlight
zone.Location = New Point(372, 160)
zone.Name = "zone"
zone.Size = New Size(346, 62)
zone.TabIndex = 4
zone.Text = "Harju 1"
zone.UseVisualStyleBackColor = False
'
' currentStopBack
'
currentStopBack.BackColor = SystemColors.ButtonShadow
currentStopBack.Font = New Font("Segoe UI", 12F, FontStyle.Bold, GraphicsUnit.Point)
currentStopBack.ForeColor = SystemColors.ButtonHighlight
currentStopBack.Location = New Point(324, 92)
currentStopBack.Name = "currentStopBack"
currentStopBack.Size = New Size(42, 62)
currentStopBack.TabIndex = 5
currentStopBack.Text = "<"
currentStopBack.UseVisualStyleBackColor = False
'
' zoneBack
'
zoneBack.BackColor = SystemColors.HotTrack
zoneBack.Font = New Font("Segoe UI", 12F, FontStyle.Bold, GraphicsUnit.Point)
zoneBack.ForeColor = SystemColors.ButtonHighlight
zoneBack.Location = New Point(324, 160)
zoneBack.Name = "zoneBack"
zoneBack.Size = New Size(42, 62)
zoneBack.TabIndex = 6
zoneBack.Text = "<"
zoneBack.UseVisualStyleBackColor = False
'
' currentStopForward
'
currentStopForward.BackColor = SystemColors.ButtonShadow
currentStopForward.Font = New Font("Segoe UI", 12F, FontStyle.Bold, GraphicsUnit.Point)
currentStopForward.ForeColor = SystemColors.ButtonHighlight
currentStopForward.Location = New Point(724, 92)
currentStopForward.Name = "currentStopForward"
currentStopForward.Size = New Size(42, 62)
currentStopForward.TabIndex = 7
currentStopForward.Text = ">"
currentStopForward.UseVisualStyleBackColor = False
'
' zoneForward
'
zoneForward.BackColor = SystemColors.ButtonShadow
zoneForward.Font = New Font("Segoe UI", 12F, FontStyle.Bold, GraphicsUnit.Point)
zoneForward.ForeColor = SystemColors.ButtonHighlight
zoneForward.Location = New Point(724, 160)
zoneForward.Name = "zoneForward"
zoneForward.Size = New Size(42, 62)
zoneForward.TabIndex = 8
zoneForward.Text = ">"
zoneForward.UseVisualStyleBackColor = False
'
' otherTickets
'
otherTickets.BackColor = SystemColors.HotTrack
otherTickets.Font = New Font("Segoe UI", 12F, FontStyle.Regular, GraphicsUnit.Point)
otherTickets.ForeColor = SystemColors.ButtonHighlight
otherTickets.Location = New Point(608, 317)
otherTickets.Name = "otherTickets"
otherTickets.Size = New Size(180, 121)
otherTickets.TabIndex = 9
otherTickets.Text = "Teised Piletid"
otherTickets.UseVisualStyleBackColor = False
'
' group
'
group.BackColor = SystemColors.HotTrack
group.Font = New Font("Segoe UI", 12F, FontStyle.Regular, GraphicsUnit.Point)
group.ForeColor = SystemColors.ButtonHighlight
group.Location = New Point(423, 379)
group.Name = "group"
group.Size = New Size(179, 59)
group.TabIndex = 10
group.Text = "Grupipilet"
group.UseVisualStyleBackColor = False
'
' zone23
'
zone23.BackColor = SystemColors.HotTrack
zone23.Font = New Font("Segoe UI", 12F, FontStyle.Regular, GraphicsUnit.Point)
zone23.ForeColor = SystemColors.ButtonHighlight
zone23.Location = New Point(423, 317)
zone23.Name = "zone23"
zone23.Size = New Size(179, 56)
zone23.TabIndex = 11
zone23.Text = "2.-3. tsoon" & vbCrLf & " 2.00 EUR"
zone23.UseVisualStyleBackColor = False
'
' free
'
free.BackColor = SystemColors.HotTrack
free.Font = New Font("Segoe UI", 12F, FontStyle.Regular, GraphicsUnit.Point)
free.ForeColor = SystemColors.ButtonHighlight
free.Location = New Point(225, 317)
free.Name = "free"
free.Size = New Size(192, 56)
free.TabIndex = 13
free.Text = " Tasuta" & vbCrLf & "0.00 EUR"
free.UseVisualStyleBackColor = False
'
' zone13
'
zone13.BackColor = SystemColors.HotTrack
zone13.Font = New Font("Segoe UI", 12F, FontStyle.Regular, GraphicsUnit.Point)
zone13.ForeColor = SystemColors.ButtonHighlight
zone13.Location = New Point(225, 379)
zone13.Name = "zone13"
zone13.Size = New Size(192, 59)
zone13.TabIndex = 12
zone13.Text = "1.-3. tsoon" & vbCrLf & " 2.90 EUR"
zone13.UseVisualStyleBackColor = False
'
' zone3
'
zone3.BackColor = SystemColors.HotTrack
zone3.Font = New Font("Segoe UI", 12F, FontStyle.Regular, GraphicsUnit.Point)
zone3.ForeColor = SystemColors.ButtonHighlight
zone3.Location = New Point(12, 317)
zone3.Name = "zone3"
zone3.Size = New Size(207, 56)
zone3.TabIndex = 15
zone3.Text = "3. tsoon" & vbCrLf & "1.10 EUR"
zone3.UseVisualStyleBackColor = False
'
' aloneticket
'
aloneticket.BackColor = SystemColors.HotTrack
aloneticket.Font = New Font("Segoe UI", 12F, FontStyle.Regular, GraphicsUnit.Point)
aloneticket.ForeColor = SystemColors.ButtonHighlight
aloneticket.Location = New Point(12, 379)
aloneticket.Name = "aloneticket"
aloneticket.Size = New Size(207, 59)
aloneticket.TabIndex = 14
aloneticket.Text = "Üksikpilet" & vbCrLf & " 2.90 EUR"
aloneticket.UseVisualStyleBackColor = False
'
' lineAndTime
'
lineAndTime.BackColor = SystemColors.MenuText
lineAndTime.BorderStyle = BorderStyle.None
lineAndTime.Font = New Font("Segoe UI", 15.75F, FontStyle.Regular, GraphicsUnit.Point)
lineAndTime.ForeColor = SystemColors.Window
lineAndTime.Location = New Point(12, 80)
lineAndTime.Name = "lineAndTime"
lineAndTime.Size = New Size(194, 28)
lineAndTime.TabIndex = 16
'
' driverName
'
driverName.BackColor = SystemColors.MenuText
driverName.BorderStyle = BorderStyle.None
driverName.ForeColor = SystemColors.Window
driverName.Location = New Point(12, 131)
driverName.Name = "driverName"
driverName.Size = New Size(156, 16)
driverName.TabIndex = 17
'
' delay
'
delay.BackColor = SystemColors.MenuText
delay.BorderStyle = BorderStyle.None
delay.ForeColor = SystemColors.Window
delay.Location = New Point(244, 131)
delay.Name = "delay"
delay.Size = New Size(74, 16)
delay.TabIndex = 18
'
' scanTicket
'
scanTicket.BackColor = Color.Red
scanTicket.Font = New Font("Segoe UI", 12F, FontStyle.Regular, GraphicsUnit.Point)
scanTicket.ForeColor = SystemColors.ButtonHighlight
scanTicket.Location = New Point(12, 170)
scanTicket.Name = "scanTicket"
scanTicket.Size = New Size(180, 52)
scanTicket.TabIndex = 19
scanTicket.Text = "SCAN"
scanTicket.UseVisualStyleBackColor = False
'
' regTime
'
regTime.BackColor = SystemColors.MenuText
regTime.BorderStyle = BorderStyle.None
regTime.Font = New Font("Segoe UI", 15.75F, FontStyle.Regular, GraphicsUnit.Point)
regTime.ForeColor = SystemColors.Window
regTime.Location = New Point(212, 80)
regTime.Name = "regTime"
regTime.Size = New Size(106, 28)
regTime.TabIndex = 20
'
' Form1
'
AutoScaleDimensions = New SizeF(7F, 15F)
AutoScaleMode = AutoScaleMode.Font
BackColor = SystemColors.ActiveCaptionText
ClientSize = New Size(800, 450)
Controls.Add(regTime)
Controls.Add(scanTicket)
Controls.Add(delay)
Controls.Add(driverName)
Controls.Add(lineAndTime)
Controls.Add(zone3)
Controls.Add(aloneticket)
Controls.Add(free)
Controls.Add(zone13)
Controls.Add(zone23)
Controls.Add(group)
Controls.Add(otherTickets)
Controls.Add(zoneForward)
Controls.Add(currentStopForward)
Controls.Add(zoneBack)
Controls.Add(currentStopBack)
Controls.Add(zone)
Controls.Add(currentStop)
Controls.Add(plus)
Controls.Add(cardInfo)
Controls.Add(mail)
Name = "Form1"
Text = "bus driver thingy"
ResumeLayout(False)
PerformLayout()
End Sub
Friend WithEvents mail As Button
Friend WithEvents cardInfo As Button
Friend WithEvents plus As Button
Friend WithEvents currentStop As Button
Friend WithEvents zone As Button
Friend WithEvents currentStopBack As Button
Friend WithEvents zoneBack As Button
Friend WithEvents currentStopForward As Button
Friend WithEvents zoneForward As Button
Friend WithEvents otherTickets As Button
Friend WithEvents group As Button
Friend WithEvents zone23 As Button
Friend WithEvents free As Button
Friend WithEvents zone13 As Button
Friend WithEvents zone3 As Button
Friend WithEvents aloneticket As Button
Friend WithEvents lineAndTime As TextBox
Friend WithEvents driverName As TextBox
Friend WithEvents delay As TextBox
Friend WithEvents scanTicket As Button
Friend WithEvents regTime As TextBox
End Class