如何让Access父窗体（主窗体）位于任何windows窗体的前面？

David.cn

各位好，目前我写程序用到了通过一个access应用程序 A ，调用另一个Access应用程序 B，并打开B中的一个窗体显示所要查询到的信息。这些功能我都实现了，只是，Access应用程序B这个主窗体不能跑到任何Windows窗体的前面。每次都要手动鼠标点击。
我也使用了以下代码，却还是不行。
  dim B as Access.Application
   
  B.OpenAccessProject("C:\pro\B.adp")
  B.DoCmd.OpenForm "from1", acNormal, , "编号='" & Me.编号 & "' ", , acWindowNormal
  B.Forms("form1").SetFocus
   
  Dim lpPoint As POINTAPI
  Call GetCursorPos(lpPoint)

  Call SetWindowPos(GetParent(B.Forms("form1").hwnd), HWND_TOPMOST, 0, 0, 0, 0, SWP_NOSIZE)
  Call ShowWindow(GetParent(B.Forms("form1").hwnd), SW_SHOWMAXIMIZED)
希望有人帮忙啊！

David.cn

竟没有一个人回答！

David.cn

ACMAIN_CHM, 我在这里也发了，根本没有人回答！

David.cn

A.mdb的下载地址是：http://download.csdn.net/source/2416272
B.mdb的下载地址是：http://download.csdn.net/source/2416284
在A调用B时，请先实验A调B，关闭B，再调B，些B是可以前置所有窗口之前的。
再实验A调B，不关B，点击A中不同的数据记录再调用B，此时B是不能前置所有窗口之前的，但是，B的资料是会发生改变的！
请各位朋友下载附件测试一下！

lkkl66

回复 David.cn 的帖子

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
    在窗体加载事件：
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Private Sub Form_Load()   
DoCmd.RunCommand acCmdAppMinimize     '登录时的窗口突出化
SetWindowPos Me.hwnd, -1, 0, 0, 0, 0, 3 '登录时的窗口置前
SetWindowPos Me.hwnd, -2, 0, 0, 0, 0, 3 '马上恢复正常
End Sub
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

xjb_test

路过支持一下...  呵呵！

仕国

学习

仕国

路过

li08hua

谢谢指教！