| 查看: 895 | 回复: 7 | |||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | |||
[交流]
【求助】Vb寻址的一段程序，看不懂啊！高手解决下！
|
|||
|
在Vb查找ANSYS时的一段程序，看不懂，高手能不能给解释下！ Dim hKey As Long, ret As Long, lenData As Long, typeData As Long Dim Name, nums1, nums2, nums3 As String Dim s As String Dim num As Integer '读取value. For num = 60 To 100 Step 10 nums1 = Trim(Str(num)) Name = "ANSYS" + nums1 + "_DIR" nums2 = "Software\ANSYS, Inc.\ANSYS\ANSYS " + Trim(Str(num) / 10) + ".0" ret = RegOpenKey(HKEY_LOCAL_MACHINE, nums2, hKey) If ret = 0 Then ret = RegQueryValueEx(hKey, Name, 0, typeData, ByVal vbNullString, lenData) '注意ByVal千万别忘了 s = String(lenData, Chr(0)) RegQueryValueEx hKey, Name, 0, typeData, ByVal s, lenData '注意ByVal千万别忘了 If s <> "" Then s = Left(s, InStr(s, Chr(0)) - 1) nums3 = s + "\bin\intel\ansys" + nums1 + ".exe" frmzhi.Combo1.AddItem nums3 RegCloseKey hKey End If End If Next |
回复此楼» 猜你喜欢
国家基金申请书模板内插入图片不可调整大小?
已经有9人回复
-
退学或坚持读
已经有20人回复
-
免疫学博士有名额，速联系
已经有14人回复
-
面上基金申报没有其他的参与者成吗
已经有4人回复
-
多组分精馏求助
已经有6人回复
-
国家级人才课题组招收2026年入学博士
已经有6人回复
» 抢金币啦！回帖就可以得到:
-
南方医科大学中药学院 申请考核博士一名 （天然药化方向，天然产物分离经验优先）
+1/279
-
南方科技大学周友运课题组诚聘博士后、科研助理
+1/173
-
电力全国重点实验室双一流A类长江学者团队招2026年全日制博士1-2名/博士后
+2/84
-
丙烯液相
+1/78
-
美国R1大学--德克萨斯大学埃尔帕索分校（UTEP） 土木、环境与建筑工程系 博士招生
+1/76
-
诚聘 有机光电材料计算方向 博士后、科研助理、访问学生
+1/75
-
关于本子打包
+1/64
-
大连工业大学 超临界流体技术团队（纺材学院）招收2026级“申请-考核制”博士生
+1/55
-
香港科技大学计算物理及流体力学课题组招收全奖博士后及博士生（2026年9月入学）
+1/44
-
科罗拉多大学 Congjun Yu 课题组招聘
+1/32
-
武汉工程大学绿碳技术与智能材料课题组诚招2026年博士研究生
+2/26
-
上海理工大学顾敏院士、张轶楠教授团队 招聘 2026级 光学工程 博士生
+1/11
-
四川大学华西医院沈百荣教授课题组科研助理招聘启事
+1/9
-
2026年天津大学杰青团队招收化学合成、计算机和器件的方面博士
+1/8
-
法国斯特拉斯堡大学有机光伏全奖博士招聘
+1/6
-
苏州大学招收申请考核制博士生、博士后（2026）
+1/6
-
海南大学化学院—功能分子器件团队2026博士/研究助理招生+博士后招聘
+1/5
-
华南理工大学宋波教授联合唐本忠院士招聘化学和材料方向博士后（长期有效）
+1/4
-
【博士后/科研助理招聘-北京理工大学-集成电路与电子学院-国家杰青团队】
+1/2
-
澳科大诚招2026年秋季全奖博士研究生（药剂学/生物材料方向）
+1/1
★
lixiumei2006(金币+4): 2010-12-21 09:46:15
余泽成(金币+1):谢谢参与应助！ 2010-12-21 11:01:21
lixiumei2006(金币+4): 2010-12-21 09:46:15
余泽成(金币+1):谢谢参与应助！ 2010-12-21 11:01:21
7楼2010-12-20 14:53:17
2楼2010-12-16 22:13:00
3楼2010-12-17 09:21:53
4楼2010-12-17 10:51:19