关于窗口的问题

tjdxtm

哪位大侠能帮我一下，先谢谢了


我建立一个form1，用它启动AutoCAD后，我想可以用代码控制autocad显示在form1前面


或者form1显示在autocad前面之类的功能，怎么实现？给个代码行吗？

雪山飞狐_lzh

Api函数

tjdxtm

我知道是用api函数，用句柄处理吧？


可我对api不怎么太熟悉，请给一个代码行吗？谢谢了

雪山飞狐_lzh

Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
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
Const GWL_STYLE = (-16)
Const WS_CAPTION = &HC00000
Const SWP_FRameCHANGED = &H20
Const SWP_NOMOVE = &H2
Const SWP_NOSIZE = &H1
Const HWND_TOP = 0

Private Sub Command1_Click()
Call GetPolyline
Me.WindowState = 0
Me.Show
SetWindowPos Me.hwnd, HWND_TOP, 0, 0, 0, 0, SWP_FRameCHANGED Or SWP_NOMOVE Or SWP_NOSIZE

'AppActivate Me.Caption
End Sub

tjdxtm

运行提示“GetPolyline”未定义阿。


还是谢谢你。


我用“SetForegroundWindow”解决了。