| 查看: 899 | 回复: 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人回复
有时候真觉得大城市人没有县城人甚至个体户幸福
已经有5人回复
酰胺脱乙酰基
已经有9人回复
CSC & MSCA 博洛尼亚大学能源材料课题组博士/博士后招生|MSCA经费充足、排名优
已经有5人回复
博士延得我,科研能力直往上蹿
已经有7人回复
退学或坚持读
已经有27人回复
面上基金申报没有其他的参与者成吗
已经有5人回复
遇见不省心的家人很难过
已经有22人回复
» 抢金币啦!回帖就可以得到:
诚招化工、有机、高分子等领域博士后及科研助理
+2/126
中国科学院深圳先进技术研究院——招聘博士后
+3/104
Postdoctoral Research Fellow Position in Causal Inference Weill CorneIl Medicine
+1/92
天津科技大学邓启良教授团队 招收2026年博士生
+1/78
结构动力学与结构健康监测方向欧盟玛丽居里全奖博士招聘
+1/64
香港科技大学计算物理及流体力学课题组招收全奖博士后及博士生(2026年9月入学)
+1/34
西安交通大学前沿院/机械学院招收2026级硕博研究生!
+1/31
科罗拉多大学 Congjun Yu 课题组招聘
+1/29
山东科技大学招聘化学化工博士博士后
+1/26
山东科技大学招聘化学化工博士博士后
+1/25
中国科学院深圳先进技术研究院——招聘客座研究生
+3/16
新加坡 南洋理工大学- 智能光子/ 传感 PHD 全奖一名 2026 - 8 月入学
+1/14
美国密苏里大学“柔性电子”课题组诚招博士研究生
+1/8
联合研究团队招聘博后等青年人才
+1/7
苏州国家实验室甘斌研究员项目组招收2026级博士
+1/7
邵阳学院食品与化学工程学院硕士调剂
+1/3
澳科大招收2026年秋季入学药剂学/生物材料方向全奖博士研究生
+1/3
哈工大(深圳)物理招收2026年9月入学博士生1个名额
+1/3
【博士后/科研助理招聘-北京理工大学-集成电路与电子学院-国家杰青团队】
+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













回复此楼

