VB.NET显示系统信息正确实现方法介绍

开发 后端
VB.NET显示系统信息的实现主要就是通过使用SysInfo控件来帮助我们得到操作系统的版本号以及电源属性等。实现过程会在文中具体给出。

VB.NET编程语言应用范围比较广泛,可以帮助开发人员实现各种功能。比如对文本的操作,对数据库的操作等等。那么今天我们会了解到的则是VB.NET显示系统信息的相关操作方法,希望会对大家有所帮助。#t#

VB.NET显示系统信息实例说明

在本实例中,我们通过使用sysinfo控件得到有关操作系统的信息,屏幕和电源的信息。程序运行结果如图97-1所示。

VB.NET显示系统信息技术要点

使用SysInfo控件得到操作系统版本号、电源属性

VB.NET显示系统信息实现过程

■ 新建项目

打开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 
  • 1.
  • 2.
  • 3.
  • 4.
  • 5.
  • 6.
  • 7.
  • 8.
  • 9.
  • 10.
  • 11.
  • 12.
  • 13.
  • 14.
  • 15.
  • 16.
  • 17.
  • 18.
  • 19.
  • 20.
  • 21.
  • 22.
  • 23.
  • 24.
  • 25.
  • 26.
  • 27.
  • 28.
  • 29.
  • 30.
  • 31.
  • 32.
  • 33.
  • 34.

■ 运行程序

单击菜单“调试|启动”或单击 图标运行程序。

小结

sysinfo控件的所有属性都是只读的,因此我们只能在代码中读取。通过使用sysinfo控件可以帮助我们创建与Windows登录程序相似的程序。即当我们改变系统分辨率或将一个即插即用的装置插上或拔下时,我们的程序能够对此做出反应。通过使用sysinfo控件可以得到操作系统信息、屏幕设置信息和电源状态信息。其中,得到屏幕的尺寸大小不包括被Windows任务栏所占的部分。

VB.NET显示系统信息的相关操作就为大家介绍到这里。

责任编辑:曹凯 来源: 中国IT实验室
相关推荐

2010-01-22 13:08:50

VB.NET创建数组

2010-01-15 16:03:48

VB.NET重载Win

2010-01-20 17:47:54

VB.NET注释

2010-01-15 18:12:28

VB.NET超链接

2010-01-15 19:17:23

2009-11-02 15:49:23

VB.NET显示系统信

2010-01-07 16:51:56

VB.NET窗体钩子

2010-01-15 10:56:50

VB.NET继承实现多

2010-01-07 15:25:11

VB.NET数组

2010-01-22 10:41:33

VB.NET声明结构

2009-11-10 12:42:47

VB.NET Prin

2010-03-04 11:12:02

Python AOP

2010-01-12 10:40:58

VB.NET数据库压缩

2010-01-21 13:34:56

VB.NET删除文件夹

2010-01-15 15:26:46

VB.NET自定义类型

2010-01-21 17:58:40

VB.NET List

2010-01-08 13:35:35

VB.NET写Log方

2010-01-13 14:32:11

VB.NET确定文件版

2010-01-08 18:31:45

VB.NET历史菜单

2010-01-07 15:49:10

VB.NET DoLoop
点赞
收藏

51CTO技术栈公众号