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

'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 --------------