[Beispiel: Batterieanzeige] Code + Download

[Beispiel: Batterieanzeige] Code + Download

'Direct Download: http://dreamcoderdl.dr.funpic.de/Beispiele/Example_BatteriestatusGadget.exe
'Verwendete Controls (Bild):


'Screenshot:


'Code (Komplett):

Option Explicit On
Imports System
Public Class Form1

Dim battery As PowerStatus = SystemInformation.PowerStatus
Dim MouseOffset As Point

Private Sub Form1_Load(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles MyBase.Load
Me.BackColor = Color.Red
Me.TransparencyKey = Color.Red
End Sub

Private Sub aktualisiere_Tick(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles aktualisiere.Tick
Dim lifetime As Integer = Int(battery.BatteryLifePercent * 100)
If lifetime > 50 Then
ProgressBar1.ForeColor = Color.LawnGreen
ElseIf lifetime <= 50 And lifetime > 35 Then
ProgressBar1.ForeColor = Color.Yellow
ElseIf lifetime <= 35 Then
ProgressBar1.ForeColor = Color.Red
End If
Select Case battery.PowerLineStatus
Case System.Windows.Forms.PowerLineStatus.Offline
lblPowerLineStatus.Text = "Akkubetrieb"
Case System.Windows.Forms.PowerLineStatus.Online
lblPowerLineStatus.Text = "Netzbetrieb"
End Select
ProgressBar1.Value = battery.BatteryLifePercent * 100
Dim remaining As Integer = Int(battery.BatteryLifeRemaining)
If remaining <> -1 Then
lblMinuten.Text = (battery.BatteryLifePercent * 100).ToString() & "% Verbleibend (" & _
(Int(remaining / 60)).ToString() & " Minuten)"
Else
lblMinuten.Text = (battery.BatteryLifePercent * 100).ToString() & "% Verbleibend"
End If
End Sub

Private Sub all_MouseDown(ByVal sender As System.Object, _
ByVal e As System.Windows.Forms.MouseEventArgs) Handles ProgressBar1.MouseDown
MouseOffset = New Point(-e.X, -e.Y)
End Sub

Private Sub all_MouseMove(ByVal sender As System.Object, ByVal e _
As System.Windows.Forms.MouseEventArgs) Handles ProgressBar1.MouseMove
If e.Button = MouseButtons.Left Then
Dim mousePos = Control.MousePosition
mousePos.Offset(MouseOffset.X, MouseOffset.Y)
Location = mousePos
End If
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button1.Click
Application.Exit()
End Sub
End Class

Re: [Beispiel: Batterieanzeige] Code + Download

Ich wollte nur mal zeigen, wie man eine Batterieanzeige leicht umsetzt (;
Viel Spaß! 

Re: [Beispiel: Batterieanzeige] Code + Download

PS: Bei euch kanns auch so aussehen:
 
Ich hatte zusätzlich noch die Visuallen XP-Stile deaktiviert,
damit ich die Progressbar-Farben beliebig ändern kann..