Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
- Partial Class frmElectric
- 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()
- Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmElectric))
- Me.lblTitle = New System.Windows.Forms.Label()
- Me.cboMonth = New System.Windows.Forms.ComboBox()
- Me.lblSaving = New System.Windows.Forms.Label()
- Me.btnStatistics = New System.Windows.Forms.Button()
- Me.lblAverage = New System.Windows.Forms.Label()
- Me.lblMostSaving = New System.Windows.Forms.Label()
- Me.picSmart = New System.Windows.Forms.PictureBox()
- CType(Me.picSmart, System.ComponentModel.ISupportInitialize).BeginInit()
- Me.SuspendLayout()
- '
- 'lblTitle
- '
- Me.lblTitle.AutoSize = True
- Me.lblTitle.Font = New System.Drawing.Font("Arial Rounded MT Bold", 21.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
- Me.lblTitle.Location = New System.Drawing.Point(328, 34)
- Me.lblTitle.Name = "lblTitle"
- Me.lblTitle.Size = New System.Drawing.Size(243, 66)
- Me.lblTitle.TabIndex = 0
- Me.lblTitle.Text = "Smart Home" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Electric Savings"
- Me.lblTitle.TextAlign = System.Drawing.ContentAlignment.TopCenter
- '
- 'cboMonth
- '
- Me.cboMonth.Font = New System.Drawing.Font("Gadugi", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
- Me.cboMonth.FormattingEnabled = True
- Me.cboMonth.Items.AddRange(New Object() {"January", "February", "March", "April", "May", "June", "July", "August", "September", "October", "November", "December"})
- Me.cboMonth.Location = New System.Drawing.Point(379, 128)
- Me.cboMonth.Name = "cboMonth"
- Me.cboMonth.Size = New System.Drawing.Size(147, 29)
- Me.cboMonth.TabIndex = 1
- Me.cboMonth.Text = "Select Month"
- '
- 'lblSaving
- '
- Me.lblSaving.AutoSize = True
- Me.lblSaving.Font = New System.Drawing.Font("Gadugi", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
- Me.lblSaving.Location = New System.Drawing.Point(117, 275)
- Me.lblSaving.Name = "lblSaving"
- Me.lblSaving.Size = New System.Drawing.Size(409, 19)
- Me.lblSaving.TabIndex = 2
- Me.lblSaving.Text = "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
- Me.lblSaving.Visible = False
- '
- 'btnStatistics
- '
- Me.btnStatistics.BackColor = System.Drawing.Color.DodgerBlue
- Me.btnStatistics.Font = New System.Drawing.Font("Gadugi", 20.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
- Me.btnStatistics.ForeColor = System.Drawing.Color.White
- Me.btnStatistics.Location = New System.Drawing.Point(203, 308)
- Me.btnStatistics.Name = "btnStatistics"
- Me.btnStatistics.Size = New System.Drawing.Size(259, 50)
- Me.btnStatistics.TabIndex = 3
- Me.btnStatistics.Text = "Display Statistics"
- Me.btnStatistics.UseVisualStyleBackColor = False
- '
- 'lblAverage
- '
- Me.lblAverage.AutoSize = True
- Me.lblAverage.Font = New System.Drawing.Font("Gadugi", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
- Me.lblAverage.Location = New System.Drawing.Point(118, 380)
- Me.lblAverage.Name = "lblAverage"
- Me.lblAverage.Size = New System.Drawing.Size(309, 19)
- Me.lblAverage.TabIndex = 4
- Me.lblAverage.Text = "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
- Me.lblAverage.Visible = False
- '
- 'lblMostSaving
- '
- Me.lblMostSaving.AutoSize = True
- Me.lblMostSaving.Font = New System.Drawing.Font("Gadugi", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
- Me.lblMostSaving.Location = New System.Drawing.Point(62, 418)
- Me.lblMostSaving.Name = "lblMostSaving"
- Me.lblMostSaving.Size = New System.Drawing.Size(509, 19)
- Me.lblMostSaving.TabIndex = 5
- Me.lblMostSaving.Text = "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
- Me.lblMostSaving.Visible = False
- '
- 'picSmart
- '
- Me.picSmart.BackgroundImage = CType(resources.GetObject("picSmart.BackgroundImage"), System.Drawing.Image)
- Me.picSmart.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
- Me.picSmart.Location = New System.Drawing.Point(2, 0)
- Me.picSmart.Name = "picSmart"
- Me.picSmart.Size = New System.Drawing.Size(290, 255)
- Me.picSmart.TabIndex = 6
- Me.picSmart.TabStop = False
- '
- 'frmElectric
- '
- Me.AcceptButton = Me.btnStatistics
- Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
- Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
- Me.BackColor = System.Drawing.Color.PeachPuff
- Me.ClientSize = New System.Drawing.Size(607, 463)
- Me.Controls.Add(Me.picSmart)
- Me.Controls.Add(Me.lblMostSaving)
- Me.Controls.Add(Me.lblAverage)
- Me.Controls.Add(Me.btnStatistics)
- Me.Controls.Add(Me.lblSaving)
- Me.Controls.Add(Me.cboMonth)
- Me.Controls.Add(Me.lblTitle)
- Me.Name = "frmElectric"
- Me.Text = "Smart Home Application"
- CType(Me.picSmart, System.ComponentModel.ISupportInitialize).EndInit()
- Me.ResumeLayout(False)
- Me.PerformLayout()
- End Sub
- Friend WithEvents lblTitle As Label
- Friend WithEvents cboMonth As ComboBox
- Friend WithEvents lblSaving As Label
- Friend WithEvents btnStatistics As Button
- Friend WithEvents lblAverage As Label
- Friend WithEvents lblMostSaving As Label
- Friend WithEvents picSmart As PictureBox
- Private Sub btnStatistics_Click(sender As Object, e As EventArgs) Handles btnStatistics.Click
- End Sub
- Public Class frmElectric
- ' Class Level Private Variable
- End Class
- Private Sub frmElectric_Load(sender As Object, e As EventArgs) Handles MyBase.Load
- End Sub
- End Class
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement