Code of showing the Battery Information in VB.NET
Let’s starts with the source code of VB.NET in which we try to show the information of battery.
Form1
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 |
Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Timer1.Enabled = True End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick Dim psBattery As PowerStatus = SystemInformation.PowerStatus Dim perFull As Single = psBattery.BatteryLifePercent If perFull * 100 > 100 Then ProgressBar1.Value = 100 ElseIf perFull * 100 < 100 Then ProgressBar1.Value = perFull * 100 End If If psBattery.PowerLineStatus = PowerLineStatus.Online Then Me.Text = "Battinfo - " & perFull * 100 & "%" & " charging!" ElseIf psBattery.PowerLineStatus = PowerLineStatus.Offline Then Me.Text = "Battinfo - " & perFull * 100 & "%" & " don´t charging" End If Timer1.Interval = 30000 End Sub End Class |
Form1.Designer
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 |
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _ Partial Class Form1 Inherits System.Windows.Forms.Form 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. <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 'Wird vom Windows Form-Designer benötigt. Private components As System.ComponentModel.IContainer 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. <System.Diagnostics.DebuggerStepThrough()> _ Private Sub InitializeComponent() Me.components = New System.ComponentModel.Container Me.ProgressBar1 = New System.Windows.Forms.ProgressBar Me.Timer1 = New System.Windows.Forms.Timer(Me.components) Me.SuspendLayout() ' 'ProgressBar1 ' Me.ProgressBar1.Dock = System.Windows.Forms.DockStyle.Fill Me.ProgressBar1.Location = New System.Drawing.Point(0, 0) Me.ProgressBar1.Name = "ProgressBar1" Me.ProgressBar1.Size = New System.Drawing.Size(219, 22) Me.ProgressBar1.Step = 1 Me.ProgressBar1.Style = System.Windows.Forms.ProgressBarStyle.Continuous Me.ProgressBar1.TabIndex = 4 ' 'Timer1 ' Me.Timer1.Interval = 1 ' 'Form1 ' Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None Me.ClientSize = New System.Drawing.Size(219, 22) Me.Controls.Add(Me.ProgressBar1) Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedToolWindow Me.MaximizeBox = False Me.MinimizeBox = False Me.Name = "Form1" Me.ShowIcon = False Me.ShowInTaskbar = False Me.Text = "Battinfo" Me.TopMost = True Me.ResumeLayout(False) End Sub Friend WithEvents ProgressBar1 As System.Windows.Forms.ProgressBar Friend WithEvents Timer1 As System.Windows.Forms.Timer End Class |
Download VB.NET Code to show Battery Information