来怎么使用VB.NET 控制PowerMILL版本

hexuan07

各位二次开发的高手们：

你们好！
4 K, O% F. o& n& y- Q
1 P3 r/ k( ?0 F7 M" o本人在做PowerMILL二次开发方面的事情。遇到了个不能解决的问题。
8 ]; ?8 H0 L3 C0 A本人的电脑中装有多个版本的PowerMILL，例如PowerMILL 10.0, PowerMILL 2010,PowerMILL 2011和PowerMILL 2012 RC2版本。
我怎么可以通过VB.NET 来控制不同版本的运行，比如说，我有一个combobox，通过下拉选择不同的值，来启动不同版本的PowerMILL
$ f6 v6 A0 ]# V
期望各位高手的帮忙！

56180825

这个比较麻烦，你必须通过VB.NET修改注册表中的地址。。。而且每次都必须修改。。还是放弃吧

hexuan07

2# 56180825
5 ~& j; Q  W9 s3 d. j: ?  |二楼的，请问需要修改的注册表哪个值？

yue2233

取注册表HKEY_LOCAL_MACHINE\SOFTWARE\Delcam\PowerMILL

# Z; I% w1 `, y3 `# e5 o  N源代码：

Imports Microsoft.Win32
4 v1 B- ]  e) l, R3 E/ S# @. f  SPublic Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
6 Q- w$ O. l( }5 }# K$ I( W- A'查找电脑所有已安装的powermill版本
        Try
( l2 m0 \6 M8 n; W- k/ ?            Dim hklm As RegistryKey = Registry.LocalMachine
            Dim d As RegistryKey = hklm.OpenSubKey("software\delcam\powermill")
; ]1 K& Q9 N" f; p. F* M            Dim s() As String = d.GetSubKeyNames
- I- E  ^2 j1 V) o( |            For Each obj In s
) v2 R6 U# A3 ?% h/ ?% H'根据查找结果，填充选择框
                Me.ComboBox1.Items.Add(obj)
; ~4 h9 \+ x/ p: Y  L            Next
; S7 J9 p/ Q; t6 \' h        Catch ex As Exception
        End Try
    End Sub
: [; Q+ j& c3 r! G( Q
! X  I: x4 p& W+ ?0 t'根据选择结果，运行相应版本的powermill
    Private Sub ComboBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.TextChanged
( B5 w5 S/ `' c        Try
8 r' Q  s, K* c. ^7 q7 i* k) M$ d            System.Diagnostics.Process.Start(My.Computer.Registry.LocalMachine.OpenSubKey("software\delcam\powermill\" + Me.ComboBox1.Text, False).GetValue("ExecutablePath"))
        Catch ex As Exception
        End Try
    End Sub
End Class

zhq5360

学习了。谢谢分享

zwz9

这个比较高深  还是你们讨论把