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

catia2007

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

3 J* {, Y/ _$ b8 Y" _- g2 L% r. i, A, b; u新手给你们添麻烦了。

1 t" J7 L7 [  H% J, G另外还有个问题。全轴缩放VB代码是这样的，却不可以：
- l: D6 O4 x" M+ mPowerMILL31.Connect
1 M" \- v3 f8 X) MPowerMILL31.Execute "TRANSFORM RESET TRANSFORM TYPE SCALEALL TRANSFORM SCALEVALUE" & Val(Text5.Text)
4 R0 `0 r, ^# s7 APowerMILL31.Execute "TRANSFORM MODEL ALL"
3 N  C8 i$ X4 U% Q+ X; g4 q; Z1 OPowerMILL31.Disconnect
# g$ v5 h! f0 |1 y但是输出的结果：TRANSFORM RESET TRANSFORM TYPE SCALEALL TRANSFORM SCALEVALUE0.5
: a5 p4 \% [; {- f% Q" yTRANSFORM MODEL ALL
" X' c' x, o- B8 r
如果执行命令输出的结果如果是以下，就正确，请问怎么做。
TRANSFORM RESET TRANSFORM TYPE SCALEALL TRANSFORM SCALEVALUE
"0.5"
TRANSFORM MODEL ALL
1 w0 i/ I' ^$ c8 y

傲世浮云

TRANSFORM SCALEVALUE" & Val(Text5.Text)
; J* V- f# I# cE和引号之间加个空格
4 V( S6 R, h6 `8 l" U! |+ f第一个问题去网上找窗体前置

catia2007

傲世浮云 发表于 2012-9-10 23:06 static/image/common/back.gif
TRANSFORM SCALEVALUE" & Val(Text5.Text)
6 `/ j$ J: L" oE和引号之间加个空格
, d6 m8 t+ U& F" ]) M第一个问题去网上找窗体前置

( C( m0 C- ]& X4 d# }谢谢，一个空格就解决了。

catia2007

窗口前置代码如下：
模块代码：
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)
9 K* V4 B- O2 N0 G
% Q8 T$ q8 q' p- ]- x. g; v; h窗体代码：load事件下：
% e0 E) n) R6 {7 H. }3 yPrivate Sub form_load()
Dim a As String
2 a- J) F0 U9 G6 A* I* ?a = SetWindowPos(hwnd, -1, 0, 0, 0, 0, 3)
End Sub

傲世浮云

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

catia2007

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

8 o# x0 f1 {3 G7 i- W9 J. f谢谢指导，想请教一个问题，两个路径交叉自动裁剪掉交叉的，不知是否可以实现！

傲世浮云

用边界可以

catia2007

傲世浮云 发表于 2012-9-15 00:43 static/image/common/back.gif
! x% X' W  ?) K5 z+ r- C用边界可以

边界用过，不理想。
但是或许你的用法不一样，能做个项目我参考一下吗？谢谢
$ I  R' ?8 Q. l: b' c; y9 Gsha101@tom.com