用FINDWINDOW(),FLASHWINDOW()搞定。

解决方案 »

  1.   

    我想在form2.的load事件里面写入把form1调为当前窗口吧。
    参考代码:
    Private Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long
    form_load()
    Dim d As Long
    d = SetForegroundWindow(form1.hwnd)
    end sub
      

  2.   

    狼说的对。在form2的load过程中把焦点给form1不就好了吗?
      

  3.   

    你好,多谢回复。其实我的意思并不是这样。不过今早忙了半天,总算把问题解决。原来用show方法和设置visible属性的效果不是完全一样的,后来我是用设置visible来解决问题的。