程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> Visual Basic語言 >> VB綜合教程 >> 輕輕松松用VB.NET顯示系統信息

輕輕松松用VB.NET顯示系統信息

編輯:VB綜合教程
實例說明
  在本實例中,我們通過使用sysinfo控件得到有關操作系統的信息,屏幕和電源的信息。程序運行結果如圖97-1所示。
  
  技術要點
  l 使用SysInfo控件
  
  l 得到操作系統版本號、電源屬性
  
  實現過程
  ■ 新建項目
  打開Visual Studio.Net,選擇“新建項目”,在項目類型窗口中選擇“Visual Basic項目”,在模板窗口中選擇“Windows應用程序”,在名稱域中輸入“SysInfo”,然後選擇保存路徑。單擊“確認”。
  
  ■ 添加控件
  向窗體上添加十個Label控件(可以通過菜單“格式”進行排列)。
  
  ■ 設置屬性
  將左面一欄的Label控件的Text屬性改為和界面一致。
  
  ■ 添加代碼
  Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  
  '得到操作系統平台代號,其中1表示95/98,2表示nt/2000系統
  
  Select Case sysinfo.OSPlatform
  
  Case 1
  
  Label2.Text = "Windows95/98"
  
  Case 2
  
  Label2.Text = "WindowsNT/2000"
  
  End Select
  
  '得到操作系統版本號
  
  Label4.Text = sysinfo.OSVersion & "." & sysinfo.OSBuild
  
  '得到桌面尺寸大小
  
  Label6.Text = sysinfo.WorkAreaHeight & "X" & sysinfo.WorkAreaWidth
  
  '得到電源狀態值,1表示交流電元,0表示電池
  
  Select Case sysinfo.ACStatus
  
  Case 1
  
  Label8.Text = "AC電源"
  
  Case 0
  
  Label8.Text = "電池"
  
  End Select
  
  '得到電池剩余時間,當電池為交流電源時,返回為-1,其他返回255
  
  Select Case sysinfo.BatteryLifeTime
  
  Case -1
  
  Label10.Text = "未知"
  
  Case Else
  
  Label10.Text = sysinfo.BatteryLifeTime
  
  End Select
  
  End Sub
  
  ■ 運行程序
  單擊菜單“調試|啟動”或單擊 圖標運行程序。
  
  小結
  sysinfo控件的所有屬性都是只讀的,因此我們只能在代碼中讀取。通過使用sysinfo控件可以幫助我們創建與Windows登錄程序相似的程序。即當我們改變系統分辨率或將一個即插即用的裝置插上或拔下時,我們的程序能夠對此做出反應。通過使用sysinfo控件可以得到操作系統信息、屏幕設置信息和電源狀態信息。其中,得到屏幕的尺寸大小不包括被Windows任務欄所占的部分。
  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved