VB.NET編程語(yǔ)言應(yīng)用范圍比較廣泛，可以幫助開(kāi)發(fā)人員實(shí)現(xiàn)各種功能。比如對(duì)文本的操作，對(duì)數(shù)據(jù)庫(kù)的操作等等。那么今天我們會(huì)了解到的則是VB.NET顯示系統(tǒng)信息的相關(guān)操作方法，希望會(huì)對(duì)大家有所幫助。#t#

VB.NET顯示系統(tǒng)信息實(shí)例說(shuō)明

在本實(shí)例中，我們通過(guò)使用sysinfo控件得到有關(guān)操作系統(tǒng)的信息，屏幕和電源的信息。程序運(yùn)行結(jié)果如圖97-1所示。

VB.NET顯示系統(tǒng)信息技術(shù)要點(diǎn)

使用SysInfo控件得到操作系統(tǒng)版本號(hào)、電源屬性

VB.NET顯示系統(tǒng)信息實(shí)現(xiàn)過(guò)程

■ 新建項(xiàng)目

打開(kāi)Visual Studio.NET，選擇“新建項(xiàng)目”，在項(xiàng)目類(lèi)型窗口中選擇“Visual Basic項(xiàng)目”，在模板窗口中選擇“Windows應(yīng)用程序”，在名稱(chēng)域中輸入“SysInfo”，然后選擇保存路徑。單擊“確認(rèn)”。

■ 添加控件

向窗體上添加十個(gè)Label控件（可以通過(guò)菜單“格式”進(jìn)行排列）。

■ 設(shè)置屬性

將左面一欄的Label控件的Text屬性改為和界面一致。

■ 添加代碼

Private Sub Form1_Load(ByVal 
sender As System.Object, ByVal 
e As System.EventArgs) Handles 
MyBase.Load  
'得到操作系統(tǒng)平臺(tái)代號(hào)，其中1表示95/98
，2表示nt/2000系統(tǒng)  
Select Case sysinfo.OSPlatform  
Case 1  
Label2.Text = "Windows95/98" 
Case 2  
Label2.Text = "WindowsNT/2000" 
End Select  
'得到操作系統(tǒng)版本號(hào)  
Label4.Text = sysinfo.OSVersion & 
"." & sysinfo.OSBuild  
'得到桌面尺寸大小  
Label6.Text = sysinfo.WorkAreaHeight 
& "X" & sysinfo.WorkAreaWidth  
'得到電源狀態(tài)值，1表示交流電元，0表示電池  
Select Case sysinfo.ACStatus  
Case 1  
Label8.Text = "AC電源" 
Case 0  
Label8.Text = "電池" 
End Select  
'得到電池剩余時(shí)間，當(dāng)電池為交流電源時(shí)，
返回為-1，其他返回255  
Select Case sysinfo.BatteryLifeTime  
Case -1  
Label10.Text = "未知" 
Case Else  
Label10.Text = sysinfo.BatteryLifeTime  
End Select  
End Sub 

■ 運(yùn)行程序

單擊菜單“調(diào)試|啟動(dòng)”或單擊　圖標(biāo)運(yùn)行程序。

小結(jié)

sysinfo控件的所有屬性都是只讀的，因此我們只能在代碼中讀取。通過(guò)使用sysinfo控件可以幫助我們創(chuàng)建與Windows登錄程序相似的程序。即當(dāng)我們改變系統(tǒng)分辨率或?qū)⒁粋€(gè)即插即用的裝置插上或拔下時(shí)，我們的程序能夠?qū)Υ俗龀龇磻?yīng)。通過(guò)使用sysinfo控件可以得到操作系統(tǒng)信息、屏幕設(shè)置信息和電源狀態(tài)信息。其中，得到屏幕的尺寸大小不包括被Windows任務(wù)欄所占的部分。

VB.NET顯示系統(tǒng)信息的相關(guān)操作就為大家介紹到這里。