tjdxtm 发表于 2004-9-6 13:34:00

关于窗口的问题

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


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


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

雪山飞狐_lzh 发表于 2004-9-6 13:35:00

Api函数

tjdxtm 发表于 2004-9-6 14:02:00

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


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

雪山飞狐_lzh 发表于 2004-9-6 14:23:00

<FONT face=宋体 size=2>Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long<BR>Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long<BR>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<BR>Const GWL_STYLE = (-16)<BR>Const WS_CAPTION = &amp;HC00000<BR>Const SWP_FRameCHANGED = &amp;H20<BR>Const SWP_NOMOVE = &amp;H2<BR>Const SWP_NOSIZE = &amp;H1<BR>Const HWND_TOP = 0<BR><BR>Private Sub Command1_Click()<BR>Call GetPolyline<BR>Me.WindowState = 0<BR>Me.Show<BR>SetWindowPos Me.hwnd, HWND_TOP, 0, 0, 0, 0, SWP_FRameCHANGED Or SWP_NOMOVE Or SWP_NOSIZE<BR><BR>'AppActivate Me.Caption<BR>End Sub</FONT>

tjdxtm 发表于 2004-9-6 14:55:00

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


还是谢谢你。


我用“SetForegroundWindow”解决了。
页: [1]
查看完整版本: 关于窗口的问题