用VB进行NX的二次开发，如何通过一个对话框打开另一个对话框

liumt

+ W8 g1 V2 [  d) q5 f9 C" {) E$ R各位大侠：
- e7 B/ B$ x) C6 N# y" {- V3 [小弟最近在用VB进行NX的二次开发，但是在想通过单击一个对话框的“应用”按钮，弹出另一个对话框时遇到了问题
。第二个对话框始终无法调出来。
3 M. c, A- v$ v1 U& D我使用的方法是，在NX UI styler中分别创建窗体A和窗体B。窗体A将作为主窗口，窗体B是要调出的窗口。2个窗口
分别调试都没问题后，
1）将窗体B的代码加入到窗体A中，做法是“项目/添加现有项”
2）将窗体B的Main函数删掉；
8 d- X8 ^$ F& C7 J3）在窗体A  “Applye”函数中添加如下代码，其中TreeViewDialog()就是窗体B的名称，调试链接都没问题
           Dim treeDialog = New TreeViewDialog()
           treeDialog.Show()
/ W1 O( p" p+ `% [! q4）在NX运行时，启动窗体A，单击“应用”按钮时，NX提出错误

0 p0 `, \7 D. B/ K' Q- L+ p9 S谁知道是怎么回事？
8 e, w. k+ W, i6 b( @! W- d( f

ypcopy

把第二个窗口的源程序引用到主窗口中，把第二个窗口的showdialog对应的函数写入到apply下就可以了