1.If App.PrevInstance = True Then End 这句话如何实现在end前把检测到的另一个程序的窗体show出来
2.有一个无边框窗体,点击任务栏图标后,窗体显示,再点击一次窗体不能最小化。怎么让他和有边框窗体一样第二次点击就最小化。

解决方案 »

  1.   

    App.PrevInstance = True时,另一个程序的窗体应该已经show出来,还show什么,再说两个实例一样,还不是show自己?
    第二个问题
    Private Sub Form_Click()
    Form1.WindowState = 1
    End Sub
      

  2.   

    第一个问题:
        你是不是想这样,当程序启动时判断是否已经有了一个相同实例程序在运行,如果已经有了,
        如果那个程序窗口没有显示的话,就让那个程序显示窗口显示出来,然后再自己结束掉。    如果是这样,建议使用DDE或网络与另外的那个实例程序通讯,通知他有人又一次运行了同一个
        文件,当它收到DDE或网络信息时,就做出显示窗口的反应。建议采用DDE进行通讯,如果要用
        网络的话,建议使用UDP协议,向127.0.0.1的UDP端口发送信息第二个问题:
        在窗体下加入以下代码:    Private Sub Form_DblClick()
           Me.WindowState = 1
        End Sub
      

  3.   

    因为有可能另一个窗体处于托盘状态,为了让他    WindowState = 0
      

  4.   

    朋友能给一个DDE的实例么?之前没用过