Die Community zu .NET und Classic VB.

Startseite / Tipps / VB 5/6-Tipp 0270: SysInfo-Control Demo

VB 5/6-Tipp 0270: SysInfo-Control Demo

 von ActiveVB

Schwierigkeitsgrad:

Verwendete API-Aufrufe: keine

Download: Download des Beispielprojektes [2,65 KB]

'Dieser Quellcode stammt von http://www.activevb.de
'und kann frei verwendet werden. Für eventuelle Schäden
'wird nicht gehaftet.

'Um Fehler oder Fragen zu klären, nutzen Sie bitte unser Forum.
'Ansonsten viel Spaß und Erfolg mit diesem Source!

'------------- Anfang Projektdatei Project1.vbp -------------
' Die Komponente ' (SYSINFO.OCX)' wird benötigt.

'--------- Anfang Formular "Form1" alias Form1.frm  ---------
' Steuerelement: Systeminfosteuerelement "SysInfo1"
' Steuerelement: Beschriftungsfeld "Label27"
' Steuerelement: Beschriftungsfeld "Label12"
' Steuerelement: Beschriftungsfeld "Label26"
' Steuerelement: Beschriftungsfeld "Label25"
' Steuerelement: Beschriftungsfeld "Label24"
' Steuerelement: Beschriftungsfeld "Label22"
' Steuerelement: Beschriftungsfeld "Label21"
' Steuerelement: Beschriftungsfeld "Label20"
' Steuerelement: Beschriftungsfeld "Label19"
' Steuerelement: Beschriftungsfeld "Label18"
' Steuerelement: Beschriftungsfeld "Label8"
' Steuerelement: Beschriftungsfeld "Label17"
' Steuerelement: Beschriftungsfeld "Label13"
' Steuerelement: Beschriftungsfeld "Label11"
' Steuerelement: Beschriftungsfeld "Label10"
' Steuerelement: Beschriftungsfeld "Label9"
' Steuerelement: Beschriftungsfeld "Label7"
' Steuerelement: Beschriftungsfeld "Label6"
' Steuerelement: Beschriftungsfeld "Label5"
' Steuerelement: Beschriftungsfeld "Label4"
' Steuerelement: Beschriftungsfeld "Label3"
' Steuerelement: Beschriftungsfeld "Label2"
' Steuerelement: Beschriftungsfeld "Label1"
' Steuerelement: Beschriftungsfeld "Label14"
' Steuerelement: Beschriftungsfeld "Label15"
' Steuerelement: Beschriftungsfeld "Label16"
' Steuerelement: Beschriftungsfeld "Label23"

Option Explicit

Private Sub Form_Load()
  Call GetSysInfo
End Sub

Private Sub GetSysInfo()
  Dim x&, aa$
  
    With SysInfo1
      Label1.Caption = .OSBuild
      Label2.Caption = .OSVersion
      
      x = .OSPlatform
      Select Case x
        Case 0: aa = "Win32s"
        Case 1: aa = "Windows 95"
        Case 2: aa = "Windows NT"
      End Select
      Label3.Caption = aa
      
      Label4.Caption = .ScrollBarSize / Screen.TwipsPerPixelX
      
      Label5.Caption = .WorkAreaLeft / Screen.TwipsPerPixelX
      Label6.Caption = .WorkAreaTop / Screen.TwipsPerPixelY
      Label7.Caption = .WorkAreaWidth / Screen.TwipsPerPixelX
      Label8.Caption = .WorkAreaHeight / Screen.TwipsPerPixelY
  
      x = .ACStatus
      Select Case x
        Case 0: aa = "nicht mit Netzspannung"
        Case 1: aa = "mit Netzspannung"
        Case 255: aa = "Netzstromversorgung unbekannt"
      End Select
      Label9.Caption = aa
  
      x = .BatteryFullTime
      If x = -1 Then
        Label10.Caption = "Nicht bekannt"
      Else
        Label10.Caption = x & " sec."
      End If
  
      x = .BatteryLifePercent
      If x <= 100 Then
        Label11.Caption = x & "%"
      Else
        Label11.Caption = "Unbekannt"
      End If
      
      x = .BatteryLifeTime
      If x = -1 Then
        Label12.Caption = "Nicht bekannt"
      Else
        Label12.Caption = x & " sec."
      End If
      
      x = .BatteryStatus
      Select Case x
        Case 1: aa = "Batterieladung hoch"
        Case 2: aa = "Batterieladung niedrig"
        Case 4: aa = "Batterieladung kritisch"
        Case 8: aa = "Batterie wird geladen"
        Case 128: aa = "Keine Batterie vorhanden"
        Case 255: aa = "Unbekannt"
      End Select
      Label13.Caption = aa
  
    End With
End Sub
'---------- Ende Formular "Form1" alias Form1.frm  ----------
'-------------- Ende Projektdatei Project1.vbp --------------

Archivierte Nutzerkommentare 

Klicken Sie diesen Text an, wenn Sie die 2 archivierten Kommentare ansehen möchten.
Diese stammen noch von der Zeit, als es noch keine direkte Forenunterstützung für Fragen und Kommentare zu einzelnen Artikeln gab.
Aus Gründen der Vollständigkeit können Sie sich die ausgeblendeten Kommentare zu diesem Artikel aber gerne weiterhin ansehen.