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

catia2007 · 发表于 2012-9-10 08:01:26

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

您需要登录才可以下载或查看，没有帐号？注册

x

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

新手给你们添麻烦了。

另外还有个问题。全轴缩放VB代码是这样的，却不可以：
PowerMILL31.Connect
PowerMILL31.Execute "TRANSFORM RESET TRANSFORM TYPE SCALEALL TRANSFORM SCALEVALUE" & Val(Text5.Text)
PowerMILL31.Execute "TRANSFORM MODEL ALL"
PowerMILL31.Disconnect
但是输出的结果：TRANSFORM RESET TRANSFORM TYPE SCALEALL TRANSFORM SCALEVALUE0.5
TRANSFORM MODEL ALL

如果执行命令输出的结果如果是以下，就正确，请问怎么做。
TRANSFORM RESET TRANSFORM TYPE SCALEALL TRANSFORM SCALEVALUE
"0.5"
TRANSFORM MODEL ALL

傲世浮云 · 发表于 2012-9-10 23:06:49

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

catia2007 · 发表于 2012-9-11 08:52:01

傲世浮云发表于 2012-9-10 23:06 static/image/common/back.gif. l% T8 m$ A6 T4 `& e
TRANSFORM SCALEVALUE" & Val(Text5.Text)
9 g1 t' r! U+ TE和引号之间加个空格
% R" |; z, f# D- x, @- `1 L! { y第一个问题去网上找窗体前置

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

catia2007 · 发表于 2012-9-11 09:19:36

窗口前置代码如下：
模块代码：
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)

窗体代码：load事件下：
Private Sub form_load()
Dim a As String
a = SetWindowPos(hwnd, -1, 0, 0, 0, 0, 3)
End Sub

傲世浮云 · 发表于 2012-9-14 00:04:11

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

catia2007 · 发表于 2012-9-14 12:46:55

傲世浮云发表于 2012-9-14 00:04 static/image/common/back.gif
( C4 G$ T2 ]3 [. `# I模块的可以加到PM连接模块上，不用多做一个模块

谢谢指导，想请教一个问题，两个路径交叉自动裁剪掉交叉的，不知是否可以实现！

傲世浮云 · 发表于 2012-9-15 00:43:37

用边界可以

catia2007 · 发表于 2012-9-15 09:07:09

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

边界用过，不理想。
但是或许你的用法不一样，能做个项目我参考一下吗？谢谢
sha101@tom.com

		自动登录	找回密码
密码			注册

通知

[求助] 如何做到让VB做的外挂窗口不影藏

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

浏览过的版块