社区 › VB › 请教：VB与AutoCAD

thankyou 发表于 2003-2-25 16:27:00

请教：VB与AutoCAD

VB的窗体都是非模态的，能不能在操作其他窗体时，VB的窗体不会隐藏，就象ACAD中的非模态窗体一样。

efan2000 发表于 2003-2-25 18:59:00

R2002以上版本自动支持，在R14或者R2000中，可以到晓东CAD空间的下载中心中下载一个ARX程序，它支持停靠和浮动的VB自定义控件。

thankyou 发表于 2003-2-26 14:25:00

谢谢efan2000为我解决很多问题，我的意思是：针对CAD-VB编的程序窗体在操作CAD时，不被隐藏。

mccad 发表于 2003-2-27 20:01:00

1、首先应该把以下声明放再窗体的声明部分：
    Const SWP_NOSIZE = &H1
    Const SWP_NOMOVE = &H2
    Const SWP_NOACTIVATE = &H10
    Const HWND_TOPMOST = -1
    Const HWND_NOTOPMOST = -2
    Const SWP_SHOWWINDOW = &H40
    Private Declare Function SetWindowPos Lib _
   "user32" Alias "SetWindowPos" (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
    2.使窗口Always On Top时，可以用下面的语句：
    SetWindowPos hWnd, HWND_TOPMOST, 0, 0, 0, 0, _
   SWP_NOACTIVATE Or SWP_SHOWWINDOW Or SWP_NOMOVE _
    Or SWP_NOSIZE
   
    3.使窗口取消Always On Top功能，用下面的语句：
    SetWindowPos hWnd, HWND_NOTOPMOST, 0, 0, 0, 0, _
   SWP_NOACTIVATE Or SWP_SHOWWINDOW Or SWP_NOMOVE _
    Or SWP_NOSIZE

查看完整版本: 请教：VB与AutoCAD