如何做到让VB做的外挂窗口不影藏

catia2007

用VB做的外挂，想让打开的时候像powermill一样，当点击POWERMILL菜单的时候，外挂窗口不消失（不是真正的消失，只是到窗口底层了），求解答，，，，谢谢。

新手给你们添麻烦了。

另外还有个问题。全轴缩放VB代码是这样的，却不可以：
+ f( Q" v8 r) A1 QPowerMILL31.Connect
PowerMILL31.Execute "TRANSFORM RESET TRANSFORM TYPE SCALEALL TRANSFORM SCALEVALUE" & Val(Text5.Text)
  ~$ n4 r; m" E4 l) u" A) EPowerMILL31.Execute "TRANSFORM MODEL ALL"
PowerMILL31.Disconnect
7 f1 l4 t; M9 g0 q# G. n# L但是输出的结果：TRANSFORM RESET TRANSFORM TYPE SCALEALL TRANSFORM SCALEVALUE0.5
: |. e: r) _- x7 u$ T; z. aTRANSFORM MODEL ALL

; O1 U- R+ x7 n+ I* x! y如果执行命令输出的结果如果是以下，就正确，请问怎么做。
" o2 r. n9 m2 PTRANSFORM RESET TRANSFORM TYPE SCALEALL TRANSFORM SCALEVALUE
"0.5"
TRANSFORM MODEL ALL

傲世浮云

TRANSFORM SCALEVALUE" & Val(Text5.Text)
E和引号之间加个空格
第一个问题去网上找窗体前置

catia2007

傲世浮云 发表于 2012-9-10 23:06 static/image/common/back.gif
+ L& U: H! s6 x# T3 G" t. m% F1 sTRANSFORM SCALEVALUE" & Val(Text5.Text)
% d" N0 j  L* `1 D3 Q8 p+ ]5 fE和引号之间加个空格
! n+ c% e. G- V! c第一个问题去网上找窗体前置

谢谢，一个空格就解决了。

catia2007

窗口前置代码如下：
模块代码：
( c5 y" z/ v4 [Option Explicit
( Y. `7 ?0 G" f- S8 I  B0 [1 CDeclare Function SetWindowPos& Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long)

窗体代码：load事件下：
Private Sub form_load()
Dim a As String
( x$ V, `+ ~/ U& `& |. ga = SetWindowPos(hwnd, -1, 0, 0, 0, 0, 3)
End Sub

傲世浮云

模块的可以加到PM连接模块上，不用多做一个模块

catia2007

傲世浮云 发表于 2012-9-14 00:04 static/image/common/back.gif
模块的可以加到PM连接模块上，不用多做一个模块

( d2 P1 T, f6 r! |5 v; k1 ]" |谢谢指导，想请教一个问题，两个路径交叉自动裁剪掉交叉的，不知是否可以实现！

傲世浮云

用边界可以

catia2007

傲世浮云 发表于 2012-9-15 00:43 static/image/common/back.gif
3 P- \" n! s$ T1 y0 F用边界可以

边界用过，不理想。
但是或许你的用法不一样，能做个项目我参考一下吗？谢谢
sha101@tom.com