24小时热门版块排行榜

>论坛更新日志 (3128)
>虫友互识 (256)
>导师招生 (209)
>文献求助 (139)
>休闲灌水 (131)
>教师之家 (90)
>考博 (85)
>基金申请 (77)
>论文投稿 (65)
>考研 (61)
>硕博家园 (52)
>找工作 (47)
>论文道贺祈福 (42)
>招聘信息布告栏 (39)
>博后之家 (39)
>公派出国 (18)

返回列表

当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖

lixiumei2006

银虫 (小有名气)

应助: 0 (幼儿园)
金币: 555.8
帖子: 54
在线: 56.5小时
虫号: 1158225

[交流] 【求助】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

回复此楼