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

catia2007

用VB做的外挂，想让打开的时候像powermill一样，当点击POWERMILL菜单的时候，外挂窗口不消失（不是真正的消失，只是到窗口底层了），求解答，，，，谢谢。
. L0 Z1 b7 \# J
4 O0 k7 p+ ?; L5 t) B; w" m新手给你们添麻烦了。
3 Q+ c9 m$ n' t; E
另外还有个问题。全轴缩放VB代码是这样的，却不可以：
PowerMILL31.Connect
PowerMILL31.Execute "TRANSFORM RESET TRANSFORM TYPE SCALEALL TRANSFORM SCALEVALUE" & Val(Text5.Text)
) h* D. k; f. P$ Y( u: `4 e8 \PowerMILL31.Execute "TRANSFORM MODEL ALL"
PowerMILL31.Disconnect
但是输出的结果：TRANSFORM RESET TRANSFORM TYPE SCALEALL TRANSFORM SCALEVALUE0.5
" ~! I% u2 ]6 G. v  a; o# kTRANSFORM MODEL ALL
# I& d! V( o0 M. c
2 w1 K' z! e/ P) ~如果执行命令输出的结果如果是以下，就正确，请问怎么做。
7 R& e+ g  u; A9 @4 nTRANSFORM RESET TRANSFORM TYPE SCALEALL TRANSFORM SCALEVALUE
% Z, U5 J9 m( e2 S, _"0.5"
* u. O. g* o% r% m# [TRANSFORM MODEL ALL
1 o" w! o  A. s# k: v/ ~

傲世浮云

TRANSFORM SCALEVALUE" & Val(Text5.Text)
: N4 f3 I1 P3 R& e$ ~E和引号之间加个空格
第一个问题去网上找窗体前置

catia2007

傲世浮云 发表于 2012-9-10 23:06 static/image/common/back.gif
TRANSFORM SCALEVALUE" & Val(Text5.Text)
$ e+ g4 ~% |7 I# s5 D2 f/ hE和引号之间加个空格
第一个问题去网上找窗体前置

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

catia2007

窗口前置代码如下：
# V: [9 w$ J9 j' v' Y. C% P模块代码：
Option 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)
% R0 h1 A) w2 P7 K- c; X% C
窗体代码：load事件下：
* R: b* m2 U1 F( ^% [6 SPrivate Sub form_load()
- m7 W3 P! G% V$ e" V4 F0 o5 vDim a As String
/ M9 u: G/ H; K2 ]- o, i3 Da = SetWindowPos(hwnd, -1, 0, 0, 0, 0, 3)
End Sub

傲世浮云

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

catia2007

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

* m# g& C5 |0 \谢谢指导，想请教一个问题，两个路径交叉自动裁剪掉交叉的，不知是否可以实现！

傲世浮云

用边界可以

catia2007

傲世浮云 发表于 2012-9-15 00:43 static/image/common/back.gif
4 {  \8 w0 d& I- O用边界可以

边界用过，不理想。
但是或许你的用法不一样，能做个项目我参考一下吗？谢谢
1 g* U$ k6 V0 {' s* z' W+ Y+ `sha101@tom.com