vb点虐 检测当前版本 vb检测文件是否存在

怎么用VB检测当前系统版本

使用sysinfo控件,例如

成都创新互联公司是专业的巴彦淖尔网站建设公司，巴彦淖尔接单;提供做网站、网站设计,网页设计,网站设计,建网站,PHP网站建设等专业做网站服务;采用PHP框架,可快速的进行巴彦淖尔网站开发网页制作和功能扩展;专业做搜索引擎喜爱的网站,专业的做网站团队,希望更多企业前来合作!

在部件里添李哗闭加Microsoft sysinfo control 6.0

然后在窗体上放置一个sysinfo控件

然后双哪裂击窗体,修改代码如下:

Private Sub Form_Load()

Dim MsgEnd As String

Select Case SysInfo1.OSPlatform

Case 0

MsgEnd = "不能确定的"

Case 1

MsgEnd = "Windows 95, ver. " _

CStr(SysInfo1.OSVersion) "(" _

CStr(SysInfo1.OSBuild) ")"

Case 2

MsgEnd = "Windows NT, ver. " _

CStr(SysInfo1.OSVersion) "(" _

CStr(SysInfo1.OSBuild) ")"

End Select

MsgBox "芦腊系统：" MsgEnd

End Sub

如何查看本机上安装的.NET Framework版本

在开始菜单兆判选择"运行",

或者快捷键 “windows键+R”

在命令窗口输入regedit.exe，打开注册表

在注册表中定位到如下节点

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\NET Framework Setup\NDP

安装侍培过的.NET Framework都列在NDP目录下

对于.NET Framework 4.5或之后的版本查看方法

如上打开注册表并定位到

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\NET Framework Setup\NDP\v4\Full

如果没有Full节点，那么说明没有安装过4.5或者更新的族谈改版本

通过"Release"的值来判断所安装的.NET Framework版本，可参照下表

vb点虐 显示版本

这个你把1.0.2.3这个字符串处理下就可以了。

这个属于字符串的处理

vb点虐 如何检查系统版本和系统里是否装有微软雅黑字体？？

Private 猛桥或Sub Form_Load()

r=Dir(C:\WINDOWS\Fonts\微软雅黑.ttf) ‘在C盘WINDOWS文件夹fonts中查找微软雅黑

If r""then

...(...填入)确认文件存在

Else

...(...填入)确认文件不存在

消升  End 枝伍if

End Sub