开发工具:
文件大小: 71kb
下载次数: 0
上传时间: 2014-02-10
详细说明： '检测已安装的CAD版本（检测注册表信息） Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click '软件安装注册表根结点 其它程序也是类似的 Dim key As Global.Microsoft.Win32.RegistryKey = Global.Microsoft.Win32.Registry.LocalMachine _ .OpenSubKey("Software\Autodesk\AutoCAD") 'AutoCAD软件安装注册表路径 Dim subKeyNames As String() = key.GetSubKeyNames '获取所有版本列表名称（所有子项名称） '如果只检测是否已经安装CAD，只要判断subKeyNames 元素个数就可以了(>0) 没有安装(=0) MessageBox.Show("已安装Auto CAD版本数量 " & subKeyNames.Length) '以下是输出CAD版本相应信息 Dim str As String = "" For Each str In subKeyNames MessageBox.Show("版本号 " & str) '版本号 如：AutoCAD 2009 返回 R17.2 Dim key2 As Global.Microsoft.Win32.RegistryKey = key.OpenSubKey(str) '以只读方式检索子项 Dim strArray2 As String() = key2.GetSubKeyNames '获取子项数组 Dim str2 As String = "" For Each str2 In strArray2 Dim key3 As Global.Microsoft.Win32.RegistryKey = key2.OpenSubKey(str2) Dim str3 As String = key3.GetValue("ProductName").ToString '版本名称 MessageBox.Show("版本名称 " & str3) '版本名称 如：str=R17.2 返回 AutoCAD 2009 Next Next End Sub ...展开收缩
(系统自动生成,下载前可以参看下载内容)
下载文件列表
相关说明
- 本站资源为会员上传分享交流与学习,如有侵犯您的权益,请联系我们删除.
- 本站是交换下载平台，提供交流渠道，下载内容来自于网络，除下载问题外，其它问题请自行百度。
- 本站已设置防盗链，请勿用迅雷、QQ旋风等多线程下载软件下载资源，下载后用WinRAR最新版进行解压.
- 如果您发现内容无法下载，请稍后再次尝试；或者到消费记录里找到下载记录反馈给我们.
- 下载后发现下载的内容跟说明不相乎，请到消费记录里找到下载记录反馈给我们，经确认后退回积分.
- 如下载前有疑问，可以通过点击"提供者"的名字，查看对方的联系方式，联系对方咨询.
