| 查看: 845 | 回复: 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 |
» 猜你喜欢
职称评审没过,求安慰
已经有49人回复
26申博自荐
已经有3人回复
A期刊撤稿
已经有4人回复
垃圾破二本职称评审标准
已经有17人回复
投稿Elsevier的Neoplasia杂志,到最后选publishing options时页面空白,不能完成投稿
已经有22人回复
EST投稿状态问题
已经有7人回复
毕业后当辅导员了,天天各种学生超烦
已经有4人回复
三无产品还有机会吗
已经有6人回复
» 抢金币啦!回帖就可以得到:
深圳市人民医院活性天然产物研究方向诚招联合培养硕士生2-3
+1/286
DIY科研工具交流
+1/212
湖南师范大学蒋乐勇教授课题组招收2026届“申请-考核”制博士生
+1/176
复旦大学化学系杰青/优青团队诚聘博士后
+3/153
Analytical Science Advances(Wiley出版社)长期征稿中...
+1/96
上海大学理学院纳米纤维化学(NFC)研究团队2026级学术学位博士招生
+1/78
中国科学院山西煤炭化学研究所水污染防治与资源化利用方向招本科/硕士线上实习生
+1/78
高端材料科研产品技术顾问-顶尖材料公司诚邀广大科研背景同学加入!
+1/36
人到中年,还能干啥
+1/22
北理工柔性电子国家杰青团队招博士后及科研助理
+1/10
中科院精密测量院(原武汉物数所)诚招磁共振成像方向申请考核制博士(2026.1.9截止)
+1/10
海南师范大学招收化学博士(光电功能材料课题组招收博士研究生)
+1/8
招收2026级博士
+1/8
河南师范大学植物生殖生物学科研团队博士招聘
+1/7
新加坡南洋理工大学材料科学与工程学院招收博士研究生 (2026年8月入学)
+1/6
诚招“先进材料与柔性电子(柔性储能或柔性天线)”方向联培博士生
+1/6
同济大学电信学院,肖李课题组预招2027春季与秋季博士生。
+1/3
浙江大学杨林课题组招聘药物化学与有机合成方向博士后
+1/3
江西理工大学稀土磁性功能材料与物理示范研究生导师创新团队
+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













回复此楼

