明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 1952|回复: 3

[求助]窗口的前端显示

[复制链接]
发表于 2011-7-2 14:27 | 显示全部楼层 |阅读模式
求助
VB写的.exe里有对话框,在CAD菜单调用,怎么让对话框显示在AutoCAD窗口的前端
发表于 2011-7-2 16:25 | 显示全部楼层
很久没有用VB了,记得是需要先做以下声明,你可以参考一下,希望能帮到你
Private 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) As Long
发表于 2011-7-3 10:13 | 显示全部楼层
'Module1

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) As Long
Public Const HWND_TOPMOST = -1
Public Const HWND_BOTTOM = -2
Public Const SWP_NOMOVE = &H2
Public Const SWP_NOSIZE = &H1
Public Const SWP_NOZORDER = &H8
Const WM_KEYDOWN = &H100

Public Sub SetFormTopmost(TheForm As Form)    '窗口置顶
    SetWindowPos TheForm.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOZORDER + SWP_NOMOVE + SWP_NOSIZE
End Sub

Public Sub SetFormNoTopMost(TheForm As Form) '解除置顶
    SetWindowPos TheForm.hwnd, HWND_BOTTOM, 0, 0, 0, 0, SWP_NOZORDER + SWP_NOMOVE + SWP_NOSIZE
End Sub
'--------------------------------------------------
'Form
Private Sub Form_Load()
    SetFormTopmost Form1
End Sub

这是窗口置顶,但不知相对置顶怎么弄,就象记事本与查找对话框那样。
 楼主| 发表于 2011-7-11 11:10 | 显示全部楼层
楼上这个是窗口显示在所有窗品的前端,而不只是CAD的前端吧。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2022 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2022-8-8 17:32 , Processed in 0.140232 second(s), 23 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表