| 查看: 956 | 回复: 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 |
回复此楼» 猜你喜欢
求调剂
已经有3人回复
-
材料277求调剂
已经有7人回复
-
数一英一271专硕（085401）求调剂，可跨
已经有5人回复
-
291求调剂
已经有21人回复
-
一志愿哈尔滨工业大学材料与化工方向336分
已经有8人回复
-
药学105500求调剂
已经有3人回复
-
考研调剂
已经有4人回复
-
0703化学
已经有7人回复
-
学硕274求调剂
已经有6人回复
-
321求调剂
已经有6人回复
» 抢金币啦！回帖就可以得到:
-
2026延安大学设施蔬菜环境调控与分子机制研究团队团队招收相关专业调剂研究生
+1/43
-
天津城建大学招收物理、化学或者生物调剂生一名，前往天津大学联合培养
+1/38
-
上海大学 “生物有机电子材料及器件”团队硕士、博士研究生招聘
+1/36
-
阶段性压力
+2/32
-
三峡大学材化学院李东升校长团队接收化学类硕士调剂
+1/21
-
新能源材料方向接收调剂硕士研究生
+1/19
-
双一流大学湘潭大学“化工过程模拟与强化”国家地方联合工程研究中心招收各类博士生
+1/16
-
哈尔滨工业大学-大湾区大学2026年联合培养博士研究生春季招生-报名3月31号截至
+1/14
-
南京林业大学化工院有机合成方向硕士招调剂
+1/14
-
南京医科大学-谭磊课题组-诚招博士后
+1/10
-
韩国庆熙大学 Yu Taekyung 教授招2026年博士研究生
+1/10
-
南京林业大学化工院有机合成方向硕士招调剂
+1/10
-
中国地质大学（北京)工程技术学院安老师组招收2026调剂生
+1/9
-
诚聘博士科研人员（有机合成化学方向）
+1/9
-
广东医科大学 李雪萌教授团队 招收申请考核制博士（临床检验诊断）
+1/6
-
26博士申请
+1/6
-
中科院科研助理招聘
+1/3
-
上海师范大学有机化学专业研究生招生
+1/2
-
26年招收07 08学术型/专业型硕士研究生
+1/1
-
南昌航空大学拟招收飞行器设计或计算空气动力学研究方向博士生 1名
+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
