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

catia2007

用VB做的外挂，想让打开的时候像powermill一样，当点击POWERMILL菜单的时候，外挂窗口不消失（不是真正的消失，只是到窗口底层了），求解答，，，，谢谢。
) M0 x0 R% F0 C! X
% M% M8 B+ B+ y) j. {$ R新手给你们添麻烦了。
# u: Q: G( j  n( u& }
另外还有个问题。全轴缩放VB代码是这样的，却不可以：
' [$ p7 {4 M$ \4 q6 A3 `PowerMILL31.Connect
PowerMILL31.Execute "TRANSFORM RESET TRANSFORM TYPE SCALEALL TRANSFORM SCALEVALUE" & Val(Text5.Text)
+ v7 R5 o$ V9 [5 UPowerMILL31.Execute "TRANSFORM MODEL ALL"
PowerMILL31.Disconnect
$ c4 [4 H# j" F" x0 j* q但是输出的结果：TRANSFORM RESET TRANSFORM TYPE SCALEALL TRANSFORM SCALEVALUE0.5
, S1 Y) r& q* n. r; O& WTRANSFORM MODEL ALL

- j% Y8 b" R9 ]. I3 [8 F如果执行命令输出的结果如果是以下，就正确，请问怎么做。
$ i5 {! q# F' f& J3 F9 @TRANSFORM RESET TRANSFORM TYPE SCALEALL TRANSFORM SCALEVALUE
"0.5"
TRANSFORM MODEL ALL

傲世浮云

TRANSFORM SCALEVALUE" & Val(Text5.Text)
3 G- N. k! g3 x! b: HE和引号之间加个空格
2 F2 G+ v* Y& _! ~9 y第一个问题去网上找窗体前置

catia2007

傲世浮云 发表于 2012-9-10 23:06 static/image/common/back.gif
6 B3 F7 m/ ~/ Y8 HTRANSFORM SCALEVALUE" & Val(Text5.Text)
E和引号之间加个空格
& D2 {4 _1 u9 y& S% A第一个问题去网上找窗体前置

$ N2 R7 G5 i& Y9 p- \# s" B谢谢，一个空格就解决了。

catia2007

窗口前置代码如下：
模块代码：
. n6 x8 Z, s' g7 _/ z% w9 y9 J' n+ KOption Explicit
Declare 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)
) R6 F0 ?0 p) I  S
窗体代码：load事件下：
Private Sub form_load()
Dim a As String
- d6 ~$ I8 O+ O# }8 V/ m8 Ga = SetWindowPos(hwnd, -1, 0, 0, 0, 0, 3)
End Sub

傲世浮云

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

catia2007

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

谢谢指导，想请教一个问题，两个路径交叉自动裁剪掉交叉的，不知是否可以实现！

傲世浮云

用边界可以

catia2007

傲世浮云 发表于 2012-9-15 00:43 static/image/common/back.gif
用边界可以

: X6 J1 G$ {/ e/ x6 b5 l0 q边界用过，不理想。
" ~5 K+ m8 l6 e4 s% M6 v. E- S0 N但是或许你的用法不一样，能做个项目我参考一下吗？谢谢
3 z1 @$ X5 {8 Y: P, asha101@tom.com