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

catia2007

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

新手给你们添麻烦了。

另外还有个问题。全轴缩放VB代码是这样的，却不可以：
+ A& e9 c- j5 a4 pPowerMILL31.Connect
  m5 W1 r: Q% T5 ~PowerMILL31.Execute "TRANSFORM RESET TRANSFORM TYPE SCALEALL TRANSFORM SCALEVALUE" & Val(Text5.Text)
PowerMILL31.Execute "TRANSFORM MODEL ALL"
' K( L$ `: t/ F2 o; y+ k0 sPowerMILL31.Disconnect
但是输出的结果：TRANSFORM RESET TRANSFORM TYPE SCALEALL TRANSFORM SCALEVALUE0.5
TRANSFORM MODEL ALL
4 b; b  B/ O/ X# E) t
如果执行命令输出的结果如果是以下，就正确，请问怎么做。
6 d  s/ {- c# e. K; `TRANSFORM RESET TRANSFORM TYPE SCALEALL TRANSFORM SCALEVALUE
"0.5"
# }( j" K6 X' z+ ]* OTRANSFORM MODEL ALL
( X/ b  e7 Z0 T

傲世浮云

TRANSFORM SCALEVALUE" & Val(Text5.Text)
E和引号之间加个空格
: v6 P: `; B8 W8 G! \. z( Z* U" ]第一个问题去网上找窗体前置

catia2007

傲世浮云 发表于 2012-9-10 23:06 static/image/common/back.gif
4 k) x1 i8 j- P7 ]7 P) Y- _TRANSFORM SCALEVALUE" & Val(Text5.Text)
' R$ q5 k1 E4 e# m7 ]1 k# RE和引号之间加个空格
第一个问题去网上找窗体前置

2 J- c+ Y5 h. z( `$ Y( @谢谢，一个空格就解决了。

catia2007

窗口前置代码如下：
+ D  P! c/ K9 c- U2 y" j, N8 b模块代码：
/ r; c. X( {* f' M" r- o* X! x6 g) C. iOption Explicit
2 E5 {4 s# p' {4 PDeclare 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)

, R3 q7 l6 s$ D窗体代码：load事件下：
+ E5 o# I) _! G+ [; }Private Sub form_load()
# M0 J2 f: d2 a1 y0 Z* `) QDim a As String
a = SetWindowPos(hwnd, -1, 0, 0, 0, 0, 3)
) S. f* Z' v' n- o9 V' X- r! `' P+ v- ]End Sub

傲世浮云

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

catia2007

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

" K% b# o  [7 T3 ^3 d. I. r$ q4 L: ^; A谢谢指导，想请教一个问题，两个路径交叉自动裁剪掉交叉的，不知是否可以实现！

傲世浮云

用边界可以

catia2007

傲世浮云 发表于 2012-9-15 00:43 static/image/common/back.gif
/ |, v* U2 _4 ^' m5 P用边界可以

: i  u" r* x3 K# [8 o& N8 x4 J+ @边界用过，不理想。
但是或许你的用法不一样，能做个项目我参考一下吗？谢谢
+ a1 U% ~5 R2 ?/ esha101@tom.com