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

catia2007

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

. n* c; \8 }5 P/ k0 z- @3 q/ w新手给你们添麻烦了。
) ~6 H1 g/ r  s3 r; X+ y3 z
另外还有个问题。全轴缩放VB代码是这样的，却不可以：
PowerMILL31.Connect
0 c' y9 H4 Z; w. ~PowerMILL31.Execute "TRANSFORM RESET TRANSFORM TYPE SCALEALL TRANSFORM SCALEVALUE" & Val(Text5.Text)
PowerMILL31.Execute "TRANSFORM MODEL ALL"
PowerMILL31.Disconnect
, F3 y- l! ^) L) F- v1 g/ b; f但是输出的结果：TRANSFORM RESET TRANSFORM TYPE SCALEALL TRANSFORM SCALEVALUE0.5
TRANSFORM MODEL ALL
, G8 N$ z' |$ `1 P, Z
! g" `. ^3 x: D; e如果执行命令输出的结果如果是以下，就正确，请问怎么做。
/ V; }3 G- v2 r- \6 b- BTRANSFORM RESET TRANSFORM TYPE SCALEALL TRANSFORM SCALEVALUE
"0.5"
5 m9 c4 k! l( RTRANSFORM MODEL ALL

傲世浮云

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

catia2007

傲世浮云 发表于 2012-9-10 23:06 static/image/common/back.gif
1 {& q7 E* Q) W% D0 W: vTRANSFORM SCALEVALUE" & Val(Text5.Text)
E和引号之间加个空格
) U4 r$ ]/ }7 _2 x' p' ^第一个问题去网上找窗体前置

9 i0 |9 p6 a* w, f* p4 u谢谢，一个空格就解决了。

catia2007

窗口前置代码如下：
1 R& X& \6 f7 M/ a1 S$ L模块代码：
0 h0 c& s9 d* C6 y* s2 U9 W: O* C5 c- sOption 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)
8 }: V0 ]* {. D5 g2 }: {8 z# |
! f$ c7 D4 E# |$ O1 u5 c窗体代码：load事件下：
1 B7 ?7 s- R1 }  f! `8 QPrivate Sub form_load()
Dim a As String
a = SetWindowPos(hwnd, -1, 0, 0, 0, 0, 3)
End Sub

傲世浮云

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

catia2007

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

0 _  S) x+ j9 z0 r& _- ?. v+ S谢谢指导，想请教一个问题，两个路径交叉自动裁剪掉交叉的，不知是否可以实现！

傲世浮云

用边界可以

catia2007

傲世浮云 发表于 2012-9-15 00:43 static/image/common/back.gif
& k; k5 b# J' }8 f用边界可以

8 P( K& f* P, O9 j. V; |边界用过，不理想。
" F9 B5 a* V- `  f  K0 z1 F但是或许你的用法不一样，能做个项目我参考一下吗？谢谢
4 l- v. F( f- q. X1 Fsha101@tom.com