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

catia2007

用VB做的外挂，想让打开的时候像powermill一样，当点击POWERMILL菜单的时候，外挂窗口不消失（不是真正的消失，只是到窗口底层了），求解答，，，，谢谢。
7 [/ P2 B$ `2 V% O9 ?
2 B. O- ~3 s+ ^* h( T8 m* }- D新手给你们添麻烦了。
: C6 S& e) ^& w  j, ^; h
! [& f/ u7 M- O6 L- V另外还有个问题。全轴缩放VB代码是这样的，却不可以：
PowerMILL31.Connect
& q- g( r0 M: d4 |# R7 @/ JPowerMILL31.Execute "TRANSFORM RESET TRANSFORM TYPE SCALEALL TRANSFORM SCALEVALUE" & Val(Text5.Text)
PowerMILL31.Execute "TRANSFORM MODEL ALL"
- x, Z5 T0 f1 y* pPowerMILL31.Disconnect
+ |4 V2 k+ L) I+ ~; Q但是输出的结果：TRANSFORM RESET TRANSFORM TYPE SCALEALL TRANSFORM SCALEVALUE0.5
" B1 T7 p9 z2 H0 _( ]' q9 aTRANSFORM MODEL ALL

/ F. c8 q8 j# O4 X# O9 {如果执行命令输出的结果如果是以下，就正确，请问怎么做。
3 c) p. s  G( G# n& G: i2 UTRANSFORM 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
! v1 k. W- i% n7 t; BTRANSFORM SCALEVALUE" & Val(Text5.Text)
E和引号之间加个空格
. `# f: [- U' s/ p0 F第一个问题去网上找窗体前置

2 @7 j8 p: z/ T8 y0 S9 p谢谢，一个空格就解决了。

catia2007

窗口前置代码如下：
模块代码：
5 w. w7 K4 }5 C4 ?! C& wOption 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)
5 z2 }) x- i7 h# I3 H+ j/ L/ P
窗体代码：load事件下：
Private Sub form_load()
Dim a As String
6 W' ^; n+ u* q5 }2 f/ na = SetWindowPos(hwnd, -1, 0, 0, 0, 0, 3)
: D! X4 L4 ]- \  GEnd Sub

傲世浮云

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

catia2007

傲世浮云 发表于 2012-9-14 00:04 static/image/common/back.gif
& `! |0 ]8 O0 g4 ^6 B模块的可以加到PM连接模块上，不用多做一个模块

8 A) k- M+ f! S# E$ B: d" G谢谢指导，想请教一个问题，两个路径交叉自动裁剪掉交叉的，不知是否可以实现！

傲世浮云

用边界可以

catia2007

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

边界用过，不理想。
. {+ c! i0 x  t1 E) T" l但是或许你的用法不一样，能做个项目我参考一下吗？谢谢
sha101@tom.com