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

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

使用sysinfo控件,例如

在部件里添李哗闭加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

声明：本文内容由网友自发贡献，本站不承担相应法律责任。对本内容有异议或投诉，请联系2913721942#qq.com核实处理，我们将尽快回复您，谢谢合作！