| 查看: 923 | 回复: 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 |
» 猜你喜欢
282求调剂
已经有5人回复
诚招农业博士
已经有3人回复
材料学硕318求调剂
已经有9人回复
338求调剂
已经有3人回复
材料与化工328求调剂
已经有3人回复
289求调剂
已经有3人回复
化工270求调剂
已经有8人回复
一志愿山东大学材料与化工325求调剂
已经有3人回复
291 求调剂
已经有3人回复
0805总分292,求调剂
已经有8人回复
» 抢金币啦!回帖就可以得到:
江西师范大学陶端健教授团队2026年硕士研究生招生公告
+1/238
求助哪里可以做光催化产氢的放大实验
+1/83
东北石油大学三亚海洋油气研究院【硕士招生】【地质资源与地质工程】【地质学】
+1/78
湖南大学材料科学与工程学院招收博士研究生
+1/35
中国科学院国家级人才团队博士后招聘启示
+1/14
【实战型】【生物医药】2026青岛大学招博士生
+1/13
南京林业大学-国家级青年人才团队 招2026级申请考核制博士
+1/11
中国科学院国家级人才团队博士后招聘启示
+1/8
“教育部长江学者和创新团队发展计划”入选团队招收材料,化学与化工博士研究生
+1/7
副总监/总监 – 北亚区
+1/7
香港科技大学 招生 2026 Fall全奖博士 -- 机械/电子/材料
+1/6
湖北工业大学2026年博士研究生(生物医药专博+轻工技术与工程学博)
+1/5
哈尔滨工业大学张洪教授招收2026年海洋科学(环境、化学、生物方向)硕士研究生
+1/4
西安工程大学环境与化学工程学院26年硕士研究生招生咨询(26年9月入学)
+1/4
中科院深圳先进技术研究院成会明院士/唐永炳杰青团队拟招聘博士后若干名。
+1/3
【研究生调剂招生】北京高校副校长团队招收机械类,环境类学硕和专硕
+1/3
海南大学-国家级人才团队 招2026级全日制硕士研究生
+1/2
中国石油大学(华东)生物质绿色化学转化和生物基功能高分子团队诚招26级硕士生
+1/2
西安工程大学环境与化学工程学院26年硕士研究生招生咨询
+1/2
招收2026级全日制博士生(学术学位/专业学位)--大连海事大学船舶与海洋工程学院
+1/1
2楼2010-12-16 22:13:00
3楼2010-12-17 09:21:53
4楼2010-12-17 10:51:19
5楼2010-12-17 15:26:09
6楼2010-12-17 18:52:07
★
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
8楼2010-12-21 09:47:51













回复此楼

